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 }