]> git.saurik.com Git - wxWidgets.git/blob - src/motif/toplevel.cpp
renaming
[wxWidgets.git] / src / motif / toplevel.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/motif/toplevel.cpp
3 // Purpose: wxTopLevelWindow Motif implementation
4 // Author: Mattia Barbon
5 // Modified by:
6 // Created: 12/10/2002
7 // RCS-ID: $Id$
8 // Copyright: (c) Mattia Barbon
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 // ============================================================================
13 // declarations
14 // ============================================================================
15
16 // ----------------------------------------------------------------------------
17 // headers
18 // ----------------------------------------------------------------------------
19
20 // For compilers that support precompilation, includes "wx.h".
21 #include "wx/wxprec.h"
22
23 #include "wx/toplevel.h"
24 #include "wx/settings.h"
25 #include "wx/app.h"
26
27 #ifndef WX_PRECOMP
28 #include "wx/app.h"
29 #endif
30
31 #ifdef __VMS__
32 #pragma message disable nosimpint
33 #endif
34
35 #include <Xm/Xm.h>
36 #include <X11/Shell.h>
37 #include <X11/Core.h>
38 #if XmVersion >= 1002
39 #include <Xm/XmAll.h>
40 #else
41 #include <Xm/Frame.h>
42 #endif
43
44 #ifdef __VMS__
45 #pragma message enable nosimpint
46 #endif
47
48 #include "wx/motif/private.h"
49
50 wxList wxModelessWindows; // Frames and modeless dialogs
51
52 // ---------------------------------------------------------------------------
53 // Callbacks
54 // ---------------------------------------------------------------------------
55
56 static void wxCloseTLWCallback( Widget widget, XtPointer client_data,
57 XmAnyCallbackStruct *cbs );
58 static void wxTLWEventHandler( Widget wid,
59 XtPointer client_data,
60 XEvent* event,
61 Boolean *continueToDispatch );
62
63 // ===========================================================================
64 // wxTopLevelWindowMotif implementation
65 // ===========================================================================
66
67 void wxTopLevelWindowMotif::PreDestroy()
68 {
69 wxModelessWindows.DeleteObject(this);
70
71 DestroyChildren();
72
73 // MessageDialog and FileDialog do not have a client widget
74 if( GetClientWidget() )
75 {
76 XtRemoveEventHandler( (Widget)GetClientWidget(),
77 ButtonPressMask | ButtonReleaseMask |
78 PointerMotionMask | KeyPressMask,
79 False,
80 wxTLWEventHandler,
81 (XtPointer)this );
82 }
83 }
84
85 wxTopLevelWindowMotif::~wxTopLevelWindowMotif()
86 {
87 SetMainWidget( (WXWidget)0 );
88 }
89
90 void wxTopLevelWindowMotif::Init()
91 {
92 m_isShown = false;
93 }
94
95 bool wxTopLevelWindowMotif::Create( wxWindow *parent, wxWindowID id,
96 const wxString& title,
97 const wxPoint& pos,
98 const wxSize& size,
99 long style,
100 const wxString& name )
101 {
102 SetName(name);
103 m_windowStyle = style;
104
105 if ( parent )
106 parent->AddChild(this);
107
108 wxTopLevelWindows.Append(this);
109
110 m_windowId = ( id > -1 ) ? id : NewControlId();
111 // MBN: More backward compatible, but uglier
112 m_font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
113 m_inheritFont = true;
114
115 bool retval = XmDoCreateTLW( parent, id, title, pos, size, style, name );
116
117 if( !retval ) return false;
118
119 // Intercept CLOSE messages from the window manager
120 Widget shell = (Widget)GetShellWidget();
121 Atom WM_DELETE_WINDOW = XmInternAtom( XtDisplay( shell ),
122 "WM_DELETE_WINDOW", False );
123
124 // Remove and add WM_DELETE_WINDOW so ours is only handler
125 // This only appears to be necessary for wxDialog, but does not hurt
126 // for wxFrame
127 XmRemoveWMProtocols( shell, &WM_DELETE_WINDOW, 1 );
128 XmAddWMProtocols( shell, &WM_DELETE_WINDOW, 1 );
129 XmActivateWMProtocol( shell, WM_DELETE_WINDOW );
130
131 // Modified Steve Hammes for Motif 2.0
132 #if (XmREVISION > 1 || XmVERSION > 1)
133 XmAddWMProtocolCallback( shell, WM_DELETE_WINDOW,
134 (XtCallbackProc)wxCloseTLWCallback,
135 (XtPointer)this );
136 #elif XmREVISION == 1
137 XmAddWMProtocolCallback( shell, WM_DELETE_WINDOW,
138 (XtCallbackProc)wxCloseTLWCallback,
139 (caddr_t)this );
140 #else
141 XmAddWMProtocolCallback( shell, WM_DELETE_WINDOW,
142 (void (*)())wxCloseTLWCallback, (caddr_t)this );
143 #endif
144
145 // This patch come from Torsten Liermann lier@lier1.muc.de
146 if( XmIsMotifWMRunning( shell ) )
147 {
148 int decor = 0 ;
149 if( !(m_windowStyle & wxNO_BORDER) )
150 decor |= MWM_DECOR_BORDER;
151 if( m_windowStyle & wxRESIZE_BORDER )
152 decor |= MWM_DECOR_RESIZEH;
153 if( m_windowStyle & wxSYSTEM_MENU )
154 decor |= MWM_DECOR_MENU;
155 if( ( m_windowStyle & wxCAPTION ) ||
156 ( m_windowStyle & wxTINY_CAPTION_HORIZ ) ||
157 ( m_windowStyle & wxTINY_CAPTION_VERT ) )
158 decor |= MWM_DECOR_TITLE;
159 if( m_windowStyle & wxRESIZE_BORDER )
160 decor |= MWM_DECOR_BORDER;
161 if( m_windowStyle & wxMINIMIZE_BOX )
162 decor |= MWM_DECOR_MINIMIZE;
163 if( m_windowStyle & wxMAXIMIZE_BOX )
164 decor |= MWM_DECOR_MAXIMIZE;
165
166 XtVaSetValues( shell,
167 XmNmwmDecorations, decor,
168 NULL );
169 }
170 else
171 {
172 // This allows non-Motif window managers to support at least the
173 // no-decorations case.
174 if( ( m_windowStyle & wxCAPTION ) != wxCAPTION )
175 XtVaSetValues( shell,
176 XmNoverrideRedirect, True,
177 NULL );
178 }
179
180 XtAddEventHandler( (Widget)GetClientWidget(),
181 ButtonPressMask | ButtonReleaseMask |
182 PointerMotionMask | KeyPressMask,
183 False,
184 wxTLWEventHandler,
185 (XtPointer)this );
186
187 return retval;
188 }
189
190 void wxTopLevelWindowMotif::DoGetPosition(int *x, int *y) const
191 {
192 Widget top = (Widget) GetTopWidget();
193 Window parent_window = XtWindow((Widget) top),
194 next_parent = XtWindow((Widget) top),
195 root = RootWindowOfScreen(XtScreen((Widget) top));
196
197 // search for the parent that is child of ROOT, because the WM may
198 // reparent twice and notify only the next parent (like FVWM)
199 while (next_parent != root) {
200 Window *theChildren; unsigned int n;
201 parent_window = next_parent;
202 XQueryTree(XtDisplay((Widget) top), parent_window, &root,
203 &next_parent, &theChildren, &n);
204 XFree(theChildren); // not needed
205 }
206 int xx, yy; unsigned int dummy;
207 XGetGeometry(XtDisplay((Widget) top), parent_window, &root,
208 &xx, &yy, &dummy, &dummy, &dummy, &dummy);
209 if (x) *x = xx;
210 if (y) *y = yy;
211 }
212
213 void wxTopLevelWindowMotif::Raise()
214 {
215 Widget top = (Widget) GetTopWidget();
216 Window parent_window = XtWindow( top ),
217 next_parent = XtWindow( top ),
218 root = RootWindowOfScreen( XtScreen( top ) );
219 // search for the parent that is child of ROOT, because the WM may
220 // reparent twice and notify only the next parent (like FVWM)
221 while( next_parent != root )
222 {
223 Window *theChildren;
224 unsigned int n;
225
226 parent_window = next_parent;
227 XQueryTree( XtDisplay( top ), parent_window, &root,
228 &next_parent, &theChildren, &n );
229 XFree( theChildren ); // not needed
230 }
231 XRaiseWindow( XtDisplay( top ), parent_window );
232 }
233
234 void wxTopLevelWindowMotif::Lower()
235 {
236 Widget top = (Widget) GetTopWidget();
237 Window parent_window = XtWindow( top ),
238 next_parent = XtWindow( top ),
239 root = RootWindowOfScreen( XtScreen( top ) );
240 // search for the parent that is child of ROOT, because the WM may
241 // reparent twice and notify only the next parent (like FVWM)
242 while( next_parent != root )
243 {
244 Window *theChildren;
245 unsigned int n;
246
247 parent_window = next_parent;
248 XQueryTree( XtDisplay( top ), parent_window, &root,
249 &next_parent, &theChildren, &n );
250 XFree( theChildren ); // not needed
251 }
252 XLowerWindow( XtDisplay( top ), parent_window );
253 }
254
255 static inline Widget GetShell( const wxTopLevelWindowMotif* tlw )
256 {
257 Widget main = (Widget) tlw->GetMainWidget();
258 if( !main ) return (Widget) NULL;
259
260 return XtParent( main );
261 }
262
263 WXWidget wxTopLevelWindowMotif::GetShellWidget() const
264 {
265 return (WXWidget) GetShell( this );
266 }
267
268 bool wxTopLevelWindowMotif::ShowFullScreen( bool WXUNUSED(show),
269 long WXUNUSED(style) )
270 {
271 // TODO, see wxGTK
272 return false;
273 }
274
275 bool wxTopLevelWindowMotif::IsFullScreen() const
276 {
277 // TODO, see wxGTK
278 return false;
279 }
280
281 void wxTopLevelWindowMotif::Restore()
282 {
283 Widget shell = GetShell( this );
284
285 if( shell )
286 XtVaSetValues( shell,
287 XmNiconic, False,
288 NULL );
289 }
290
291 void wxTopLevelWindowMotif::Iconize( bool iconize )
292 {
293 Widget shell = GetShell( this );
294 if( !shell ) return;
295
296 if( !iconize )
297 Show( true );
298
299 XtVaSetValues( shell,
300 XmNiconic, (Boolean)iconize,
301 NULL );
302 }
303
304 bool wxTopLevelWindowMotif::IsIconized() const
305 {
306 Widget shell = GetShell( this );
307
308 if( !shell )
309 return false;
310
311 Boolean iconic;
312 XtVaGetValues( shell,
313 XmNiconic, &iconic,
314 NULL );
315
316 return (iconic == True);
317 }
318
319 void wxTopLevelWindowMotif::Maximize( bool maximize )
320 {
321 Show( true );
322
323 if( maximize )
324 Restore();
325 }
326
327 bool wxTopLevelWindowMotif::IsMaximized() const
328 {
329 return false;
330 }
331
332 void wxTopLevelWindowMotif::DoSetSizeHints( int minW, int minH,
333 int maxW, int maxH,
334 int incW, int incH )
335 {
336 wxTopLevelWindowBase::DoSetSizeHints( minW, minH, maxW, maxH, incW, incH );
337
338 int count = 0;
339 Arg args[6];
340
341 if( minW > -1 ) { XtSetArg( args[count], XmNminWidth, minW ); ++count; }
342 if( minH > -1 ) { XtSetArg( args[count], XmNminHeight, minH ); ++count; }
343 if( maxW > -1 ) { XtSetArg( args[count], XmNmaxWidth, maxW ); ++count; }
344 if( maxH > -1 ) { XtSetArg( args[count], XmNmaxHeight, maxH ); ++count; }
345 if( incW > -1 ) { XtSetArg( args[count], XmNwidthInc, incW ); ++count; }
346 if( incH > -1 ) { XtSetArg( args[count], XmNheightInc, incH ); ++count; }
347
348 XtSetValues( (Widget)GetShellWidget(), args, count );
349 }
350
351 bool wxTopLevelWindowMotif::SetShape( const wxRegion& region )
352 {
353 return wxDoSetShape( (Display*)GetXDisplay(),
354 XtWindow( (Widget)GetShellWidget() ),
355 region );
356 }
357
358 // ---------------------------------------------------------------------------
359 // Callback definition
360 // ---------------------------------------------------------------------------
361
362 // Handle a close event from the window manager
363 static void wxCloseTLWCallback( Widget WXUNUSED(widget), XtPointer client_data,
364 XmAnyCallbackStruct *WXUNUSED(cbs) )
365 {
366 wxTopLevelWindowMotif* tlw = (wxTopLevelWindowMotif*)client_data;
367 wxCloseEvent closeEvent( wxEVT_CLOSE_WINDOW, tlw->GetId() );
368 closeEvent.SetEventObject( tlw );
369
370 // May delete the dialog (with delayed deletion)
371 tlw->HandleWindowEvent(closeEvent);
372 }
373
374 void wxTLWEventHandler( Widget wid,
375 XtPointer WXUNUSED(client_data),
376 XEvent* event,
377 Boolean* continueToDispatch)
378 {
379 wxTopLevelWindowMotif* tlw =
380 (wxTopLevelWindowMotif*)wxGetWindowFromTable( wid );
381
382 if( tlw )
383 {
384 wxMouseEvent wxevent( wxEVT_NULL );
385
386 if( wxTranslateMouseEvent( wxevent, tlw, wid, event ) )
387 {
388 wxevent.SetEventObject( tlw );
389 wxevent.SetId( tlw->GetId() );
390 tlw->HandleWindowEvent( wxevent );
391 }
392 else
393 {
394 // An attempt to implement OnCharHook by calling OnCharHook first;
395 // if this returns true, set continueToDispatch to False
396 // (don't continue processing).
397 // Otherwise set it to True and call OnChar.
398 wxKeyEvent keyEvent( wxEVT_CHAR );
399 if( wxTranslateKeyEvent( keyEvent, tlw, wid, event ))
400 {
401 keyEvent.SetEventObject( tlw );
402 keyEvent.SetId( tlw->GetId() );
403 keyEvent.SetEventType( wxEVT_CHAR_HOOK );
404 if( tlw->HandleWindowEvent( keyEvent ) )
405 {
406 *continueToDispatch = False;
407 return;
408 }
409 else
410 {
411 // For simplicity, OnKeyDown is the same as OnChar
412 // TODO: filter modifier key presses from OnChar
413 keyEvent.SetEventType( wxEVT_KEY_DOWN );
414
415 // Only process OnChar if OnKeyDown didn't swallow it
416 if( !tlw->HandleWindowEvent( keyEvent ) )
417 {
418 keyEvent.SetEventType( wxEVT_CHAR );
419 tlw->HandleWindowEvent( keyEvent );
420 }
421 }
422 }
423 }
424 }
425
426 *continueToDispatch = True;
427 }