1 /////////////////////////////////////////////////////////////////////////////
4 // Author: Robert Roebling
6 // Copyright: (c) 1998 Robert Roebling, Julian Smart
7 // Licence: wxWindows licence
8 /////////////////////////////////////////////////////////////////////////////
11 #pragma implementation "app.h"
15 #include <vms_jackets.h>
16 #undef ConnectionNumber
20 #include "wx/gdicmn.h"
24 #include "wx/memory.h"
26 #include "wx/settings.h"
27 #include "wx/dialog.h"
28 #include "wx/msgdlg.h"
30 #include "wx/filename.h"
31 #include "wx/module.h"
34 #ifdef __WXUNIVERSAL__
35 #include "wx/univ/theme.h"
36 #include "wx/univ/renderer.h"
40 #include "wx/thread.h"
49 // bug in the OpenBSD headers: at least in 3.1 there is no extern "C"
50 // in neither poll.h nor sys/poll.h which results in link errors later
63 // we implement poll() ourselves using select() which is supposed exist in
65 #include <sys/types.h>
68 #endif // HAVE_POLL/!HAVE_POLL
70 #include "wx/gtk/win_gtk.h"
75 //-----------------------------------------------------------------------------
77 //-----------------------------------------------------------------------------
79 wxApp
*wxTheApp
= (wxApp
*) NULL
;
80 wxAppInitializerFunction
wxAppBase::m_appInitFn
= (wxAppInitializerFunction
) NULL
;
82 bool g_mainThreadLocked
= FALSE
;
83 gint g_pendingTag
= 0;
85 static GtkWidget
*gs_RootWindow
= (GtkWidget
*) NULL
;
87 //-----------------------------------------------------------------------------
89 //-----------------------------------------------------------------------------
93 void wxapp_install_idle_handler();
95 //-----------------------------------------------------------------------------
97 //-----------------------------------------------------------------------------
104 //-----------------------------------------------------------------------------
106 //-----------------------------------------------------------------------------
108 // not static because used by textctrl.cpp
111 bool wxIsInsideYield
= FALSE
;
113 bool wxApp::Yield(bool onlyIfNeeded
)
115 if ( wxIsInsideYield
)
119 wxFAIL_MSG( wxT("wxYield called recursively" ) );
126 if ( !wxThread::IsMain() )
128 // can't call gtk_main_iteration() from other threads like this
131 #endif // wxUSE_THREADS
133 wxIsInsideYield
= TRUE
;
137 // We need to remove idle callbacks or the loop will
139 gtk_idle_remove( m_idleTag
);
144 // disable log flushing from here because a call to wxYield() shouldn't
145 // normally result in message boxes popping up &c
148 while (gtk_events_pending())
149 gtk_main_iteration();
151 // It's necessary to call ProcessIdle() to update the frames sizes which
152 // might have been changed (it also will update other things set from
153 // OnUpdateUI() which is a nice (and desired) side effect). But we
154 // call ProcessIdle() only once since this is not meant for longish
155 // background jobs (controlled by wxIdleEvent::RequestMore() and the
156 // return value of Processidle().
159 // let the logs be flashed again
162 wxIsInsideYield
= FALSE
;
167 //-----------------------------------------------------------------------------
169 //-----------------------------------------------------------------------------
171 static bool gs_WakeUpIdle
= false;
176 if (!wxThread::IsMain())
181 gs_WakeUpIdle
= true;
182 wxapp_install_idle_handler();
183 gs_WakeUpIdle
= false;
187 if (!wxThread::IsMain())
192 //-----------------------------------------------------------------------------
194 //-----------------------------------------------------------------------------
196 // the callback functions must be extern "C" to comply with GTK+ declarations
200 static gint
wxapp_pending_callback( gpointer
WXUNUSED(data
) )
202 if (!wxTheApp
) return TRUE
;
204 // When getting called from GDK's time-out handler
205 // we are no longer within GDK's grab on the GUI
206 // thread so we must lock it here ourselves.
209 // Sent idle event to all who request them.
210 wxTheApp
->ProcessPendingEvents();
214 // Flush the logged messages if any.
216 wxLog::FlushActive();
219 // Release lock again
222 // Return FALSE to indicate that no more idle events are
223 // to be sent (single shot instead of continuous stream)
227 static gint
wxapp_idle_callback( gpointer
WXUNUSED(data
) )
233 // don't generate the idle events while the assert modal dialog is shown,
234 // this completely confuses the apps which don't expect to be reentered
235 // from some safely-looking functions
236 if ( wxTheApp
->IsInAssert() )
238 // But repaint the assertion message if necessary
239 if (wxTopLevelWindows
.GetCount() > 0)
241 wxWindow
* win
= (wxWindow
*) wxTopLevelWindows
.GetLast()->GetData();
243 if (win
->IsKindOf(CLASSINFO(wxMessageDialog
)))
245 if (win
->IsKindOf(CLASSINFO(wxGenericMessageDialog
)))
247 win
->OnInternalIdle();
251 #endif // __WXDEBUG__
253 // When getting called from GDK's time-out handler
254 // we are no longer within GDK's grab on the GUI
255 // thread so we must lock it here ourselves.
258 // Indicate that we are now in idle mode and event handlers
259 // will have to reinstall the idle handler again.
261 wxTheApp
->m_idleTag
= 0;
263 // Send idle event to all who request them as long as
264 // no events have popped up in the event queue.
265 while (wxTheApp
->ProcessIdle() && (gtk_events_pending() == 0))
268 // Release lock again
271 // Return FALSE to indicate that no more idle events are
272 // to be sent (single shot instead of continuous stream).
280 #define wxPollFd pollfd
283 typedef GPollFD wxPollFd
;
285 int wxPoll(wxPollFd
*ufds
, unsigned int nfds
, int timeout
)
287 // convert timeout from ms to struct timeval (s/us)
289 tv_timeout
.tv_sec
= timeout
/1000;
290 tv_timeout
.tv_usec
= (timeout%1000
)*1000;
292 // remember the highest fd used here
295 // and fill the sets for select()
304 for ( i
= 0; i
< nfds
; i
++ )
306 wxASSERT_MSG( ufds
[i
].fd
< FD_SETSIZE
, _T("fd out of range") );
308 if ( ufds
[i
].events
& G_IO_IN
)
309 FD_SET(ufds
[i
].fd
, &readfds
);
311 if ( ufds
[i
].events
& G_IO_PRI
)
312 FD_SET(ufds
[i
].fd
, &exceptfds
);
314 if ( ufds
[i
].events
& G_IO_OUT
)
315 FD_SET(ufds
[i
].fd
, &writefds
);
317 if ( ufds
[i
].fd
> fdMax
)
322 int res
= select(fdMax
, &readfds
, &writefds
, &exceptfds
, &tv_timeout
);
324 // translate the results back
325 for ( i
= 0; i
< nfds
; i
++ )
329 if ( FD_ISSET(ufds
[i
].fd
, &readfds
) )
330 ufds
[i
].revents
|= G_IO_IN
;
332 if ( FD_ISSET(ufds
[i
].fd
, &exceptfds
) )
333 ufds
[i
].revents
|= G_IO_PRI
;
335 if ( FD_ISSET(ufds
[i
].fd
, &writefds
) )
336 ufds
[i
].revents
|= G_IO_OUT
;
342 #endif // HAVE_POLL/!HAVE_POLL
344 static gint
wxapp_poll_func( GPollFD
*ufds
, guint nfds
, gint timeout
)
349 g_mainThreadLocked
= TRUE
;
351 // we rely on the fact that glib GPollFD struct is really just pollfd but
352 // I wonder how wise is this in the long term (VZ)
353 gint res
= wxPoll( (wxPollFd
*) ufds
, nfds
, timeout
);
356 g_mainThreadLocked
= FALSE
;
363 #endif // wxUSE_THREADS
367 void wxapp_install_idle_handler()
369 // GD: this assert is raised when using the thread sample (which works)
370 // so the test is probably not so easy. Can widget callbacks be
371 // triggered from child threads and, if so, for which widgets?
372 // wxASSERT_MSG( wxThread::IsMain() || gs_WakeUpIdle, wxT("attempt to install idle handler from widget callback in child thread (should be exclusively from wxWakeUpIdle)") );
374 wxASSERT_MSG( wxTheApp
->m_idleTag
== 0, wxT("attempt to install idle handler twice") );
378 if (g_pendingTag
== 0)
379 g_pendingTag
= gtk_idle_add_priority( 900, wxapp_pending_callback
, (gpointer
) NULL
);
381 // This routine gets called by all event handlers
382 // indicating that the idle is over. It may also
383 // get called from other thread for sending events
384 // to the main thread (and processing these in
385 // idle time). Very low priority.
386 wxTheApp
->m_idleTag
= gtk_idle_add_priority( 1000, wxapp_idle_callback
, (gpointer
) NULL
);
389 //-----------------------------------------------------------------------------
390 // Access to the root window global
391 //-----------------------------------------------------------------------------
393 GtkWidget
* wxGetRootWindow()
395 if (gs_RootWindow
== NULL
)
397 gs_RootWindow
= gtk_window_new( GTK_WINDOW_TOPLEVEL
);
398 gtk_widget_realize( gs_RootWindow
);
400 return gs_RootWindow
;
403 //-----------------------------------------------------------------------------
405 //-----------------------------------------------------------------------------
407 IMPLEMENT_DYNAMIC_CLASS(wxApp
,wxEvtHandler
)
409 BEGIN_EVENT_TABLE(wxApp
, wxEvtHandler
)
410 EVT_IDLE(wxApp::OnIdle
)
415 m_initialized
= FALSE
;
417 m_isInAssert
= FALSE
;
418 #endif // __WXDEBUG__
421 wxapp_install_idle_handler();
424 g_main_set_poll_func( wxapp_poll_func
);
427 m_colorCube
= (unsigned char*) NULL
;
429 // this is NULL for a "regular" wxApp, but is set (and freed) by a wxGLApp
430 m_glVisualInfo
= (void *) NULL
;
435 if (m_idleTag
) gtk_idle_remove( m_idleTag
);
437 if (m_colorCube
) free(m_colorCube
);
440 bool wxApp::OnInitGui()
442 if ( !wxAppBase::OnInitGui() )
445 GdkVisual
*visual
= gdk_visual_get_system();
447 // if this is a wxGLApp (derived from wxApp), and we've already
448 // chosen a specific visual, then derive the GdkVisual from that
449 if (m_glVisualInfo
!= NULL
)
452 // seems gtk_widget_set_default_visual no longer exists?
453 GdkVisual
* vis
= gtk_widget_get_default_visual();
455 GdkVisual
* vis
= gdkx_visual_get(
456 ((XVisualInfo
*) m_glVisualInfo
) ->visualid
);
457 gtk_widget_set_default_visual( vis
);
460 GdkColormap
*colormap
= gdk_colormap_new( vis
, FALSE
);
461 gtk_widget_set_default_colormap( colormap
);
466 // On some machines, the default visual is just 256 colours, so
467 // we make sure we get the best. This can sometimes be wasteful.
470 if ((gdk_visual_get_best() != gdk_visual_get_system()) && (m_useBestVisual
))
473 /* seems gtk_widget_set_default_visual no longer exists? */
474 GdkVisual
* vis
= gtk_widget_get_default_visual();
476 GdkVisual
* vis
= gdk_visual_get_best();
477 gtk_widget_set_default_visual( vis
);
480 GdkColormap
*colormap
= gdk_colormap_new( vis
, FALSE
);
481 gtk_widget_set_default_colormap( colormap
);
486 // Nothing to do for 15, 16, 24, 32 bit displays
487 if (visual
->depth
> 8) return TRUE
;
489 // initialize color cube for 8-bit color reduction dithering
491 GdkColormap
*cmap
= gtk_widget_get_default_colormap();
493 m_colorCube
= (unsigned char*)malloc(32 * 32 * 32);
495 for (int r
= 0; r
< 32; r
++)
497 for (int g
= 0; g
< 32; g
++)
499 for (int b
= 0; b
< 32; b
++)
501 int rr
= (r
<< 3) | (r
>> 2);
502 int gg
= (g
<< 3) | (g
>> 2);
503 int bb
= (b
<< 3) | (b
>> 2);
507 GdkColor
*colors
= cmap
->colors
;
512 for (int i
= 0; i
< cmap
->size
; i
++)
514 int rdiff
= ((rr
<< 8) - colors
[i
].red
);
515 int gdiff
= ((gg
<< 8) - colors
[i
].green
);
516 int bdiff
= ((bb
<< 8) - colors
[i
].blue
);
517 int sum
= ABS (rdiff
) + ABS (gdiff
) + ABS (bdiff
);
520 index
= i
; max
= sum
;
526 // assume 8-bit true or static colors. this really exists
527 GdkVisual
* vis
= gdk_colormap_get_visual( cmap
);
528 index
= (r
>> (5 - vis
->red_prec
)) << vis
->red_shift
;
529 index
|= (g
>> (5 - vis
->green_prec
)) << vis
->green_shift
;
530 index
|= (b
>> (5 - vis
->blue_prec
)) << vis
->blue_shift
;
532 m_colorCube
[ (r
*1024) + (g
*32) + b
] = index
;
540 GdkVisual
*wxApp::GetGdkVisual()
542 GdkVisual
*visual
= NULL
;
545 visual
= gdkx_visual_get( ((XVisualInfo
*) m_glVisualInfo
)->visualid
);
547 visual
= gdk_window_get_visual( wxGetRootWindow()->window
);
554 bool wxApp::ProcessIdle()
556 wxWindowList::Node
* node
= wxTopLevelWindows
.GetFirst();
557 node
= wxTopLevelWindows
.GetFirst();
560 wxWindow
* win
= node
->GetData();
561 CallInternalIdle( win
);
563 node
= node
->GetNext();
567 event
.SetEventObject( this );
568 ProcessEvent( event
);
570 return event
.MoreRequested();
573 void wxApp::OnIdle( wxIdleEvent
&event
)
575 static bool s_inOnIdle
= FALSE
;
577 // Avoid recursion (via ProcessEvent default case)
583 // Resend in the main thread events which have been prepared in other
585 ProcessPendingEvents();
587 // 'Garbage' collection of windows deleted with Close()
588 DeletePendingObjects();
590 // Send OnIdle events to all windows
591 bool needMore
= SendIdleEvents();
594 event
.RequestMore(TRUE
);
599 bool wxApp::SendIdleEvents()
601 bool needMore
= FALSE
;
603 wxWindowList::Node
* node
= wxTopLevelWindows
.GetFirst();
606 wxWindow
* win
= node
->GetData();
607 if (SendIdleEvents(win
))
610 node
= node
->GetNext();
616 bool wxApp::CallInternalIdle( wxWindow
* win
)
618 win
->OnInternalIdle();
620 wxWindowList::Node
*node
= win
->GetChildren().GetFirst();
623 wxWindow
*win
= node
->GetData();
625 CallInternalIdle( win
);
626 node
= node
->GetNext();
632 bool wxApp::SendIdleEvents( wxWindow
* win
)
634 bool needMore
= FALSE
;
637 event
.SetEventObject(win
);
639 win
->GetEventHandler()->ProcessEvent(event
);
641 if (event
.MoreRequested())
644 wxWindowList::Node
*node
= win
->GetChildren().GetFirst();
647 wxWindow
*win
= node
->GetData();
649 if (SendIdleEvents(win
))
651 node
= node
->GetNext();
657 int wxApp::MainLoop()
663 void wxApp::ExitMainLoop()
665 if (gtk_main_level() > 0)
669 bool wxApp::Initialized()
671 return m_initialized
;
674 bool wxApp::Pending()
676 return (gtk_events_pending() > 0);
679 void wxApp::Dispatch()
681 gtk_main_iteration();
684 void wxApp::DeletePendingObjects()
686 wxNode
*node
= wxPendingDelete
.GetFirst();
689 wxObject
*obj
= (wxObject
*)node
->GetData();
693 if (wxPendingDelete
.Find(obj
))
696 node
= wxPendingDelete
.GetFirst();
700 bool wxApp::Initialize()
702 wxClassInfo::InitializeClasses();
704 // GL: I'm annoyed ... I don't know where to put this and I don't want to
705 // create a module for that as it's part of the core.
707 wxPendingEvents
= new wxList();
708 wxPendingEventsLocker
= new wxCriticalSection();
711 wxTheColourDatabase
= new wxColourDatabase( wxKEY_STRING
);
712 wxTheColourDatabase
->Initialize();
714 wxInitializeStockLists();
715 wxInitializeStockObjects();
717 wxModule::RegisterModules();
718 if (!wxModule::InitializeModules())
722 wxFont::SetDefaultEncoding(wxLocale::GetSystemEncoding());
728 void wxApp::CleanUp()
730 wxModule::CleanUpModules();
732 delete wxTheColourDatabase
;
733 wxTheColourDatabase
= (wxColourDatabase
*) NULL
;
735 wxDeleteStockObjects();
737 wxDeleteStockLists();
740 wxTheApp
= (wxApp
*) NULL
;
742 wxClassInfo::CleanUpClasses();
745 delete wxPendingEvents
;
746 wxPendingEvents
= NULL
;
747 delete wxPendingEventsLocker
;
748 wxPendingEventsLocker
= NULL
;
751 // check for memory leaks
752 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
753 if (wxDebugContext::CountObjectsLeft(TRUE
) > 0)
755 wxLogDebug(wxT("There were memory leaks.\n"));
756 wxDebugContext::Dump();
757 wxDebugContext::PrintStatistics();
762 // do this as the very last thing because everything else can log messages
763 wxLog::DontCreateOnDemand();
765 wxLog
*oldLog
= wxLog::SetActiveTarget( (wxLog
*) NULL
);
771 //-----------------------------------------------------------------------------
773 //-----------------------------------------------------------------------------
775 // NB: argc and argv may be changed here, pass by reference!
776 int wxEntryStart( int& argc
, char *argv
[] )
779 // GTK 1.2 up to version 1.2.3 has broken threads
780 if ((gtk_major_version
== 1) &&
781 (gtk_minor_version
== 2) &&
782 (gtk_micro_version
< 4))
784 printf( "wxWindows warning: GUI threading disabled due to outdated GTK version\n" );
794 // We should have the wxUSE_WCHAR_T test on the _outside_
796 #if defined(__WXGTK20__)
797 // gtk+ 2.0 supports Unicode through UTF-8 strings
798 wxConvCurrent
= &wxConvUTF8
;
800 if (!wxOKlibc()) wxConvCurrent
= &wxConvLocal
;
803 if (!wxOKlibc()) wxConvCurrent
= (wxMBConv
*) NULL
;
806 gtk_init( &argc
, &argv
);
808 /* we can not enter threads before gtk_init is done */
811 wxSetDetectableAutoRepeat( TRUE
);
813 if (!wxApp::Initialize())
827 if ( !wxTheApp
->OnInitGui() )
836 void wxEntryCleanup()
839 // flush the logged messages if any
840 wxLog
*log
= wxLog::GetActiveTarget();
841 if (log
!= NULL
&& log
->HasPendingMessages())
844 // continuing to use user defined log target is unsafe from now on because
845 // some resources may be already unavailable, so replace it by something
847 wxLog
*oldlog
= wxLog::SetActiveTarget(new wxLogStderr
);
858 int wxEntry( int argc
, char *argv
[] )
860 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
861 // This seems to be necessary since there are 'rogue'
862 // objects present at this point (perhaps global objects?)
863 // Setting a checkpoint will ignore them as far as the
864 // memory checking facility is concerned.
865 // Of course you may argue that memory allocated in globals should be
866 // checked, but this is a reasonable compromise.
867 wxDebugContext::SetCheckpoint();
869 int err
= wxEntryStart(argc
, argv
);
875 wxCHECK_MSG( wxApp::GetInitializerFunction(), -1,
876 wxT("wxWindows error: No initializer - use IMPLEMENT_APP macro.\n") );
878 wxAppInitializerFunction app_ini
= wxApp::GetInitializerFunction();
880 wxObject
*test_app
= app_ini();
882 wxTheApp
= (wxApp
*) test_app
;
885 wxCHECK_MSG( wxTheApp
, -1, wxT("wxWindows error: no application object") );
887 wxTheApp
->argc
= argc
;
889 wxTheApp
->argv
= new wxChar
*[argc
+1];
891 while (mb_argc
< argc
)
893 wxTheApp
->argv
[mb_argc
] = wxStrdup(wxConvLibc
.cMB2WX(argv
[mb_argc
]));
896 wxTheApp
->argv
[mb_argc
] = (wxChar
*)NULL
;
898 wxTheApp
->argv
= argv
;
901 if (wxTheApp
->argc
> 0)
903 wxFileName
fname( wxTheApp
->argv
[0] );
904 wxTheApp
->SetAppName( fname
.GetName() );
908 retValue
= wxEntryInitGui();
910 // Here frames insert themselves automatically into wxTopLevelWindows by
911 // getting created in OnInit().
914 if ( !wxTheApp
->OnInit() )
920 // Delete pending toplevel windows
921 wxTheApp
->DeletePendingObjects();
923 // When is the app not initialized ?
924 wxTheApp
->m_initialized
= TRUE
;
926 if (wxTheApp
->Initialized())
930 wxWindow
*topWindow
= wxTheApp
->GetTopWindow();
932 // Delete all pending windows if any
933 wxTheApp
->DeletePendingObjects();
937 wxTheApp
->SetTopWindow( (wxWindow
*) NULL
);
939 retValue
= wxTheApp
->OnExit();
950 void wxApp::OnAssert(const wxChar
*file
, int line
, const wxChar
* cond
, const wxChar
*msg
)
954 wxAppBase::OnAssert(file
, line
, cond
, msg
);
956 m_isInAssert
= FALSE
;
959 #endif // __WXDEBUG__