src/x11/toplevel.cpp

   1 ///////////////////////////////////////////////////////////////////////////////
   2 // Name:        x11/toplevel.cpp
   3 // Purpose:     implements wxTopLevelWindow for X11
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     24.09.01
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) 2002 Julian Smart
   9 // License:     wxWindows licence
  10 ///////////////////////////////////////////////////////////////////////////////
  11
  12 // ============================================================================
  13 // declarations
  14 // ============================================================================
  15
  16 // ----------------------------------------------------------------------------
  17 // headers
  18 // ----------------------------------------------------------------------------
  19
  20 #ifdef __GNUG__
  21     #pragma implementation "toplevel.h"
  22 #endif
  23
  24 // For compilers that support precompilation, includes "wx.h".
  25 #include "wx/wxprec.h"
  26
  27 #ifdef __BORLANDC__
  28     #pragma hdrstop
  29 #endif
  30
  31 #ifndef WX_PRECOMP
  32     #include "wx/app.h"
  33     #include "wx/toplevel.h"
  34     #include "wx/string.h"
  35     #include "wx/log.h"
  36     #include "wx/intl.h"
  37     #include "wx/frame.h"
  38     #include "wx/menu.h"
  39     #include "wx/statusbr.h"
  40 #endif //WX_PRECOMP
  41
  42 #include "wx/settings.h"
  43 #include "wx/x11/private.h"
  44 #include "X11/Xutil.h"
  45
  46 #include "wx/unix/utilsx11.h"
  47
  48 bool wxMWMIsRunning(Window w);
  49
  50 // ----------------------------------------------------------------------------
  51 // wxTopLevelWindowX11 creation
  52 // ----------------------------------------------------------------------------
  53
  54 void wxTopLevelWindowX11::Init()
  55 {
  56     m_iconized =
  57     m_maximizeOnShow = FALSE;
  58
  59     // unlike (almost?) all other windows, frames are created hidden
  60     m_isShown = FALSE;
  61
  62     // Data to save/restore when calling ShowFullScreen
  63     m_fsStyle = 0;
  64     m_fsIsMaximized = FALSE;
  65     m_fsIsShowing = FALSE;
  66
  67     m_needResizeInIdle = FALSE;
  68
  69     m_x = -1;
  70     m_y = -1;
  71     m_width = 20;
  72     m_height = 20;
  73 }
  74
  75 bool wxTopLevelWindowX11::Create(wxWindow *parent,
  76                                  wxWindowID id,
  77                                  const wxString& title,
  78                                  const wxPoint& pos,
  79                                  const wxSize& size,
  80                                  long style,
  81                                  const wxString& name)
  82 {
  83     // init our fields
  84     Init();
  85
  86     m_windowStyle = style;
  87     m_parent = parent;
  88
  89     SetName(name);
  90
  91     m_windowId = id == -1 ? NewControlId() : id;
  92
  93     if (parent)
  94         parent->AddChild(this);
  95
  96     wxTopLevelWindows.Append(this);
  97
  98     Display *xdisplay = wxGlobalDisplay();
  99     int xscreen = DefaultScreen( xdisplay );
 100     Visual *xvisual = DefaultVisual( xdisplay, xscreen );
 101     Window xparent = RootWindow( xdisplay, xscreen );
 102     Colormap cm = DefaultColormap( xdisplay, xscreen );
 103
 104     if (GetExtraStyle() & wxTOPLEVEL_EX_DIALOG)
 105         m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_BTNFACE);
 106     else
 107         m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_APPWORKSPACE);
 108     m_backgroundColour.CalcPixel( (WXColormap) cm );
 109     m_hasBgCol = TRUE;
 110
 111     m_x = pos.x;
 112     if (m_x < -1)
 113         m_x = 10;
 114
 115     m_y = pos.y;
 116     if (m_y < 0)
 117         m_y = 10;
 118
 119     m_width = size.x;
 120     if (m_width < 0)
 121         m_width = 500;
 122
 123     m_height = size.y;
 124     if (m_height < 0)
 125         m_height = 380;
 126
 127 #if !wxUSE_NANOX
 128     XSetWindowAttributes xattributes;
 129
 130     long xattributes_mask =
 131         CWBorderPixel | CWBackPixel;
 132
 133     xattributes.background_pixel = m_backgroundColour.GetPixel();
 134     xattributes.border_pixel = BlackPixel( xdisplay, xscreen );
 135
 136     if (HasFlag( wxNO_BORDER ))
 137     {
 138         xattributes_mask |= CWOverrideRedirect;
 139         xattributes.override_redirect = True;
 140     }
 141
 142     if (HasFlag( wxNO_FULL_REPAINT_ON_RESIZE ))
 143     {
 144         xattributes_mask |= CWBitGravity;
 145         xattributes.bit_gravity = NorthWestGravity;
 146     }
 147
 148     xattributes_mask |= CWEventMask;
 149     xattributes.event_mask =
 150         ExposureMask | KeyPressMask | KeyReleaseMask | ButtonPressMask | ButtonReleaseMask |
 151         ButtonMotionMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask |
 152         KeymapStateMask | FocusChangeMask | ColormapChangeMask | StructureNotifyMask |
 153         PropertyChangeMask;
 154
 155     Window xwindow = XCreateWindow( xdisplay, xparent, m_x, m_y, m_width, m_height,
 156                                     0, DefaultDepth(xdisplay,xscreen), InputOutput, xvisual, xattributes_mask, &xattributes );
 157 #else
 158     long backColor, foreColor;
 159     backColor = GR_RGB(m_backgroundColour.Red(), m_backgroundColour.Green(), m_backgroundColour.Blue());
 160     foreColor = GR_RGB(m_foregroundColour.Red(), m_foregroundColour.Green(), m_foregroundColour.Blue());
 161
 162     Window xwindow = XCreateWindowWithColor( xdisplay, xparent, m_x, m_y, m_width, m_height,
 163                                     0, 0, InputOutput, xvisual, backColor, foreColor);
 164 #endif
 165
 166     m_mainWindow = (WXWindow) xwindow;
 167     m_clientWindow = (WXWindow) xwindow;
 168     wxAddWindowToTable( xwindow, (wxWindow*) this );
 169
 170 #if wxUSE_NANOX
 171     XSelectInput( xdisplay, xwindow,
 172                   GR_EVENT_MASK_CLOSE_REQ |
 173                   ExposureMask |
 174                   KeyPressMask |
 175                   KeyReleaseMask |
 176                   ButtonPressMask |
 177                   ButtonReleaseMask |
 178                   ButtonMotionMask |
 179                   EnterWindowMask |
 180                   LeaveWindowMask |
 181                   PointerMotionMask |
 182                   KeymapStateMask |
 183                   FocusChangeMask |
 184                   ColormapChangeMask |
 185                   StructureNotifyMask |
 186                   PropertyChangeMask
 187                   );
 188 #endif
 189
 190     // Set background to None which will prevent X11 from clearing the
 191     // background completely.
 192     XSetWindowBackgroundPixmap( xdisplay, xwindow, None );
 193
 194 #if !wxUSE_NANOX
 195     if (HasFlag( wxSTAY_ON_TOP ))
 196     {
 197         Window xroot = RootWindow( xdisplay, xscreen );
 198         XSetTransientForHint( xdisplay, xwindow, xroot );
 199     }
 200     else
 201     {
 202        if (GetExtraStyle() & wxTOPLEVEL_EX_DIALOG)
 203        {
 204             if (GetParent() && GetParent()->GetMainWindow())
 205             {
 206                 Window xparentwindow = (Window) GetParent()->GetMainWindow();
 207                 XSetTransientForHint( xdisplay, xwindow, xparentwindow );
 208             }
 209         }
 210     }
 211
 212     XSizeHints size_hints;
 213     size_hints.flags = PSize | PPosition | PWinGravity;
 214     size_hints.x = m_x;
 215     size_hints.y = m_y;
 216     size_hints.width = m_width;
 217     size_hints.height = m_height;
 218     size_hints.win_gravity = NorthWestGravity;
 219     XSetWMNormalHints( xdisplay, xwindow, &size_hints);
 220
 221     XWMHints wm_hints;
 222     wm_hints.flags = InputHint | StateHint;
 223     if (GetParent())
 224     {
 225         wm_hints.flags |= WindowGroupHint;
 226         wm_hints.window_group = (Window) GetParent()->GetMainWindow();
 227     }
 228     wm_hints.input = True;
 229     wm_hints.initial_state = NormalState;
 230     XSetWMHints( xdisplay, xwindow, &wm_hints);
 231
 232     Atom wm_protocols[2];
 233     wm_protocols[0] = XInternAtom( xdisplay, "WM_DELETE_WINDOW", False );
 234     wm_protocols[1] = XInternAtom( xdisplay, "WM_TAKE_FOCUS", False );
 235     XSetWMProtocols( xdisplay, xwindow, wm_protocols, 2);
 236
 237 #endif
 238
 239     wxSetWMDecorations( xwindow, style);
 240
 241     SetTitle(title);
 242
 243     return TRUE;
 244 }
 245
 246 wxTopLevelWindowX11::~wxTopLevelWindowX11()
 247 {
 248     wxTopLevelWindows.DeleteObject(this);
 249
 250     // If this is the last top-level window, exit.
 251     if ( wxTheApp && (wxTopLevelWindows.GetCount() == 0) )
 252     {
 253         wxTheApp->SetTopWindow(NULL);
 254
 255         if (wxTheApp->GetExitOnFrameDelete())
 256         {
 257             // Signal to the app that we're going to close
 258             wxTheApp->ExitMainLoop();
 259         }
 260     }
 261 }
 262
 263 void wxTopLevelWindowX11::OnInternalIdle()
 264 {
 265     wxWindow::OnInternalIdle();
 266
 267     // Do this only after the last idle event so that
 268     // all windows have been updated before a new
 269     // round of size events is sent
 270     if (m_needResizeInIdle && !wxTheApp->Pending())
 271     {
 272         wxSizeEvent event( GetClientSize(), GetId() );
 273         event.SetEventObject( this );
 274         GetEventHandler()->ProcessEvent( event );
 275
 276         m_needResizeInIdle = FALSE;
 277     }
 278 }
 279
 280 // ----------------------------------------------------------------------------
 281 // wxTopLevelWindowX11 showing
 282 // ----------------------------------------------------------------------------
 283
 284 bool wxTopLevelWindowX11::Show(bool show)
 285 {
 286     if (show)
 287     {
 288         wxSizeEvent event(GetSize(), GetId());
 289
 290         event.SetEventObject(this);
 291         GetEventHandler()->ProcessEvent(event);
 292
 293         m_needResizeInIdle = FALSE;
 294     }
 295
 296     bool ret = wxWindowX11::Show(show);
 297
 298     return ret;
 299 }
 300
 301 // ----------------------------------------------------------------------------
 302 // wxTopLevelWindowX11 maximize/minimize
 303 // ----------------------------------------------------------------------------
 304
 305 void wxTopLevelWindowX11::Maximize(bool maximize)
 306 {
 307     // TODO
 308 }
 309
 310 bool wxTopLevelWindowX11::IsMaximized() const
 311 {
 312     // TODO
 313     return TRUE;
 314 }
 315
 316 void wxTopLevelWindowX11::Iconize(bool iconize)
 317 {
 318     if (!m_iconized && GetMainWindow())
 319     {
 320         if (XIconifyWindow(wxGlobalDisplay(),
 321             (Window) GetMainWindow(), DefaultScreen(wxGlobalDisplay())) != 0)
 322             m_iconized = TRUE;
 323     }
 324 }
 325
 326 bool wxTopLevelWindowX11::IsIconized() const
 327 {
 328     return m_iconized;
 329 }
 330
 331 void wxTopLevelWindowX11::Restore()
 332 {
 333     // This is the way to deiconify the window, according to the X FAQ
 334     if (m_iconized && GetMainWindow())
 335     {
 336         XMapWindow(wxGlobalDisplay(), (Window) GetMainWindow());
 337         m_iconized = FALSE;
 338     }
 339 }
 340
 341 // ----------------------------------------------------------------------------
 342 // wxTopLevelWindowX11 fullscreen
 343 // ----------------------------------------------------------------------------
 344
 345 bool wxTopLevelWindowX11::ShowFullScreen(bool show, long style)
 346 {
 347     if (show)
 348     {
 349         if (IsFullScreen())
 350             return FALSE;
 351
 352         m_fsIsShowing = TRUE;
 353         m_fsStyle = style;
 354
 355         // TODO
 356
 357         return TRUE;
 358     }
 359     else
 360     {
 361         if (!IsFullScreen())
 362             return FALSE;
 363
 364         m_fsIsShowing = FALSE;
 365
 366         // TODO
 367         return TRUE;
 368     }
 369 }
 370
 371 // ----------------------------------------------------------------------------
 372 // wxTopLevelWindowX11 misc
 373 // ----------------------------------------------------------------------------
 374
 375 void wxTopLevelWindowX11::DoSetIcon(const wxIcon& icon)
 376 {
 377     if (icon.Ok() && GetMainWindow())
 378     {
 379 #if wxUSE_NANOX
 380 #else
 381         XWMHints *wmHints = XAllocWMHints();
 382         wmHints->icon_pixmap = (Pixmap) icon.GetPixmap();
 383
 384         wmHints->flags = IconPixmapHint;
 385
 386         if (icon.GetMask())
 387         {
 388             wmHints->flags |= IconMaskHint;
 389             wmHints->icon_mask = (Pixmap) icon.GetMask()->GetBitmap();
 390         }
 391
 392         XSetWMHints(wxGlobalDisplay(), (Window) GetMainWindow(), wmHints);
 393         XFree(wmHints);
 394 #endif
 395     }
 396 }
 397
 398 void wxTopLevelWindowX11::SetIcons(const wxIconBundle& icons )
 399 {
 400     // this sets m_icon
 401     wxTopLevelWindowBase::SetIcons( icons );
 402
 403     DoSetIcon( icons.GetIcon( -1 ) );
 404     wxSetIconsX11( wxGlobalDisplay(), GetMainWindow(), icons );
 405 }
 406
 407 bool wxTopLevelWindowX11::SetShape(const wxRegion& region)
 408 {
 409     return wxDoSetShape( wxGlobalDisplay(),
 410                          (Window)GetMainWindow(),
 411                          region );
 412 }
 413
 414 void wxTopLevelWindowX11::SetTitle(const wxString& title)
 415 {
 416     m_title = title;
 417
 418     if (GetMainWindow())
 419     {
 420 #if wxUSE_UNICODE
 421         //  I wonder of e.g. Metacity takes UTF-8 here
 422         XStoreName(wxGlobalDisplay(), (Window) GetMainWindow(),
 423             (const char*) title.ToAscii() );
 424         XSetIconName(wxGlobalDisplay(), (Window) GetMainWindow(),
 425             (const char*) title.ToAscii() );
 426 #else
 427         XStoreName(wxGlobalDisplay(), (Window) GetMainWindow(),
 428             (const char*) title);
 429         XSetIconName(wxGlobalDisplay(), (Window) GetMainWindow(),
 430             (const char*) title);
 431 #endif
 432     }
 433 }
 434
 435 wxString wxTopLevelWindowX11::GetTitle() const
 436 {
 437     return m_title;
 438 }
 439
 440 // For implementation purposes - sometimes decorations make the client area
 441 // smaller
 442 wxPoint wxTopLevelWindowX11::GetClientAreaOrigin() const
 443 {
 444     // wxFrame::GetClientAreaOrigin
 445     // does the required calculation already.
 446     return wxPoint(0, 0);
 447 }
 448
 449 void wxTopLevelWindowX11::DoGetClientSize( int *width, int *height ) const
 450 {
 451     if (width)
 452        *width = m_width;
 453     if (height)
 454        *height = m_height;
 455 }
 456
 457 void wxTopLevelWindowX11::DoGetSize( int *width, int *height ) const
 458 {
 459     // TODO add non-client size
 460
 461     if (width)
 462        *width = m_width;
 463     if (height)
 464        *height = m_height;
 465 }
 466
 467 void wxTopLevelWindowX11::DoSetClientSize(int width, int height)
 468 {
 469     int old_width = m_width;
 470     int old_height = m_height;
 471
 472     m_width = width;
 473     m_height = height;
 474
 475     if (m_width == old_width && m_height == old_height)
 476         return;
 477
 478     // wxLogDebug("DoSetClientSize: %s (%ld) %dx%d", GetClassInfo()->GetClassName(), GetId(), width, height);
 479
 480 #if !wxUSE_NANOX
 481     XSizeHints size_hints;
 482     size_hints.flags = PSize;
 483     size_hints.width = width;
 484     size_hints.height = height;
 485     XSetWMNormalHints( wxGlobalDisplay(), (Window) GetMainWindow(), &size_hints );
 486 #endif
 487
 488     wxWindowX11::DoSetClientSize(width, height);
 489 }
 490
 491 void wxTopLevelWindowX11::DoSetSize(int x, int y, int width, int height, int sizeFlags)
 492 {
 493     int old_x = m_x;
 494     int old_y = m_y;
 495     int old_width = m_width;
 496     int old_height = m_height;
 497
 498     if (x != -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
 499         m_x = x;
 500
 501     if (y != -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
 502         m_y = y;
 503
 504     if (width != -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
 505         m_width = width;
 506
 507     if (height != -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
 508         m_height = height;
 509
 510     if (m_x == old_x && m_y == old_y && m_width == old_width && m_height == old_height)
 511         return;
 512
 513     // wxLogDebug("DoSetSize: %s (%ld) %d, %d %dx%d", GetClassInfo()->GetClassName(), GetId(), x, y, width, height);
 514
 515 #if !wxUSE_NANOX
 516     XSizeHints size_hints;
 517     size_hints.flags = 0;
 518     size_hints.flags |= PPosition;
 519     size_hints.flags |= PSize;
 520     size_hints.x = m_x;
 521     size_hints.y = m_y;
 522     size_hints.width = m_width;
 523     size_hints.height = m_height;
 524     XSetWMNormalHints( wxGlobalDisplay(), (Window) GetMainWindow(), &size_hints);
 525 #endif
 526
 527     wxWindowX11::DoSetSize(x, y, width, height, sizeFlags);
 528
 529 #if 0
 530     Display *display = wxGlobalDisplay();
 531     Window root = RootWindowOfScreen(DefaultScreenOfDisplay(display));
 532     Window parent_window = window,
 533         next_parent   = window;
 534
 535     // search for the parent that is child of ROOT, because the WM may
 536     // reparent twice and notify only the next parent (like FVWM)
 537     while (next_parent != root) {
 538         Window *theChildren;
 539 #if wxUSE_NANOX
 540         GR_COUNT n;
 541 #else
 542         unsigned int n;
 543 #endif
 544         parent_window = next_parent;
 545         XQueryTree(display, parent_window, &root,
 546             &next_parent, &theChildren, &n);
 547         XFree(theChildren); // not needed
 548     }
 549
 550     XWindowChanges windowChanges;
 551     windowChanges.x = x;
 552     windowChanges.y = y;
 553     windowChanges.width = width;
 554     windowChanges.height = height;
 555     windowChanges.stack_mode = 0;
 556     int valueMask = CWX | CWY | CWWidth | CWHeight;
 557
 558     if (x != -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
 559     {
 560         valueMask |= CWX;
 561     }
 562     if (y != -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
 563     {
 564         valueMask |= CWY;
 565     }
 566     if (width != -1)
 567     {
 568         windowChanges.width = wxMax(1, width);
 569         valueMask |= CWWidth;
 570     }
 571     if (height != -1)
 572     {
 573         windowChanges.height = wxMax(1, height);
 574         valueMask |= CWHeight;
 575     }
 576
 577     XConfigureWindow( display, parent_window, valueMask, &windowChanges );
 578 #endif
 579 }
 580
 581 void wxTopLevelWindowX11::DoGetPosition(int *x, int *y) const
 582 {
 583     XSync(wxGlobalDisplay(), False);
 584     Window window = (Window) m_mainWindow;
 585     if (!window)
 586         return ;
 587
 588     Display *display = wxGlobalDisplay();
 589     Window root = RootWindowOfScreen(DefaultScreenOfDisplay(display));
 590     Window parent_window = window,
 591         next_parent   = window;
 592
 593     // search for the parent that is child of ROOT, because the WM may
 594     // reparent twice and notify only the next parent (like FVWM)
 595     while (next_parent != root) {
 596         Window *theChildren;
 597 #if wxUSE_NANOX
 598         GR_COUNT n;
 599 #else
 600         unsigned int n;
 601 #endif
 602         parent_window = next_parent;
 603         XQueryTree(display, parent_window, &root,
 604             &next_parent, &theChildren, &n);
 605         XFree(theChildren); // not needed
 606     }
 607 #if 0
 608     int xx, yy; unsigned int dummy;
 609     XGetGeometry(display, parent_window, &root,
 610                  &xx, &yy, &dummy, &dummy, &dummy, &dummy);
 611     if (x) *x = xx;
 612     if (y) *y = yy;
 613 #else
 614     XWindowAttributes attr;
 615     Status status = XGetWindowAttributes( wxGlobalDisplay(), parent_window, & attr);
 616     if (status)
 617     {
 618         if (x) *x = attr.x;
 619         if (y) *y = attr.y;
 620     }
 621     else
 622     {
 623         if (x) *x = 0;
 624         if (y) *y = 0;
 625     }
 626 #endif
 627 }
 628
 629
 630 #ifndef MWM_DECOR_BORDER
 631
 632 #define MWM_HINTS_FUNCTIONS     (1L << 0)
 633 #define MWM_HINTS_DECORATIONS   (1L << 1)
 634 #define MWM_HINTS_INPUT_MODE    (1L << 2)
 635 #define MWM_HINTS_STATUS        (1L << 3)
 636
 637 #define MWM_DECOR_ALL           (1L << 0)
 638 #define MWM_DECOR_BORDER        (1L << 1)
 639 #define MWM_DECOR_RESIZEH       (1L << 2)
 640 #define MWM_DECOR_TITLE         (1L << 3)
 641 #define MWM_DECOR_MENU          (1L << 4)
 642 #define MWM_DECOR_MINIMIZE      (1L << 5)
 643 #define MWM_DECOR_MAXIMIZE      (1L << 6)
 644
 645 #define MWM_FUNC_ALL            (1L << 0)
 646 #define MWM_FUNC_RESIZE         (1L << 1)
 647 #define MWM_FUNC_MOVE           (1L << 2)
 648 #define MWM_FUNC_MINIMIZE       (1L << 3)
 649 #define MWM_FUNC_MAXIMIZE       (1L << 4)
 650 #define MWM_FUNC_CLOSE          (1L << 5)
 651
 652 #define MWM_INPUT_MODELESS 0
 653 #define MWM_INPUT_PRIMARY_APPLICATION_MODAL 1
 654 #define MWM_INPUT_SYSTEM_MODAL 2
 655 #define MWM_INPUT_FULL_APPLICATION_MODAL 3
 656 #define MWM_INPUT_APPLICATION_MODAL MWM_INPUT_PRIMARY_APPLICATION_MODAL
 657
 658 #define MWM_TEAROFF_WINDOW      (1L<<0)
 659
 660 #endif
 661
 662 struct MwmHints {
 663     long flags;
 664     long functions;
 665     long decorations;
 666     long input_mode;
 667 };
 668
 669 #define PROP_MOTIF_WM_HINTS_ELEMENTS 5
 670
 671 // Set the window manager decorations according to the
 672 // given wxWindows style
 673 bool wxSetWMDecorations(Window w, long style)
 674 {
 675 #if wxUSE_NANOX
 676     GR_WM_PROPERTIES wmProp;
 677
 678     wmProp.flags = 0;
 679     wmProp.props = 0;
 680
 681     if (style & wxRESIZE_BORDER)
 682     {
 683         wmProp.props |= GR_WM_PROPS_APPFRAME ;
 684         wmProp.flags |= GR_WM_FLAGS_PROPS ;
 685     }
 686
 687     if (style & wxCLOSE_BOX)
 688     {
 689         wmProp.props |= GR_WM_PROPS_CLOSEBOX ;
 690         wmProp.flags |= GR_WM_FLAGS_PROPS ;
 691     }
 692
 693     if ((style & wxCAPTION) ||
 694         (style & wxTINY_CAPTION_HORIZ) ||
 695         (style & wxTINY_CAPTION_VERT))
 696     {
 697         wmProp.props |= GR_WM_PROPS_CAPTION ;
 698         wmProp.flags |= GR_WM_FLAGS_PROPS ;
 699
 700         // The default dialog style doesn't include any kind
 701         // of border, which is a bit odd. Anyway, inclusion
 702         // of a caption surely implies a border.
 703         style |= wxTHICK_FRAME;
 704     }
 705
 706     if (style & wxTHICK_FRAME)
 707     {
 708         wmProp.props |= GR_WM_PROPS_APPFRAME ;
 709         wmProp.flags |= GR_WM_FLAGS_PROPS ;
 710     }
 711
 712     if (style & wxSIMPLE_BORDER)
 713     {
 714         wmProp.props |= GR_WM_PROPS_BORDER ;
 715         wmProp.flags |= GR_WM_FLAGS_PROPS ;
 716     }
 717
 718     if (style & wxMINIMIZE_BOX)
 719     {
 720     }
 721
 722     if (style & wxMAXIMIZE_BOX)
 723     {
 724         wmProp.props |= GR_WM_PROPS_MAXIMIZE ;
 725         wmProp.flags |= GR_WM_FLAGS_PROPS ;
 726     }
 727
 728     if (((style & wxBORDER) != wxBORDER) && ((style & wxTHICK_FRAME) != wxTHICK_FRAME)
 729         && ((style & wxRESIZE_BORDER) != wxRESIZE_BORDER))
 730     {
 731         wmProp.props |= GR_WM_PROPS_NODECORATE ;
 732         wmProp.flags |= GR_WM_FLAGS_PROPS ;
 733     }
 734
 735     GrSetWMProperties(w, & wmProp);
 736
 737 #else
 738
 739     Atom mwm_wm_hints = XInternAtom(wxGlobalDisplay(),"_MOTIF_WM_HINTS", False);
 740     if (mwm_wm_hints == 0)
 741        return FALSE;
 742
 743     MwmHints hints;
 744     hints.flags = MWM_HINTS_DECORATIONS | MWM_HINTS_FUNCTIONS;
 745     hints.decorations = 0;
 746     hints.functions = 0;
 747
 748     if ((style & wxSIMPLE_BORDER) || (style & wxNO_BORDER))
 749     {
 750         // leave zeros
 751     }
 752     else
 753     {
 754         hints.decorations = MWM_DECOR_BORDER;
 755         hints.functions = MWM_FUNC_MOVE;
 756
 757         if ((style & wxCAPTION) != 0)
 758             hints.decorations |= MWM_DECOR_TITLE;
 759
 760         if ((style & wxSYSTEM_MENU) != 0)
 761             hints.decorations |= MWM_DECOR_MENU;
 762
 763         if ((style & wxCLOSE_BOX) != 0)
 764             hints.functions |= MWM_FUNC_CLOSE;
 765
 766         if ((style & wxMINIMIZE_BOX) != 0)
 767         {
 768             hints.functions |= MWM_FUNC_MINIMIZE;
 769             hints.decorations |= MWM_DECOR_MINIMIZE;
 770         }
 771
 772         if ((style & wxMAXIMIZE_BOX) != 0)
 773         {
 774             hints.functions |= MWM_FUNC_MAXIMIZE;
 775             hints.decorations |= MWM_DECOR_MAXIMIZE;
 776         }
 777
 778         if ((style & wxRESIZE_BORDER) != 0)
 779         {
 780             hints.functions |= MWM_FUNC_RESIZE;
 781             hints.decorations |= MWM_DECOR_RESIZEH;
 782         }
 783     }
 784
 785     XChangeProperty(wxGlobalDisplay(),
 786                     w,
 787                     mwm_wm_hints, mwm_wm_hints,
 788                     32, PropModeReplace,
 789                     (unsigned char *) &hints, PROP_MOTIF_WM_HINTS_ELEMENTS);
 790
 791 #endif
 792     return TRUE;
 793 }
 794
 795