]> git.saurik.com Git - wxWidgets.git/blame - src/motif/app.cpp
Ensure that the native font is initialized so the face name and such
[wxWidgets.git] / src / motif / app.cpp
CommitLineData
4bb6408c
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: app.cpp
3// Purpose: wxApp
4// Author: Julian Smart
5// Modified by:
6// Created: 17/09/98
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart
afb74891 9// Licence: wxWindows licence
4bb6408c
JS
10/////////////////////////////////////////////////////////////////////////////
11
14f355c2 12#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
ee31c392 13 #pragma implementation "app.h"
4bb6408c
JS
14#endif
15
bcd055ae
JJ
16#ifdef __VMS
17#define XtParent XTPARENT
18#define XtDisplay XTDISPLAY
19#endif
20
4bb6408c
JS
21#include "wx/app.h"
22#include "wx/utils.h"
4bb6408c
JS
23#include "wx/module.h"
24#include "wx/memory.h"
8bedcdce
RR
25#include "wx/log.h"
26#include "wx/intl.h"
7e1bcfa8 27#include "wx/evtloop.h"
ed39ff57 28#include "wx/hash.h"
9ce8d6a2 29#include "wx/hashmap.h"
b412f9be 30
7bcb11d3 31#if wxUSE_THREADS
dfe1eee3 32 #include "wx/thread.h"
7bcb11d3 33#endif
4bb6408c 34
338dd992
JJ
35#ifdef __VMS__
36#pragma message disable nosimpint
37#endif
4bb6408c
JS
38#include <Xm/Xm.h>
39#include <X11/Xlib.h>
40#include <X11/Xutil.h>
41#include <X11/Xresource.h>
42#include <X11/Xatom.h>
338dd992
JJ
43#ifdef __VMS__
44#pragma message enable nosimpint
45#endif
4bb6408c
JS
46
47#include "wx/motif/private.h"
48
49#include <string.h>
50
eb6fa4b4
MB
51struct wxPerDisplayData
52{
53 wxPerDisplayData()
54 { m_visualInfo = NULL; m_topLevelWidget = NULL; }
55
56 wxXVisualInfo* m_visualInfo;
57 Widget m_topLevelWidget;
58};
59
60WX_DECLARE_VOIDPTR_HASH_MAP( wxPerDisplayData, wxPerDisplayDataMap );
61
62static void wxTLWidgetDestroyCallback(Widget w, XtPointer clientData,
63 XtPointer ptr);
64static WXWidget wxCreateTopLevelWidget( WXDisplay* display );
9ce8d6a2 65
4bb6408c 66extern wxList wxPendingDelete;
7e1bcfa8 67extern bool wxAddIdleCallback();
7491d644 68
4bb6408c
JS
69wxHashTable *wxWidgetHashTable = NULL;
70
4bb6408c 71IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)
9c6e1335 72
4bb6408c 73BEGIN_EVENT_TABLE(wxApp, wxEvtHandler)
955a9197 74 EVT_IDLE(wxAppBase::OnIdle)
4bb6408c 75END_EVENT_TABLE()
4bb6408c 76
e838cc14
VZ
77#ifdef __WXDEBUG__
78 typedef int (*XErrorHandlerFunc)(Display *, XErrorEvent *);
79
80 XErrorHandlerFunc gs_pfnXErrorHandler = 0;
81
82 static int wxXErrorHandler(Display *dpy, XErrorEvent *xevent)
83 {
84 // just forward to the default handler for now
85 return gs_pfnXErrorHandler(dpy, xevent);
86 }
87#endif // __WXDEBUG__
88
05e2b077 89bool wxApp::Initialize(int& argc, wxChar **argv)
4bb6408c 90{
94826170
VZ
91 if ( !wxAppBase::Initialize(argc, argv) )
92 return false;
afb74891 93
4bb6408c 94 wxWidgetHashTable = new wxHashTable(wxKEY_INTEGER);
afb74891 95
94826170 96 return true;
4bb6408c
JS
97}
98
99void wxApp::CleanUp()
100{
e6be3e7c
MB
101 delete wxWidgetHashTable;
102 wxWidgetHashTable = NULL;
103
94826170 104 wxAppBase::CleanUp();
4bb6408c
JS
105}
106
e2478fde
VZ
107void wxApp::Exit()
108{
109 wxApp::CleanUp();
110
111 wxAppConsole::Exit();
112}
113
e6be3e7c 114// ============================================================================
05e2b077 115// wxApp
e6be3e7c
MB
116// ============================================================================
117
4bb6408c
JS
118wxApp::wxApp()
119{
4bb6408c
JS
120 argc = 0;
121 argv = NULL;
afb74891 122
7e1bcfa8 123 m_eventLoop = new wxEventLoop;
4bb6408c
JS
124 m_mainColormap = (WXColormap) NULL;
125 m_appContext = (WXAppContext) NULL;
47bc1060 126 m_initialDisplay = (WXDisplay*) 0;
eb6fa4b4 127 m_perDisplayData = new wxPerDisplayDataMap;
4bb6408c
JS
128}
129
7e1bcfa8
MB
130wxApp::~wxApp()
131{
132 delete m_eventLoop;
9ce8d6a2 133
eb6fa4b4
MB
134 for( wxPerDisplayDataMap::iterator it = m_perDisplayData->begin(),
135 end = m_perDisplayData->end();
9ce8d6a2
MB
136 it != end; ++it )
137 {
eb6fa4b4
MB
138 delete it->second.m_visualInfo;
139 XtDestroyWidget( it->second.m_topLevelWidget );
9ce8d6a2
MB
140 }
141
eb6fa4b4
MB
142 delete m_perDisplayData;
143
57bfe3be 144 wxApp::SetInstance(NULL);
7e1bcfa8
MB
145}
146
4bb6408c
JS
147bool wxApp::Initialized()
148{
149 if (GetTopWindow())
2d120f83 150 return TRUE;
4bb6408c 151 else
2d120f83 152 return FALSE;
4bb6408c
JS
153}
154
155int wxApp::MainLoop()
156{
2d120f83 157 /*
4bb6408c
JS
158 * Sit around forever waiting to process X-events. Property Change
159 * event are handled special, because they have to refer to
160 * the root window rather than to a widget. therefore we can't
161 * use an Xt-eventhandler.
162 */
afb74891 163
4bb6408c 164 XSelectInput(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()),
2d120f83
JS
165 XDefaultRootWindow(XtDisplay((Widget) wxTheApp->GetTopLevelWidget())),
166 PropertyChangeMask);
afb74891 167
7e1bcfa8 168 m_eventLoop->Run();
afb74891 169
8aa04e8b
JS
170 return 0;
171}
172
4bb6408c
JS
173void wxApp::ExitMainLoop()
174{
e6be3e7c
MB
175 if( m_eventLoop->IsRunning() )
176 m_eventLoop->Exit();
4bb6408c
JS
177}
178
179// Is a message/event pending?
180bool wxApp::Pending()
181{
ba2fcb07
MB
182 return m_eventLoop->Pending();
183#if 0
4bb6408c 184 XFlush(XtDisplay( (Widget) wxTheApp->GetTopLevelWidget() ));
afb74891 185
8aa04e8b
JS
186 // Fix by Doug from STI, to prevent a stall if non-X event
187 // is found.
188 return ((XtAppPending( (XtAppContext) GetAppContext() ) & XtIMXEvent) != 0) ;
ba2fcb07 189#endif
4bb6408c
JS
190}
191
192// Dispatch a message.
193void wxApp::Dispatch()
194{
7e1bcfa8 195 m_eventLoop->Dispatch();
4bb6408c
JS
196}
197
198// This should be redefined in a derived class for
199// handling property change events for XAtom IPC.
200void wxApp::HandlePropertyChange(WXEvent *event)
201{
202 // by default do nothing special
203 XtDispatchEvent((XEvent*) event); /* let Motif do the work */
204}
205
edc1cd8b
JS
206static char *fallbackResources[] = {
207 "*menuBar.marginHeight: 0",
208 "*menuBar.shadowThickness: 1",
209 "*background: #c0c0c0",
210 "*foreground: black",
211 NULL
212};
213
4bb6408c
JS
214// Create an application context
215bool wxApp::OnInitGui()
216{
fd304d98
MB
217 if( !wxAppBase::OnInitGui() )
218 return FALSE;
219
4bb6408c 220 XtToolkitInitialize() ;
edc1cd8b
JS
221 wxTheApp->m_appContext = (WXAppContext) XtCreateApplicationContext();
222 XtAppSetFallbackResources((XtAppContext) wxTheApp->m_appContext, fallbackResources);
223
4bb6408c 224 Display *dpy = XtOpenDisplay((XtAppContext) wxTheApp->m_appContext,(String)NULL,NULL,
d3a80c92 225 wxTheApp->GetClassName().c_str(), NULL, 0,
4bb6408c 226# if XtSpecificationRelease < 5
9c6e1335 227 (Cardinal*) &argc,
4bb6408c 228# else
9c6e1335 229 &argc,
4bb6408c 230# endif
9c6e1335
VZ
231 argv);
232
4bb6408c 233 if (!dpy) {
c88b736c
MB
234 // if you don't log to stderr, nothing will be shown...
235 delete wxLog::SetActiveTarget(new wxLogStderr);
7bcb11d3 236 wxString className(wxTheApp->GetClassName());
9c6e1335 237 wxLogError(_("wxWindows could not open display for '%s': exiting."),
d3a80c92 238 className.c_str());
2d120f83 239 exit(-1);
4bb6408c 240 }
47bc1060 241 m_initialDisplay = (WXDisplay*) dpy;
afb74891 242
e838cc14
VZ
243#ifdef __WXDEBUG__
244 // install the X error handler
245 gs_pfnXErrorHandler = XSetErrorHandler(wxXErrorHandler);
246#endif // __WXDEBUG__
247
4bb6408c
JS
248 // Add general resize proc
249 XtActionsRec rec;
250 rec.string = "resize";
251 rec.proc = (XtActionProc)wxWidgetResizeProc;
252 XtAppAddActions((XtAppContext) wxTheApp->m_appContext, &rec, 1);
afb74891 253
4bb6408c 254 GetMainColormap(dpy);
afb74891 255
7e1bcfa8
MB
256 wxAddIdleCallback();
257
4bb6408c
JS
258 return TRUE;
259}
260
261WXColormap wxApp::GetMainColormap(WXDisplay* display)
262{
263 if (!display) /* Must be called first with non-NULL display */
2d120f83 264 return m_mainColormap;
a91b47e8
JS
265
266 int defaultScreen = DefaultScreen((Display*) display);
267 Screen* screen = XScreenOfDisplay((Display*) display, defaultScreen);
afb74891 268
a91b47e8 269 Colormap c = DefaultColormapOfScreen(screen);
afb74891 270
4bb6408c 271 if (!m_mainColormap)
2d120f83 272 m_mainColormap = (WXColormap) c;
afb74891 273
4bb6408c
JS
274 return (WXColormap) c;
275}
276
9ce8d6a2
MB
277wxXVisualInfo* wxApp::GetVisualInfo( WXDisplay* display )
278{
eb6fa4b4 279 wxPerDisplayDataMap::iterator it = m_perDisplayData->find( display );
9ce8d6a2 280
eb6fa4b4
MB
281 if( it != m_perDisplayData->end() && it->second.m_visualInfo )
282 return it->second.m_visualInfo;
9ce8d6a2
MB
283
284 wxXVisualInfo* vi = new wxXVisualInfo;
285 wxFillXVisualInfo( vi, (Display*)display );
286
eb6fa4b4 287 (*m_perDisplayData)[display].m_visualInfo = vi;
9ce8d6a2
MB
288
289 return vi;
290}
291
eb6fa4b4
MB
292static void wxTLWidgetDestroyCallback(Widget w, XtPointer clientData,
293 XtPointer ptr)
294{
295 if( wxTheApp )
296 wxTheApp->SetTopLevelWidget( (WXDisplay*)XtDisplay(w),
297 (WXWidget)NULL );
298}
299
300WXWidget wxCreateTopLevelWidget( WXDisplay* display )
301{
302 Widget tlw = XtAppCreateShell( (String)NULL,
303 wxTheApp->GetClassName().c_str(),
304 applicationShellWidgetClass,
305 (Display*)display,
306 NULL, 0 );
732c0bfd 307 XtSetMappedWhenManaged( tlw, False );
dd38c875 308 XtRealizeWidget( tlw );
eb6fa4b4
MB
309
310 XtAddCallback( tlw, XmNdestroyCallback,
311 (XtCallbackProc)wxTLWidgetDestroyCallback,
312 (XtPointer)NULL );
313
314 return (WXWidget)tlw;
315}
316
317WXWidget wxApp::GetTopLevelWidget()
318{
319 WXDisplay* display = wxGetDisplay();
320 wxPerDisplayDataMap::iterator it = m_perDisplayData->find( display );
321
322 if( it != m_perDisplayData->end() && it->second.m_topLevelWidget )
323 return (WXWidget)it->second.m_topLevelWidget;
324
325 WXWidget tlw = wxCreateTopLevelWidget( display );
326 SetTopLevelWidget( display, tlw );
327
328 return tlw;
329}
330
331void wxApp::SetTopLevelWidget(WXDisplay* display, WXWidget widget)
332{
333 (*m_perDisplayData)[display].m_topLevelWidget = (Widget)widget;
334}
335
4bb6408c 336// Yield to other processes
cb2713bf 337
8461e4c2 338bool wxApp::Yield(bool onlyIfNeeded)
4bb6408c 339{
8461e4c2
VZ
340 bool s_inYield = FALSE;
341
342 if ( s_inYield )
343 {
344 if ( !onlyIfNeeded )
345 {
346 wxFAIL_MSG( wxT("wxYield called recursively" ) );
347 }
348
349 return FALSE;
350 }
351
352 s_inYield = TRUE;
cb2713bf 353
4bb6408c 354 while (wxTheApp && wxTheApp->Pending())
2d120f83 355 wxTheApp->Dispatch();
518b5d2f 356
8461e4c2 357 s_inYield = FALSE;
cb2713bf 358
4bb6408c
JS
359 return TRUE;
360}
361
d391a345
VZ
362// ----------------------------------------------------------------------------
363// accessors for C modules
364// ----------------------------------------------------------------------------
365
366extern "C" XtAppContext wxGetAppContext()
367{
368 return (XtAppContext)wxTheApp->GetAppContext();
369}