src/motif/window.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/motif/window.cpp
   3 // Purpose:     wxWindow
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     17/09/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   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 #ifdef __VMS
  24 #define XtDisplay XTDISPLAY
  25 #define XtWindow XTWINDOW
  26 #define XtScreen XTSCREEN
  27 #endif
  28
  29 #ifndef WX_PRECOMP
  30     #include "wx/hash.h"
  31     #include "wx/log.h"
  32     #include "wx/app.h"
  33     #include "wx/utils.h"
  34     #include "wx/frame.h"
  35     #include "wx/dc.h"
  36     #include "wx/dcclient.h"
  37     #include "wx/button.h"
  38     #include "wx/menu.h"
  39     #include "wx/settings.h"
  40     #include "wx/scrolwin.h"
  41     #include "wx/layout.h"
  42     #include "wx/menuitem.h"
  43     #include "wx/module.h"
  44 #endif
  45
  46 #include "wx/evtloop.h"
  47
  48 #if  wxUSE_DRAG_AND_DROP
  49     #include "wx/dnd.h"
  50 #endif
  51
  52 // DoSetSizeIntr and DoMoveWindowIntr
  53 // PROBLEM:
  54 // under Motif composite controls (such as wxCalendarCtrl or generic wxSpinCtrl
  55 // did not work and/or segfaulted because
  56 // 1) wxWindow::Create calls SetSize,
  57 //    which results in a call to DoSetSize much earlier than in the other ports
  58 // 2) if wxWindow::Create is called (wxControl::Create calls it)
  59 //    then DoSetSize is never called, causing layout problems in composite
  60 //    controls
  61 //
  62 // SOLUTION:
  63 // 1) don't call SetSize, DoSetSize, DoMoveWindow, DoGetPosition,
  64 //    DoSetPosition directly or indirectly from wxWindow::Create
  65 // 2) call DoMoveWindow from DoSetSize, allowing controls to override it
  66
  67 #ifdef __VMS__
  68     #pragma message disable nosimpint
  69 #endif
  70 #include <Xm/Xm.h>
  71
  72 #include <Xm/DrawingA.h>
  73 #include <Xm/ScrolledW.h>
  74 #include <Xm/ScrollBar.h>
  75 #include <Xm/Frame.h>
  76 #include <Xm/Label.h>
  77 #include <Xm/RowColumn.h>           // for XmMenuPosition
  78 #ifdef __VMS__
  79     #pragma message enable nosimpint
  80 #endif
  81
  82 #include "wx/motif/private.h"
  83
  84 #include <string.h>
  85
  86 // ----------------------------------------------------------------------------
  87 // global variables for this module
  88 // ----------------------------------------------------------------------------
  89
  90 extern wxHashTable *wxWidgetHashTable;
  91 static wxWindow* g_captureWindow = NULL;
  92
  93
  94 // ----------------------------------------------------------------------------
  95 // private functions
  96 // ----------------------------------------------------------------------------
  97
  98 static void wxCanvasRepaintProc(Widget, XtPointer, XmDrawingAreaCallbackStruct * cbs);
  99 static void wxCanvasInputEvent(Widget drawingArea, XtPointer data, XmDrawingAreaCallbackStruct * cbs);
 100 static void wxCanvasMotionEvent(Widget, XButtonEvent * event);
 101 static void wxCanvasEnterLeave(Widget drawingArea, XtPointer clientData, XCrossingEvent * event);
 102 static void wxScrollBarCallback(Widget widget, XtPointer clientData,
 103                                 XmScrollBarCallbackStruct *cbs);
 104 static void wxPanelItemEventHandler(Widget    wid,
 105                                     XtPointer client_data,
 106                                     XEvent*   event,
 107                                     Boolean  *continueToDispatch);
 108
 109 // unused for now
 110 #if 0
 111
 112 // Helper function for 16-bit fonts
 113 static int str16len(const char *s)
 114 {
 115     int count = 0;
 116
 117     while (s[0] && s[1]) {
 118         count++;
 119         s += 2;
 120     }
 121
 122     return count;
 123 }
 124
 125 #endif // 0
 126
 127 // ----------------------------------------------------------------------------
 128 // macros
 129 // ----------------------------------------------------------------------------
 130
 131 #define event_left_is_down(x) ((x)->xbutton.state & Button1Mask)
 132 #define event_middle_is_down(x) ((x)->xbutton.state & Button2Mask)
 133 #define event_right_is_down(x) ((x)->xbutton.state & Button3Mask)
 134
 135 // ----------------------------------------------------------------------------
 136 // event tables
 137 // ----------------------------------------------------------------------------
 138
 139     IMPLEMENT_DYNAMIC_CLASS(wxWindow, wxWindowBase)
 140
 141     BEGIN_EVENT_TABLE(wxWindow, wxWindowBase)
 142         EVT_SYS_COLOUR_CHANGED(wxWindow::OnSysColourChanged)
 143     END_EVENT_TABLE()
 144
 145 // ============================================================================
 146 // implementation
 147 // ============================================================================
 148
 149 // ----------------------------------------------------------------------------
 150 // helper functions
 151 // ----------------------------------------------------------------------------
 152
 153 void wxWindow::UnmanageAndDestroy(WXWidget widget)
 154 {
 155     Widget w = (Widget)widget;
 156     if ( w )
 157     {
 158         XtUnmanageChild(w);
 159         XtDestroyWidget(w);
 160     }
 161 }
 162
 163 bool wxWindow::MapOrUnmap(WXWidget widget, bool domap)
 164 {
 165     Widget w = (Widget)widget;
 166     if ( !w )
 167         return false;
 168
 169     //   Rationale: a lot of common operations (including but not
 170     // limited to moving, resizing and appending items to a listbox)
 171     // unmamange the widget, do their work, then manage it again.
 172     // This means that, for example adding an item to a listbox will show it,
 173     // or that most controls are shown every time they are moved or resized!
 174     XtSetMappedWhenManaged( w, domap );
 175
 176     // if the widget is not unmanaged, it still intercepts
 177     // mouse events, even if it is not mapped (and hence invisible)
 178     if ( domap )
 179     {
 180         XtManageChild(w);
 181         // XtMapWidget(w);
 182     }
 183     else
 184     {
 185         XtUnmanageChild(w);
 186         // XtUnmapWidget(w);
 187     }
 188
 189     return true;
 190 }
 191
 192 // ----------------------------------------------------------------------------
 193 // constructors
 194 // ----------------------------------------------------------------------------
 195
 196 void wxWindow::Init()
 197 {
 198     // Motif-specific
 199     m_needsRefresh = true;
 200     m_mainWidget = (WXWidget) 0;
 201
 202     m_winCaptured = false;
 203
 204     m_isShown = true;
 205
 206     m_hScrollBar =
 207     m_vScrollBar =
 208     m_borderWidget =
 209     m_scrolledWindow =
 210     m_drawingArea = (WXWidget) 0;
 211
 212     m_scrollPosX =
 213     m_scrollPosY = 0;
 214
 215     m_backingPixmap = (WXPixmap) 0;
 216     m_pixmapWidth =
 217     m_pixmapHeight = 0;
 218
 219     m_pixmapOffsetX =
 220     m_pixmapOffsetY = 0;
 221
 222     m_lastTS = 0;
 223     m_lastButton = 0;
 224 }
 225
 226 // real construction (Init() must have been called before!)
 227 bool wxWindow::Create(wxWindow *parent, wxWindowID id,
 228                       const wxPoint& pos,
 229                       const wxSize& size,
 230                       long style,
 231                       const wxString& name)
 232 {
 233     wxCHECK_MSG( parent, false, "can't create wxWindow without parent" );
 234
 235     CreateBase(parent, id, pos, size, style, wxDefaultValidator, name);
 236
 237     parent->AddChild(this);
 238
 239     m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE);
 240     m_foregroundColour = *wxBLACK;
 241
 242     //// TODO: we should probably optimize by only creating a
 243     //// a drawing area if we have one or more scrollbars (wxVSCROLL/wxHSCROLL).
 244     //// But for now, let's simplify things by always creating the
 245     //// drawing area, since otherwise the translations are different.
 246
 247     // New translations for getting mouse motion feedback
 248     static const String translations = wxMOTIF_STR(
 249 "<Btn1Motion>: wxCanvasMotionEvent() DrawingAreaInput() ManagerGadgetButtonMotion()\n\
 250 <Btn2Motion>: wxCanvasMotionEvent() DrawingAreaInput() ManagerGadgetButtonMotion()\n\
 251 <Btn3Motion>: wxCanvasMotionEvent() DrawingAreaInput() ManagerGadgetButtonMotion()\n\
 252 <BtnMotion>: wxCanvasMotionEvent() DrawingAreaInput() ManagerGadgetButtonMotion()\n\
 253 <Btn1Down>: DrawingAreaInput() ManagerGadgetArm()\n\
 254 <Btn2Down>: DrawingAreaInput() ManagerGadgetArm()\n\
 255 <Btn3Down>: DrawingAreaInput() ManagerGadgetArm()\n\
 256 <Btn1Up>: DrawingAreaInput() ManagerGadgetActivate()\n\
 257 <Btn2Up>: DrawingAreaInput() ManagerGadgetActivate()\n\
 258 <Btn3Up>: DrawingAreaInput() ManagerGadgetActivate()\n\
 259 <Motion>: wxCanvasMotionEvent() DrawingAreaInput()\n\
 260 <EnterWindow>: wxCanvasMotionEvent() DrawingAreaInput()\n\
 261 <LeaveWindow>: wxCanvasMotionEvent() DrawingAreaInput()\n\
 262 <Key>: DrawingAreaInput()");
 263
 264     XtActionsRec actions[1];
 265     actions[0].string = wxMOTIF_STR("wxCanvasMotionEvent");
 266     actions[0].proc = (XtActionProc) wxCanvasMotionEvent;
 267     XtAppAddActions ((XtAppContext) wxTheApp->GetAppContext(), actions, 1);
 268
 269     Widget parentWidget = (Widget) parent->GetClientWidget();
 270     m_borderWidget = wxCreateBorderWidget( (WXWidget)parentWidget, style );
 271
 272     m_scrolledWindow = (WXWidget)XtVaCreateManagedWidget
 273                                  (
 274                                   "scrolledWindow",
 275                                   xmScrolledWindowWidgetClass,
 276                                   m_borderWidget ? (Widget) m_borderWidget
 277                                                  : parentWidget,
 278                                   XmNresizePolicy, XmRESIZE_NONE,
 279                                   XmNspacing, 0,
 280                                   XmNscrollingPolicy, XmAPPLICATION_DEFINED,
 281                                   //XmNscrollBarDisplayPolicy, XmAS_NEEDED,
 282                                   NULL
 283                                  );
 284
 285     XtTranslations ptr = XtParseTranslationTable(translations);
 286     m_drawingArea = (WXWidget)XtVaCreateWidget
 287                               (
 288                                name,
 289                                xmDrawingAreaWidgetClass, (Widget) m_scrolledWindow,
 290                                XmNunitType, XmPIXELS,
 291                                // XmNresizePolicy, XmRESIZE_ANY,
 292                                XmNresizePolicy, XmRESIZE_NONE,
 293                                XmNmarginHeight, 0,
 294                                XmNmarginWidth, 0,
 295                                XmNtranslations, ptr,
 296                                NULL
 297                               );
 298     XtFree((char *) ptr);
 299
 300 #if 0
 301     if (GetWindowStyleFlag() & wxOVERRIDE_KEY_TRANSLATIONS)
 302     {
 303         ptr = XtParseTranslationTable ("<Key>: DrawingAreaInput()");
 304         XtOverrideTranslations ((Widget) m_drawingArea, ptr);
 305         XtFree ((char *) ptr);
 306     }
 307 #endif // 0
 308
 309     wxAddWindowToTable((Widget) m_drawingArea, this);
 310     wxAddWindowToTable((Widget) m_scrolledWindow, this);
 311
 312     // This order is very important in Motif 1.2.1
 313     XtRealizeWidget ((Widget) m_scrolledWindow);
 314     XtRealizeWidget ((Widget) m_drawingArea);
 315     XtManageChild ((Widget) m_drawingArea);
 316
 317     ptr = XtParseTranslationTable("<Configure>: resize()");
 318     XtOverrideTranslations((Widget) m_drawingArea, ptr);
 319     XtFree ((char *) ptr);
 320
 321     XtAddCallback ((Widget) m_drawingArea, XmNexposeCallback, (XtCallbackProc) wxCanvasRepaintProc, (XtPointer) this);
 322     XtAddCallback ((Widget) m_drawingArea, XmNinputCallback, (XtCallbackProc) wxCanvasInputEvent, (XtPointer) this);
 323
 324     XtAddEventHandler(
 325                       (Widget)m_drawingArea,
 326                        PointerMotionHintMask | EnterWindowMask |
 327                        LeaveWindowMask | FocusChangeMask,
 328                        False,
 329                        (XtEventHandler) wxCanvasEnterLeave,
 330                        (XtPointer) this
 331                      );
 332
 333     // Scrolled widget needs to have its colour changed or we get a little blue
 334     // square where the scrollbars abutt
 335     wxColour backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE);
 336     wxDoChangeBackgroundColour(m_scrolledWindow, backgroundColour, true);
 337     wxDoChangeBackgroundColour(m_drawingArea, backgroundColour, true);
 338
 339     XmScrolledWindowSetAreas(
 340                              (Widget)m_scrolledWindow,
 341                              (Widget) 0, (Widget) 0,
 342                              (Widget) m_drawingArea);
 343
 344     // Without this, the cursor may not be restored properly (e.g. in splitter
 345     // sample).
 346     SetCursor(*wxSTANDARD_CURSOR);
 347     SetFont(wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT));
 348     DoSetSizeIntr(pos.x, pos.y, size.x,size.y, wxSIZE_AUTO, true);
 349     return true;
 350 }
 351
 352 // Destructor
 353 wxWindow::~wxWindow()
 354 {
 355     if (g_captureWindow == this)
 356         g_captureWindow = NULL;
 357
 358     m_isBeingDeleted = true;
 359
 360     // Motif-specific actions first
 361     WXWidget wMain = GetMainWidget();
 362     if ( wMain )
 363     {
 364         // Removes event handlers
 365         DetachWidget(wMain);
 366     }
 367
 368     // If m_drawingArea, we're a fully-fledged window with drawing area,
 369     // scrollbars etc. (what wxCanvas used to be)
 370     if ( m_drawingArea )
 371     {
 372         // Destroy children before destroying self
 373         DestroyChildren();
 374
 375         if (m_backingPixmap)
 376             XFreePixmap (XtDisplay ((Widget) GetMainWidget()), (Pixmap) m_backingPixmap);
 377
 378         Widget w = (Widget) m_drawingArea;
 379         wxDeleteWindowFromTable(w);
 380
 381         if (w)
 382         {
 383             XtDestroyWidget(w);
 384             m_drawingArea = (WXWidget) 0;
 385         }
 386
 387         // Only if we're _really_ a canvas (not a dialog box/panel)
 388         if (m_scrolledWindow)
 389         {
 390             wxDeleteWindowFromTable((Widget) m_scrolledWindow);
 391         }
 392
 393         if (m_hScrollBar)
 394         {
 395             wxDeleteWindowFromTable((Widget) m_hScrollBar);
 396             XtUnmanageChild((Widget) m_hScrollBar);
 397         }
 398         if (m_vScrollBar)
 399         {
 400             wxDeleteWindowFromTable((Widget) m_vScrollBar);
 401             XtUnmanageChild((Widget) m_vScrollBar);
 402         }
 403
 404         if (m_hScrollBar)
 405             XtDestroyWidget((Widget) m_hScrollBar);
 406         if (m_vScrollBar)
 407             XtDestroyWidget((Widget) m_vScrollBar);
 408
 409         UnmanageAndDestroy(m_scrolledWindow);
 410
 411         if (m_borderWidget)
 412         {
 413             XtDestroyWidget ((Widget) m_borderWidget);
 414             m_borderWidget = (WXWidget) 0;
 415         }
 416     }
 417     else // Why wasn't this here before? JACS 8/3/2000
 418         DestroyChildren();
 419
 420
 421     // Destroy the window
 422     if (GetMainWidget())
 423     {
 424         // If this line (XtDestroyWidget) causes a crash, you may comment it out.
 425         // Child widgets will get destroyed automatically when a frame
 426         // or dialog is destroyed, but before that you may get some memory
 427         // leaks and potential layout problems if you delete and then add
 428         // child windows.
 429
 430         // GRG, Feb/2000: commented this out when adding support for
 431         //   wxSCROLL[WIN]_THUMBRELEASE events. Also it was reported
 432         //   that this call crashed wxMotif under OS/2, so it seems
 433         //   that leaving it out is the right thing to do.
 434         // SN, Feb/2000: newgrid/griddemo shows why it is needed :-(
 435         XtDestroyWidget((Widget) GetMainWidget());
 436         SetMainWidget((WXWidget) NULL);
 437     }
 438 }
 439
 440 // ----------------------------------------------------------------------------
 441 // scrollbar management
 442 // ----------------------------------------------------------------------------
 443
 444 WXWidget wxWindow::DoCreateScrollBar(WXWidget parent,
 445                                      wxOrientation orientation,
 446                                      void (*callback)())
 447 {
 448     int orient = ( orientation & wxHORIZONTAL ) ? XmHORIZONTAL : XmVERTICAL;
 449     Widget sb =
 450         XtVaCreateManagedWidget( "scrollBarWidget",
 451                                  xmScrollBarWidgetClass, (Widget)parent,
 452                                  XmNorientation, orient,
 453                                  XmNincrement, 1,
 454                                  XmNvalue, 0,
 455                                  NULL );
 456
 457     XtPointer o = (XtPointer)orientation;
 458     XtCallbackProc cb = (XtCallbackProc)callback;
 459
 460     XtAddCallback( sb, XmNvalueChangedCallback, cb, o );
 461     XtAddCallback( sb, XmNdragCallback, cb, o );
 462     XtAddCallback( sb, XmNincrementCallback, cb, o );
 463     XtAddCallback( sb, XmNdecrementCallback, cb, o );
 464     XtAddCallback( sb, XmNpageIncrementCallback, cb, o );
 465     XtAddCallback( sb, XmNpageDecrementCallback, cb, o );
 466     XtAddCallback( sb, XmNtoTopCallback, cb, o );
 467     XtAddCallback( sb, XmNtoBottomCallback, cb, o );
 468
 469     return (WXWidget)sb;
 470 }
 471
 472 // Helper function
 473 void wxWindow::CreateScrollbar(wxOrientation orientation)
 474 {
 475     wxCHECK_RET( m_drawingArea, "this window can't have scrollbars" );
 476
 477     XtVaSetValues( (Widget) m_scrolledWindow,
 478                    XmNresizePolicy, XmRESIZE_NONE,
 479                    NULL );
 480
 481     wxColour backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE);
 482     // Add scrollbars if required
 483     if (orientation == wxHORIZONTAL)
 484     {
 485         m_hScrollBar = DoCreateScrollBar( m_scrolledWindow, wxHORIZONTAL,
 486                                           (void (*)())wxScrollBarCallback );
 487
 488         wxDoChangeBackgroundColour(m_hScrollBar, backgroundColour, true);
 489
 490         XtRealizeWidget( (Widget)m_hScrollBar );
 491
 492         XtVaSetValues((Widget) m_scrolledWindow,
 493             XmNhorizontalScrollBar, (Widget) m_hScrollBar,
 494             NULL);
 495
 496         wxAddWindowToTable( (Widget)m_hScrollBar, this );
 497     }
 498     else if (orientation == wxVERTICAL)
 499     {
 500         m_vScrollBar = DoCreateScrollBar( m_scrolledWindow, wxVERTICAL,
 501                                           (void (*)())wxScrollBarCallback );
 502
 503         wxDoChangeBackgroundColour(m_vScrollBar, backgroundColour, true);
 504
 505         XtRealizeWidget((Widget)m_vScrollBar);
 506
 507         XtVaSetValues((Widget) m_scrolledWindow,
 508             XmNverticalScrollBar, (Widget) m_vScrollBar,
 509             NULL);
 510
 511         wxAddWindowToTable( (Widget)m_vScrollBar, this );
 512     }
 513
 514     XtVaSetValues( (Widget) m_scrolledWindow,
 515                    XmNresizePolicy, XmRESIZE_ANY,
 516                    NULL );
 517 }
 518
 519 void wxWindow::DestroyScrollbar(wxOrientation orientation)
 520 {
 521     wxCHECK_RET( m_drawingArea, "this window can't have scrollbars" );
 522
 523     XtVaSetValues((Widget) m_scrolledWindow,
 524                   XmNresizePolicy, XmRESIZE_NONE,
 525                   NULL);
 526     String stringSB = orientation == wxHORIZONTAL ?
 527         XmNhorizontalScrollBar : XmNverticalScrollBar;
 528     WXWidget* widgetSB = orientation == wxHORIZONTAL ?
 529         &m_hScrollBar : &m_vScrollBar;
 530
 531     if( *widgetSB )
 532     {
 533         wxDeleteWindowFromTable( (Widget)*widgetSB );
 534         XtDestroyWidget( (Widget)*widgetSB );
 535         *widgetSB = (WXWidget)NULL;
 536     }
 537
 538     XtVaSetValues( (Widget)m_scrolledWindow,
 539                    stringSB, (Widget) 0,
 540                    NULL );
 541
 542     XtVaSetValues((Widget) m_scrolledWindow,
 543                   XmNresizePolicy, XmRESIZE_ANY,
 544                   NULL);
 545 }
 546
 547 // ---------------------------------------------------------------------------
 548 // basic operations
 549 // ---------------------------------------------------------------------------
 550
 551 void wxWindow::SetFocus()
 552 {
 553     Widget wMain = (Widget) GetMainWidget();
 554     XmProcessTraversal(wMain, XmTRAVERSE_CURRENT);
 555     XmProcessTraversal((Widget) GetMainWidget(), XmTRAVERSE_CURRENT);
 556 }
 557
 558 // Get the window with the focus
 559 wxWindow *wxWindowBase::DoFindFocus()
 560 {
 561     // TODO Problems:
 562     // (1) Can there be multiple focussed widgets in an application?
 563     // In which case we need to find the top-level window that's
 564     // currently active.
 565     // (2) The widget with the focus may not be in the widget table
 566     // depending on which widgets I put in the table
 567     wxWindow *winFocus = (wxWindow *)NULL;
 568     for ( wxWindowList::compatibility_iterator node = wxTopLevelWindows.GetFirst();
 569           node;
 570           node = node->GetNext() )
 571     {
 572         wxWindow *win = node->GetData();
 573
 574         Widget w = XmGetFocusWidget ((Widget) win->GetTopWidget());
 575
 576         if (w != (Widget) NULL)
 577         {
 578             winFocus = wxGetWindowFromTable(w);
 579             if ( winFocus )
 580                 break;
 581         }
 582     }
 583
 584     return winFocus;
 585 }
 586
 587 bool wxWindow::Enable(bool enable)
 588 {
 589     if ( !wxWindowBase::Enable(enable) )
 590         return false;
 591
 592     Widget wMain = (Widget)GetMainWidget();
 593     if ( wMain )
 594     {
 595         XtSetSensitive(wMain, enable);
 596         XmUpdateDisplay(wMain);
 597     }
 598
 599     return true;
 600 }
 601
 602 bool wxWindow::Show(bool show)
 603 {
 604     if ( !wxWindowBase::Show(show) )
 605         return false;
 606
 607     if (m_borderWidget || m_scrolledWindow)
 608     {
 609         MapOrUnmap(m_borderWidget ? m_borderWidget : m_scrolledWindow, show);
 610         // MapOrUnmap(m_drawingArea, show);
 611     }
 612     else
 613     {
 614         if ( !MapOrUnmap(GetTopWidget(), show) )
 615             MapOrUnmap(GetMainWidget(), show);
 616     }
 617
 618     return true;
 619 }
 620
 621 // Raise the window to the top of the Z order
 622 void wxWindow::Raise()
 623 {
 624     Widget wTop = (Widget) GetTopWidget();
 625     Window window = XtWindow(wTop);
 626     XRaiseWindow(XtDisplay(wTop), window);
 627 }
 628
 629 // Lower the window to the bottom of the Z order
 630 void wxWindow::Lower()
 631 {
 632     Widget wTop = (Widget) GetTopWidget();
 633     Window window = XtWindow(wTop);
 634     XLowerWindow(XtDisplay(wTop), window);
 635 }
 636
 637 void wxWindow::SetLabel(const wxString& label)
 638 {
 639     XtVaSetValues((Widget)GetMainWidget(), XmNtitle, label.mb_str(), NULL);
 640 }
 641
 642 wxString wxWindow::GetLabel() const
 643 {
 644     char *label;
 645     XtVaGetValues((Widget)GetMainWidget(), XmNtitle, &label, NULL);
 646
 647     return wxString(label);
 648 }
 649
 650 void wxWindow::DoCaptureMouse()
 651 {
 652     g_captureWindow = this;
 653     if ( m_winCaptured )
 654         return;
 655
 656     Widget wMain = (Widget)GetMainWidget();
 657     if ( wMain )
 658         XtAddGrab(wMain, True, False);
 659
 660     m_winCaptured = true;
 661 }
 662
 663 void wxWindow::DoReleaseMouse()
 664 {
 665     g_captureWindow = NULL;
 666     if ( !m_winCaptured )
 667         return;
 668
 669     Widget wMain = (Widget)GetMainWidget();
 670     if ( wMain )
 671         XtRemoveGrab(wMain);
 672
 673     m_winCaptured = false;
 674 }
 675
 676 bool wxWindow::SetFont(const wxFont& font)
 677 {
 678     if ( !wxWindowBase::SetFont(font) )
 679     {
 680         // nothing to do
 681         return false;
 682     }
 683
 684     ChangeFont();
 685
 686     return true;
 687 }
 688
 689 bool wxWindow::SetCursor(const wxCursor& cursor)
 690 {
 691     if ( !wxWindowBase::SetCursor(cursor) )
 692     {
 693         // no change
 694         return false;
 695     }
 696
 697     //    wxASSERT_MSG( m_cursor.Ok(),
 698     //                  wxT("cursor must be valid after call to the base version"));
 699     const wxCursor* cursor2 = NULL;
 700     if (m_cursor.Ok())
 701         cursor2 = & m_cursor;
 702     else
 703         cursor2 = wxSTANDARD_CURSOR;
 704
 705     WXDisplay *dpy = GetXDisplay();
 706     WXCursor x_cursor = cursor2->GetXCursor(dpy);
 707
 708     Widget w = (Widget) GetMainWidget();
 709     Window win = XtWindow(w);
 710     XDefineCursor((Display*) dpy, win, (Cursor) x_cursor);
 711
 712     return true;
 713 }
 714
 715 // Coordinates relative to the window
 716 void wxWindow::WarpPointer (int x, int y)
 717 {
 718     Widget wClient = (Widget)GetClientWidget();
 719
 720     XWarpPointer(XtDisplay(wClient), None, XtWindow(wClient), 0, 0, 0, 0, x, y);
 721 }
 722
 723 // ---------------------------------------------------------------------------
 724 // scrolling stuff
 725 // ---------------------------------------------------------------------------
 726
 727 int wxWindow::GetScrollPos(int orient) const
 728 {
 729     if (orient == wxHORIZONTAL)
 730         return m_scrollPosX;
 731     else
 732         return m_scrollPosY;
 733
 734 #if 0
 735     Widget scrollBar = (Widget) ((orient == wxHORIZONTAL) ? m_hScrollBar : m_vScrollBar);
 736     if (scrollBar)
 737     {
 738         int pos;
 739         XtVaGetValues(scrollBar, XmNvalue, &pos, NULL);
 740         return pos;
 741     }
 742     else
 743         return 0;
 744 #endif // 0
 745 }
 746
 747 // This now returns the whole range, not just the number of positions that we
 748 // can scroll.
 749 int wxWindow::GetScrollRange(int orient) const
 750 {
 751     Widget scrollBar = (Widget)GetScrollbar((wxOrientation)orient);
 752     // CE scintilla windows don't always have these scrollbars
 753     // and it tends to pile up a whole bunch of asserts
 754     //wxCHECK_MSG( scrollBar, 0, "no such scrollbar" );
 755
 756     int range = 0;
 757     if (scrollBar)
 758         XtVaGetValues(scrollBar, XmNmaximum, &range, NULL);
 759     return range;
 760 }
 761
 762 int wxWindow::GetScrollThumb(int orient) const
 763 {
 764     Widget scrollBar = (Widget)GetScrollbar((wxOrientation)orient);
 765     //wxCHECK_MSG( scrollBar, 0, "no such scrollbar" );
 766
 767     int thumb = 0;
 768     if (scrollBar)
 769         XtVaGetValues(scrollBar, XmNsliderSize, &thumb, NULL);
 770     return thumb;
 771 }
 772
 773 void wxWindow::SetScrollPos(int orient, int pos, bool WXUNUSED(refresh))
 774 {
 775     Widget scrollBar = (Widget)GetScrollbar((wxOrientation)orient);
 776
 777     if ( scrollBar )
 778     {
 779         XtVaSetValues (scrollBar, XmNvalue, pos, NULL);
 780     }
 781
 782     SetInternalScrollPos((wxOrientation)orient, pos);
 783 }
 784
 785 // New function that will replace some of the above.
 786 void wxWindow::SetScrollbar(int orient, int pos, int thumbVisible,
 787                             int range, bool WXUNUSED(refresh))
 788 {
 789     int oldW, oldH;
 790     GetSize(& oldW, & oldH);
 791
 792     if (range == 0)
 793         range = 1;
 794     if (thumbVisible == 0)
 795         thumbVisible = 1;
 796
 797     if (thumbVisible > range)
 798         thumbVisible = range;
 799
 800     // Save the old state to see if it changed
 801     WXWidget oldScrollBar = GetScrollbar((wxOrientation)orient);
 802
 803     if (orient == wxHORIZONTAL)
 804     {
 805         if (thumbVisible == range)
 806         {
 807             if (m_hScrollBar)
 808                 DestroyScrollbar(wxHORIZONTAL);
 809         }
 810         else
 811         {
 812             if (!m_hScrollBar)
 813                 CreateScrollbar(wxHORIZONTAL);
 814         }
 815     }
 816     if (orient == wxVERTICAL)
 817     {
 818         if (thumbVisible == range)
 819         {
 820             if (m_vScrollBar)
 821                 DestroyScrollbar(wxVERTICAL);
 822         }
 823         else
 824         {
 825             if (!m_vScrollBar)
 826                 CreateScrollbar(wxVERTICAL);
 827         }
 828     }
 829     WXWidget newScrollBar =  GetScrollbar((wxOrientation)orient);
 830
 831     if (oldScrollBar != newScrollBar)
 832     {
 833         // This is important! Without it, scrollbars misbehave badly.
 834         XtUnrealizeWidget((Widget) m_scrolledWindow);
 835         XmScrolledWindowSetAreas ((Widget) m_scrolledWindow, (Widget) m_hScrollBar, (Widget) m_vScrollBar, (Widget) m_drawingArea);
 836         XtRealizeWidget((Widget) m_scrolledWindow);
 837         XtManageChild((Widget) m_scrolledWindow);
 838     }
 839
 840     if (newScrollBar)
 841     {
 842         XtVaSetValues((Widget) newScrollBar,
 843         XmNvalue, pos,
 844         XmNminimum, 0,
 845         XmNmaximum, range,
 846         XmNsliderSize, thumbVisible,
 847         NULL);
 848     }
 849
 850     SetInternalScrollPos((wxOrientation)orient, pos);
 851
 852     int newW, newH;
 853     GetSize(& newW, & newH);
 854
 855     // Adjusting scrollbars can resize the canvas accidentally
 856     if (newW != oldW || newH != oldH)
 857         SetSize(wxDefaultCoord, wxDefaultCoord, oldW, oldH);
 858 }
 859
 860 // Does a physical scroll
 861 void wxWindow::ScrollWindow(int dx, int dy, const wxRect *rect)
 862 {
 863     int x, y, w, h;
 864     if (rect)
 865     {
 866         // Use specified rectangle
 867         x = rect->x; y = rect->y; w = rect->width; h = rect->height;
 868     }
 869     else
 870     {
 871         // Use whole client area
 872         x = 0; y = 0;
 873         GetClientSize(& w, & h);
 874     }
 875
 876     int x1 = (dx >= 0) ? x : x - dx;
 877     int y1 = (dy >= 0) ? y : y - dy;
 878     int w1 = w - abs(dx);
 879     int h1 = h - abs(dy);
 880     int x2 = (dx >= 0) ? x + dx : x;
 881     int y2 = (dy >= 0) ? y + dy : y;
 882
 883     wxClientDC dc(this);
 884
 885     dc.SetLogicalFunction (wxCOPY);
 886
 887     Widget widget = (Widget) GetMainWidget();
 888     Window window = XtWindow(widget);
 889     Display* display = XtDisplay(widget);
 890
 891     XCopyArea(display, window, window, (GC) dc.GetGC(),
 892               x1, y1, w1, h1, x2, y2);
 893
 894     dc.SetAutoSetting(true);
 895     wxBrush brush(GetBackgroundColour(), wxSOLID);
 896     dc.SetBrush(brush); // FIXME: needed?
 897
 898     wxWindowList::compatibility_iterator cnode = m_children.GetFirst();
 899     while (cnode)
 900     {
 901         wxWindow *child = cnode->GetData();
 902         int sx = 0;
 903         int sy = 0;
 904         child->GetSize( &sx, &sy );
 905         wxPoint pos( child->GetPosition() );
 906         child->SetSize( pos.x + dx, pos.y + dy, sx, sy, wxSIZE_ALLOW_MINUS_ONE );
 907         cnode = cnode->GetNext();
 908     }
 909
 910     // We'll add rectangles to the list of update rectangles according to which
 911     // bits we've exposed.
 912     wxList updateRects;
 913
 914     if (dx > 0)
 915     {
 916         wxRect *rect = new wxRect;
 917         rect->x = x;
 918         rect->y = y;
 919         rect->width = dx;
 920         rect->height = h;
 921
 922         XFillRectangle(display, window,
 923             (GC) dc.GetGC(), rect->x, rect->y, rect->width, rect->height);
 924
 925         rect->x = rect->x;
 926         rect->y = rect->y;
 927         rect->width = rect->width;
 928         rect->height = rect->height;
 929
 930         updateRects.Append((wxObject*) rect);
 931     }
 932     else if (dx < 0)
 933     {
 934         wxRect *rect = new wxRect;
 935
 936         rect->x = x + w + dx;
 937         rect->y = y;
 938         rect->width = -dx;
 939         rect->height = h;
 940
 941         XFillRectangle(display, window,
 942             (GC) dc.GetGC(), rect->x, rect->y, rect->width,
 943             rect->height);
 944
 945         rect->x = rect->x;
 946         rect->y = rect->y;
 947         rect->width = rect->width;
 948         rect->height = rect->height;
 949
 950         updateRects.Append((wxObject*) rect);
 951     }
 952     if (dy > 0)
 953     {
 954         wxRect *rect = new wxRect;
 955
 956         rect->x = x;
 957         rect->y = y;
 958         rect->width = w;
 959         rect->height = dy;
 960
 961         XFillRectangle(display, window,
 962             (GC) dc.GetGC(), rect->x, rect->y, rect->width, rect->height);
 963
 964         rect->x = rect->x;
 965         rect->y = rect->y;
 966         rect->width = rect->width;
 967         rect->height = rect->height;
 968
 969         updateRects.Append((wxObject*) rect);
 970     }
 971     else if (dy < 0)
 972     {
 973         wxRect *rect = new wxRect;
 974
 975         rect->x = x;
 976         rect->y = y + h + dy;
 977         rect->width = w;
 978         rect->height = -dy;
 979
 980         XFillRectangle(display, window,
 981             (GC) dc.GetGC(), rect->x, rect->y, rect->width, rect->height);
 982
 983         rect->x = rect->x;
 984         rect->y = rect->y;
 985         rect->width = rect->width;
 986         rect->height = rect->height;
 987
 988         updateRects.Append((wxObject*) rect);
 989     }
 990     dc.SetBrush(wxNullBrush);
 991
 992     // Now send expose events
 993
 994     wxList::compatibility_iterator  node = updateRects.GetFirst();
 995     while (node)
 996     {
 997         wxRect* rect = (wxRect*) node->GetData();
 998         XExposeEvent event;
 999
1000         event.type = Expose;
1001         event.display = display;
1002         event.send_event = True;
1003         event.window = window;
1004
1005         event.x = rect->x;
1006         event.y = rect->y;
1007         event.width = rect->width;
1008         event.height = rect->height;
1009
1010         event.count = 0;
1011
1012         XSendEvent(display, window, False, ExposureMask, (XEvent *)&event);
1013
1014         node = node->GetNext();
1015
1016     }
1017
1018     // Delete the update rects
1019     node = updateRects.GetFirst();
1020     while (node)
1021     {
1022         wxRect* rect = (wxRect*) node->GetData();
1023         delete rect;
1024         node = node->GetNext();
1025     }
1026
1027     XmUpdateDisplay((Widget) GetMainWidget());
1028 }
1029
1030 // ---------------------------------------------------------------------------
1031 // drag and drop
1032 // ---------------------------------------------------------------------------
1033
1034 #if wxUSE_DRAG_AND_DROP
1035
1036 void wxWindow::SetDropTarget(wxDropTarget * WXUNUSED(pDropTarget))
1037 {
1038     // TODO
1039 }
1040
1041 #endif
1042
1043 // Old style file-manager drag&drop
1044 void wxWindow::DragAcceptFiles(bool WXUNUSED(accept))
1045 {
1046     // TODO
1047 }
1048
1049 // ----------------------------------------------------------------------------
1050 // tooltips
1051 // ----------------------------------------------------------------------------
1052
1053 #if wxUSE_TOOLTIPS
1054
1055 void wxWindow::DoSetToolTip(wxToolTip * WXUNUSED(tooltip))
1056 {
1057     // TODO
1058 }
1059
1060 #endif // wxUSE_TOOLTIPS
1061
1062 // ----------------------------------------------------------------------------
1063 // popup menus
1064 // ----------------------------------------------------------------------------
1065
1066 #if wxUSE_MENUS
1067
1068 bool wxWindow::DoPopupMenu(wxMenu *menu, int x, int y)
1069 {
1070     if ( x == wxDefaultCoord && y == wxDefaultCoord )
1071     {
1072         wxPoint mouse = ScreenToClient(wxGetMousePosition());
1073         x = mouse.x; y = mouse.y;
1074     }
1075
1076     Widget widget = (Widget) GetMainWidget();
1077
1078     /* The menuId field seems to be usused, so we'll use it to
1079     indicate whether a menu is popped up or not:
1080     0: Not currently created as a popup
1081     -1: Created as a popup, but not active
1082     1: Active popup.
1083     */
1084
1085     if (menu->GetParent() && (menu->GetId() != -1))
1086         return false;
1087
1088     if (menu->GetMainWidget())
1089     {
1090         menu->DestroyMenu(true);
1091     }
1092
1093     menu->SetId(1); /* Mark as popped-up */
1094     menu->CreateMenu(NULL, widget, menu, 0);
1095     menu->SetInvokingWindow(this);
1096
1097     menu->UpdateUI();
1098
1099     //  menu->SetParent(parent);
1100     //  parent->children->Append(menu);  // Store menu for later deletion
1101
1102     Widget menuWidget = (Widget) menu->GetMainWidget();
1103
1104     int rootX = 0;
1105     int rootY = 0;
1106
1107     int deviceX = x;
1108     int deviceY = y;
1109     /*
1110     if (this->IsKindOf(CLASSINFO(wxCanvas)))
1111     {
1112     wxCanvas *canvas = (wxCanvas *) this;
1113     deviceX = canvas->GetDC ()->LogicalToDeviceX (x);
1114     deviceY = canvas->GetDC ()->LogicalToDeviceY (y);
1115     }
1116     */
1117
1118     Display *display = XtDisplay (widget);
1119     Window rootWindow = RootWindowOfScreen (XtScreen((Widget)widget));
1120     Window thisWindow = XtWindow (widget);
1121     Window childWindow;
1122     XTranslateCoordinates (display, thisWindow, rootWindow, (int) deviceX, (int) deviceY,
1123         &rootX, &rootY, &childWindow);
1124
1125     XButtonPressedEvent event;
1126     event.type = ButtonPress;
1127     event.button = 1;
1128
1129     event.x = deviceX;
1130     event.y = deviceY;
1131
1132     event.x_root = rootX;
1133     event.y_root = rootY;
1134
1135     XmMenuPosition (menuWidget, &event);
1136     XtManageChild (menuWidget);
1137
1138     // The ID of a pop-up menu is 1 when active, and is set to 0 by the
1139     // idle-time destroy routine.
1140     // Waiting until this ID changes causes this function to block until
1141     // the menu has been dismissed and the widgets cleaned up.
1142     // In other words, once this routine returns, it is safe to delete
1143     // the menu object.
1144     // Ian Brown <ian.brown@printsoft.de>
1145
1146     wxEventLoop evtLoop;
1147
1148     while (menu->GetId() == 1)
1149     {
1150         wxDoEventLoopIteration( evtLoop );
1151     }
1152
1153     return true;
1154 }
1155
1156 #endif
1157
1158 // ---------------------------------------------------------------------------
1159 // moving and resizing
1160 // ---------------------------------------------------------------------------
1161
1162 bool wxWindow::PreResize()
1163 {
1164     return true;
1165 }
1166
1167 // Get total size
1168 void wxWindow::DoGetSize(int *x, int *y) const
1169 {
1170     Widget widget = (Widget)( !m_drawingArea ? GetTopWidget() :
1171                               ( m_borderWidget ? m_borderWidget :
1172                                 m_scrolledWindow ? m_scrolledWindow :
1173                                 m_drawingArea ) );
1174     Dimension xx, yy;
1175
1176     XtVaGetValues( widget,
1177                    XmNwidth, &xx,
1178                    XmNheight, &yy,
1179                    NULL );
1180     if(x) *x = xx;
1181     if(y) *y = yy;
1182 }
1183
1184 void wxWindow::DoGetPosition(int *x, int *y) const
1185 {
1186     Widget widget = (Widget)
1187         ( m_drawingArea ?
1188           ( m_borderWidget ? m_borderWidget : m_scrolledWindow ) :
1189           GetTopWidget() );
1190
1191     Position xx, yy;
1192     XtVaGetValues(widget, XmNx, &xx, XmNy, &yy, NULL);
1193
1194     // We may be faking the client origin. So a window that's really at (0, 30)
1195     // may appear (to wxWin apps) to be at (0, 0).
1196     if (GetParent())
1197     {
1198         wxPoint pt(GetParent()->GetClientAreaOrigin());
1199         xx = (Position)(xx - pt.x);
1200         yy = (Position)(yy - pt.y);
1201     }
1202
1203     if(x) *x = xx;
1204     if(y) *y = yy;
1205 }
1206
1207 void wxWindow::DoScreenToClient(int *x, int *y) const
1208 {
1209     Widget widget = (Widget) GetClientWidget();
1210     Display *display = XtDisplay((Widget) GetMainWidget());
1211     Window rootWindow = RootWindowOfScreen(XtScreen(widget));
1212     Window thisWindow = XtWindow(widget);
1213
1214     Window childWindow;
1215     int xx = *x;
1216     int yy = *y;
1217     XTranslateCoordinates(display, rootWindow, thisWindow, xx, yy, x, y, &childWindow);
1218 }
1219
1220 void wxWindow::DoClientToScreen(int *x, int *y) const
1221 {
1222     Widget widget = (Widget) GetClientWidget();
1223     Display *display = XtDisplay(widget);
1224     Window rootWindow = RootWindowOfScreen(XtScreen(widget));
1225     Window thisWindow = XtWindow(widget);
1226
1227     Window childWindow;
1228     int xx = *x;
1229     int yy = *y;
1230     XTranslateCoordinates(display, thisWindow, rootWindow, xx, yy, x, y, &childWindow);
1231 }
1232
1233
1234 // Get size *available for subwindows* i.e. excluding menu bar etc.
1235 void wxWindow::DoGetClientSize(int *x, int *y) const
1236 {
1237     Widget widget = (Widget) GetClientWidget();
1238     Dimension xx, yy;
1239     XtVaGetValues(widget, XmNwidth, &xx, XmNheight, &yy, NULL);
1240     if(x) *x = xx; if(y) *y = yy;
1241 }
1242
1243 void wxWindow::DoSetSize(int x, int y, int width, int height, int sizeFlags)
1244 {
1245     DoSetSizeIntr(x, y, width, height, sizeFlags, false);
1246 }
1247
1248 void wxWindow::DoSetSizeIntr(int x, int y, int width, int height,
1249                              int sizeFlags, bool fromCtor)
1250 {
1251     // A bit of optimization to help sort out the flickers.
1252     int oldX = -1, oldY = -1, oldW = -1, oldH = -1;
1253
1254     if( !fromCtor )
1255     {
1256         GetSize(& oldW, & oldH);
1257         GetPosition(& oldX, & oldY);
1258     }
1259
1260     if ( !(sizeFlags & wxSIZE_ALLOW_MINUS_ONE) )
1261     {
1262         if ( width == -1 )
1263             width = oldW;
1264         if ( height == -1 )
1265             height = oldH;
1266     }
1267
1268     wxSize size(wxDefaultSize);
1269     if ( width <= 0 )
1270     {
1271         if ( ( sizeFlags & wxSIZE_AUTO_WIDTH ) && !fromCtor )
1272         {
1273             size = DoGetBestSize();
1274             width = size.x;
1275         }
1276         else
1277         {
1278             width = oldW;
1279         }
1280     }
1281
1282     if ( height == -1 )
1283     {
1284         if( ( sizeFlags & wxSIZE_AUTO_HEIGHT ) && !fromCtor )
1285         {
1286             if( size.x == -1 ) size = DoGetBestSize();
1287             height = size.y;
1288         }
1289         else
1290         {
1291             height = oldH;
1292         }
1293     }
1294
1295     if ( x != oldX || y != oldY || width != oldW || height != oldH
1296          || !wxNoOptimize::CanOptimize() )
1297     {
1298         if (m_drawingArea)
1299         {
1300             int flags = 0;
1301
1302             if (x != oldX)
1303                 flags |= wxMOVE_X;
1304
1305             if (y != oldY)
1306                 flags |= wxMOVE_Y;
1307
1308             if (width > 0)
1309                 flags |= wxMOVE_WIDTH;
1310
1311             if (height > 0)
1312                 flags |= wxMOVE_HEIGHT;
1313
1314             int xx = x; int yy = y;
1315             AdjustForParentClientOrigin(xx, yy, sizeFlags);
1316             if( !fromCtor )
1317                 DoMoveWindow( xx, yy, width, height );
1318             else
1319                 DoMoveWindowIntr( xx, yy, width, height, flags );
1320
1321             return;
1322         }
1323
1324         Widget widget = (Widget) GetTopWidget();
1325         if (!widget)
1326             return;
1327
1328         bool managed = XtIsManaged( widget );
1329         if (managed)
1330             XtUnmanageChild(widget);
1331
1332         int xx = x;
1333         int yy = y;
1334         AdjustForParentClientOrigin(xx, yy, sizeFlags);
1335
1336         DoMoveWindow(xx, yy, width, height);
1337
1338         if (managed)
1339             XtManageChild(widget);
1340     }
1341 }
1342
1343 void wxWindow::DoSetClientSize(int width, int height)
1344 {
1345     if (m_drawingArea)
1346     {
1347         Widget drawingArea = (Widget) m_drawingArea;
1348
1349         XtVaSetValues(drawingArea, XmNresizePolicy, XmRESIZE_ANY, NULL);
1350
1351         if (width > -1)
1352             XtVaSetValues(drawingArea, XmNwidth, width, NULL);
1353         if (height > -1)
1354             XtVaSetValues(drawingArea, XmNheight, height, NULL);
1355
1356         XtVaSetValues(drawingArea, XmNresizePolicy, XmRESIZE_NONE, NULL);
1357         return;
1358     }
1359
1360     Widget widget = (Widget) GetTopWidget();
1361
1362     if (width > -1)
1363         XtVaSetValues(widget, XmNwidth, width, NULL);
1364     if (height > -1)
1365         XtVaSetValues(widget, XmNheight, height, NULL);
1366 }
1367
1368 void wxWindow::DoMoveWindowIntr(int xx, int yy, int w, int h,
1369                                 int flags)
1370 {
1371     if (m_drawingArea)
1372     {
1373         Widget drawingArea = (Widget) m_drawingArea;
1374         Widget borderOrScrolled = m_borderWidget ?
1375             (Widget) m_borderWidget :
1376             (Widget) m_scrolledWindow;
1377
1378         bool managed = XtIsManaged(borderOrScrolled);
1379         if (managed)
1380             XtUnmanageChild (borderOrScrolled);
1381         XtVaSetValues(drawingArea, XmNresizePolicy, XmRESIZE_ANY, NULL);
1382
1383         if (flags & wxMOVE_X)
1384             XtVaSetValues (borderOrScrolled,
1385                            XmNx, xx,
1386                            NULL);
1387         if (flags & wxMOVE_Y)
1388             XtVaSetValues (borderOrScrolled,
1389                            XmNy, yy,
1390                            NULL);
1391
1392         if (flags & wxMOVE_WIDTH)
1393         {
1394             if (m_borderWidget)
1395             {
1396                 XtVaSetValues ((Widget) m_borderWidget, XmNwidth, w, NULL);
1397                 short thick, margin;
1398                 XtVaGetValues ((Widget) m_borderWidget,
1399                                XmNshadowThickness, &thick,
1400                                XmNmarginWidth, &margin,
1401                                NULL);
1402                 w -= 2 * (thick + margin);
1403             }
1404
1405             if( w < 1 ) w = 1;
1406             XtVaSetValues ((Widget) m_scrolledWindow, XmNwidth, w, NULL);
1407         }
1408
1409         if (flags & wxMOVE_HEIGHT)
1410         {
1411             if (m_borderWidget)
1412             {
1413                 XtVaSetValues ((Widget) m_borderWidget, XmNheight, h, NULL);
1414                 short thick, margin;
1415                 XtVaGetValues ((Widget) m_borderWidget,
1416                                XmNshadowThickness, &thick,
1417                                XmNmarginHeight, &margin,
1418                                NULL);
1419                 h -= 2 * (thick + margin);
1420             }
1421
1422             if( h < 1 ) h = 1;
1423             XtVaSetValues ((Widget) m_scrolledWindow, XmNheight, h, NULL);
1424         }
1425
1426         if (managed)
1427             XtManageChild (borderOrScrolled);
1428         XtVaSetValues(drawingArea, XmNresizePolicy, XmRESIZE_NONE, NULL);
1429     }
1430     else
1431     {
1432         if( w < 1 ) w = 1;
1433         if( h < 1 ) h = 1;
1434
1435         XtVaSetValues((Widget)GetTopWidget(),
1436                       XmNx, xx,
1437                       XmNy, yy,
1438                       XmNwidth, w,
1439                       XmNheight, h,
1440                       NULL);
1441     }
1442 }
1443
1444 void wxWindow::DoMoveWindow(int x, int y, int width, int height)
1445 {
1446     DoMoveWindowIntr (x, y, width, height,
1447                       wxMOVE_X|wxMOVE_Y|wxMOVE_WIDTH|wxMOVE_HEIGHT);
1448 }
1449
1450 // ---------------------------------------------------------------------------
1451 // text metrics
1452 // ---------------------------------------------------------------------------
1453
1454 int wxWindow::GetCharHeight() const
1455 {
1456     wxCHECK_MSG( m_font.Ok(), 0, "valid window font needed" );
1457
1458     int height;
1459
1460     wxGetTextExtent (GetXDisplay(), m_font, 1.0,
1461                      "x", NULL, &height, NULL, NULL);
1462
1463     return height;
1464 }
1465
1466 int wxWindow::GetCharWidth() const
1467 {
1468     wxCHECK_MSG( m_font.Ok(), 0, "valid window font needed" );
1469
1470     int width;
1471
1472     wxGetTextExtent (GetXDisplay(), m_font, 1.0,
1473                      "x", &width, NULL, NULL, NULL);
1474
1475     return width;
1476 }
1477
1478 void wxWindow::GetTextExtent(const wxString& string,
1479                              int *x, int *y,
1480                              int *descent, int *externalLeading,
1481                              const wxFont *theFont) const
1482 {
1483     const wxFont *fontToUse = theFont ? theFont : &m_font;
1484
1485     wxCHECK_RET( fontToUse->Ok(), "valid window font needed" );
1486
1487     if (externalLeading)
1488         *externalLeading = 0;
1489     wxGetTextExtent (GetXDisplay(), *fontToUse, 1.0,
1490                      string, x, y, NULL, descent);
1491 }
1492
1493 // ----------------------------------------------------------------------------
1494 // painting
1495 // ----------------------------------------------------------------------------
1496
1497 void wxWindow::AddUpdateRect(int x, int y, int w, int h)
1498 {
1499     m_updateRegion.Union( x, y, w, h );
1500 }
1501
1502 void wxWindow::Refresh(bool eraseBack, const wxRect *rect)
1503 {
1504     m_needsRefresh = true;
1505     Display *display = XtDisplay((Widget) GetMainWidget());
1506     Window thisWindow = XtWindow((Widget) GetMainWidget());
1507
1508     XExposeEvent dummyEvent;
1509     int width, height;
1510     GetSize(&width, &height);
1511
1512     dummyEvent.type = Expose;
1513     dummyEvent.display = display;
1514     dummyEvent.send_event = True;
1515     dummyEvent.window = thisWindow;
1516     if (rect)
1517     {
1518         dummyEvent.x = rect->x;
1519         dummyEvent.y = rect->y;
1520         dummyEvent.width = rect->width;
1521         dummyEvent.height = rect->height;
1522     }
1523     else
1524     {
1525         dummyEvent.x = 0;
1526         dummyEvent.y = 0;
1527         dummyEvent.width = width;
1528         dummyEvent.height = height;
1529     }
1530     dummyEvent.count = 0;
1531
1532     if (eraseBack)
1533     {
1534         wxClientDC dc(this);
1535         wxBrush backgroundBrush(GetBackgroundColour(), wxSOLID);
1536         dc.SetBackground(backgroundBrush);
1537         if (rect)
1538             dc.Clear(*rect);
1539         else
1540             dc.Clear();
1541     }
1542
1543     XSendEvent(display, thisWindow, False, ExposureMask, (XEvent *)&dummyEvent);
1544 }
1545
1546 void wxWindow::DoPaint()
1547 {
1548     //TODO : make a temporary gc so we can do the XCopyArea below
1549     if (m_backingPixmap && !m_needsRefresh)
1550     {
1551       wxPaintDC dc(this);
1552
1553       GC tempGC = (GC) dc.GetBackingGC();
1554
1555       Widget widget = (Widget) GetMainWidget();
1556
1557       int scrollPosX = 0;
1558       int scrollPosY = 0;
1559
1560       // We have to test whether it's a wxScrolledWindow (hack!) because
1561       // otherwise we don't know how many pixels have been scrolled. We might
1562       // solve this in the future by defining virtual wxWindow functions to get
1563       // the scroll position in pixels. Or, each kind of scrolled window has to
1564       // implement backing stores itself, using generic wxWidgets code.
1565       wxScrolledWindow* scrolledWindow = wxDynamicCast(this, wxScrolledWindow);
1566       if ( scrolledWindow )
1567       {
1568           int x, y;
1569           scrolledWindow->CalcScrolledPosition(0, 0, &x, &y);
1570
1571           scrollPosX = - x;
1572           scrollPosY = - y;
1573       }
1574
1575       // TODO: This could be optimized further by only copying the areas in the
1576       //       current update region.
1577
1578       // Only blit the part visible in the client area. The backing pixmap
1579       // always starts at 0, 0 but we may be looking at only a portion of it.
1580       wxSize clientArea = GetClientSize();
1581       int toBlitX = m_pixmapWidth - scrollPosX;
1582       int toBlitY = m_pixmapHeight - scrollPosY;
1583
1584       // Copy whichever is samller, the amount of pixmap we have to copy,
1585       // or the size of the client area.
1586       toBlitX = wxMin(toBlitX, clientArea.x);
1587       toBlitY = wxMin(toBlitY, clientArea.y);
1588
1589       // Make sure we're not negative
1590       toBlitX = wxMax(0, toBlitX);
1591       toBlitY = wxMax(0, toBlitY);
1592
1593       XCopyArea
1594       (
1595        XtDisplay(widget),
1596        (Pixmap) m_backingPixmap,
1597        XtWindow (widget),
1598        tempGC,
1599        scrollPosX, scrollPosY, // Start at the scroll position
1600        toBlitX, toBlitY,       // How much of the pixmap to copy
1601        0, 0                    // Destination
1602       );
1603     }
1604     else
1605     {
1606         wxWindowDC dc(this);
1607         // Set an erase event first
1608         wxEraseEvent eraseEvent(GetId(), &dc);
1609         eraseEvent.SetEventObject(this);
1610         GetEventHandler()->ProcessEvent(eraseEvent);
1611
1612         wxPaintEvent event(GetId());
1613         event.SetEventObject(this);
1614         GetEventHandler()->ProcessEvent(event);
1615
1616         m_needsRefresh = false;
1617     }
1618 }
1619
1620 // ----------------------------------------------------------------------------
1621 // event handlers
1622 // ----------------------------------------------------------------------------
1623
1624 // Responds to colour changes: passes event on to children.
1625 void wxWindow::OnSysColourChanged(wxSysColourChangedEvent& event)
1626 {
1627     wxWindowList::compatibility_iterator node = GetChildren().GetFirst();
1628     while ( node )
1629     {
1630         // Only propagate to non-top-level windows
1631         wxWindow *win = node->GetData();
1632         if ( win->GetParent() )
1633         {
1634             wxSysColourChangedEvent event2;
1635             event.SetEventObject(win);
1636             win->GetEventHandler()->ProcessEvent(event2);
1637         }
1638
1639         node = node->GetNext();
1640     }
1641 }
1642
1643 void wxWindow::OnInternalIdle()
1644 {
1645     // This calls the UI-update mechanism (querying windows for
1646     // menu/toolbar/control state information)
1647     if (wxUpdateUIEvent::CanUpdate(this))
1648         UpdateWindowUI(wxUPDATE_UI_FROMIDLE);
1649 }
1650
1651 // ----------------------------------------------------------------------------
1652 // accelerators
1653 // ----------------------------------------------------------------------------
1654
1655 bool wxWindow::ProcessAccelerator(wxKeyEvent& event)
1656 {
1657 #if wxUSE_ACCEL
1658     if (!m_acceleratorTable.Ok())
1659         return false;
1660
1661     int count = m_acceleratorTable.GetCount();
1662     wxAcceleratorEntry* entries = m_acceleratorTable.GetEntries();
1663     int i;
1664     for (i = 0; i < count; i++)
1665     {
1666         wxAcceleratorEntry* entry = & (entries[i]);
1667         if (entry->MatchesEvent(event))
1668         {
1669             // Bingo, we have a match. Now find a control that matches the
1670             // entry command id.
1671
1672             // Need to go up to the top of the window hierarchy, since it might
1673             // be e.g. a menu item
1674             wxWindow* parent = this;
1675             while ( parent && !parent->IsTopLevel() )
1676                 parent = parent->GetParent();
1677
1678             if (!parent)
1679                 return false;
1680
1681             wxFrame* frame = wxDynamicCast(parent, wxFrame);
1682             if ( frame )
1683             {
1684 #if wxUSE_MENUS
1685                 // Try for a menu command
1686                 if (frame->GetMenuBar())
1687                 {
1688                     wxMenuItem* item = frame->GetMenuBar()->FindItem(entry->GetCommand());
1689                     if (item)
1690                     {
1691                         wxCommandEvent commandEvent(wxEVT_COMMAND_MENU_SELECTED, entry->GetCommand());
1692                         commandEvent.SetEventObject(frame);
1693
1694                         // If ProcessEvent returns true (it was handled), then
1695                         // the calling code will skip the event handling.
1696                         return frame->GetEventHandler()->ProcessEvent(commandEvent);
1697                     }
1698                 }
1699 #endif
1700             }
1701
1702             // Find a child matching the command id
1703             wxWindow* child = parent->FindWindow(entry->GetCommand());
1704
1705             // No such child
1706             if (!child)
1707                 return false;
1708
1709             // Now we process those kinds of windows that we can.
1710             // For now, only buttons.
1711             if ( wxDynamicCast(child, wxButton) )
1712             {
1713                 wxCommandEvent commandEvent (wxEVT_COMMAND_BUTTON_CLICKED, child->GetId());
1714                 commandEvent.SetEventObject(child);
1715                 return child->GetEventHandler()->ProcessEvent(commandEvent);
1716             }
1717
1718             return false;
1719         } // matches event
1720     }// for
1721 #endif
1722
1723     // We didn't match the key event against an accelerator.
1724     return false;
1725 }
1726
1727 // ============================================================================
1728 // Motif-specific stuff from here on
1729 // ============================================================================
1730
1731 // ----------------------------------------------------------------------------
1732 // function which maintain the global hash table mapping Widgets to wxWidgets
1733 // ----------------------------------------------------------------------------
1734
1735 bool wxAddWindowToTable(Widget w, wxWindow *win)
1736 {
1737     const long key = (long)w;
1738     if ( wxWidgetHashTable->Get(key))
1739     {
1740         wxLogDebug("Widget table clash: new widget is %ld, %s",
1741                    key, win->GetClassInfo()->GetClassName());
1742         return false;
1743     }
1744
1745     wxWidgetHashTable->Put(key, win);
1746
1747     wxLogTrace("widget", "Widget 0x%p <-> window %p (%s)",
1748                w, win, win->GetClassInfo()->GetClassName());
1749
1750     return true;
1751 }
1752
1753 wxWindow *wxGetWindowFromTable(Widget w)
1754 {
1755     return (wxWindow *)wxWidgetHashTable->Get((long) w);
1756 }
1757
1758 void wxDeleteWindowFromTable(Widget w)
1759 {
1760     wxLogTrace("widget", "Widget 0x%p", (WXWidget)w);
1761
1762     wxWidgetHashTable->Delete((long)w);
1763 }
1764
1765 // ----------------------------------------------------------------------------
1766 // add/remove window from the table
1767 // ----------------------------------------------------------------------------
1768
1769 // Add to hash table, add event handler
1770 bool wxWindow::AttachWidget (wxWindow* WXUNUSED(parent), WXWidget mainWidget,
1771                              WXWidget formWidget, int x, int y, int width, int height)
1772 {
1773     wxAddWindowToTable((Widget) mainWidget, this);
1774     XtAddEventHandler( (Widget) mainWidget,
1775                        ButtonPressMask | ButtonReleaseMask
1776                      | PointerMotionMask,
1777                        False,
1778                        wxPanelItemEventHandler,
1779                        (XtPointer) this);
1780
1781     if (!formWidget)
1782     {
1783         XtTranslations ptr;
1784         XtOverrideTranslations ((Widget) mainWidget,
1785             ptr = XtParseTranslationTable ("<Configure>: resize()"));
1786         XtFree ((char *) ptr);
1787     }
1788
1789     // Some widgets have a parent form widget, e.g. wxRadioBox
1790     if (formWidget)
1791     {
1792         if (!wxAddWindowToTable((Widget) formWidget, this))
1793             return false;
1794
1795         XtTranslations ptr;
1796         XtOverrideTranslations ((Widget) formWidget,
1797             ptr = XtParseTranslationTable ("<Configure>: resize()"));
1798         XtFree ((char *) ptr);
1799     }
1800
1801     if (x == -1)
1802         x = 0;
1803     if (y == -1)
1804         y = 0;
1805     DoSetSize (x, y, width, height, wxSIZE_USE_EXISTING);
1806
1807     return true;
1808 }
1809
1810 // Remove event handler, remove from hash table
1811 bool wxWindow::DetachWidget(WXWidget widget)
1812 {
1813     XtRemoveEventHandler( (Widget) widget,
1814                           ButtonPressMask | ButtonReleaseMask
1815                         | PointerMotionMask,
1816                           False,
1817                           wxPanelItemEventHandler,
1818                           (XtPointer)this);
1819
1820     wxDeleteWindowFromTable((Widget) widget);
1821     return true;
1822 }
1823
1824 // ----------------------------------------------------------------------------
1825 // Motif-specific accessors
1826 // ----------------------------------------------------------------------------
1827
1828 WXWindow wxWindow::GetClientXWindow() const
1829 {
1830     Widget wMain = (Widget)GetClientWidget();
1831     if ( wMain )
1832         return (WXWindow) XtWindow(wMain);
1833     else
1834         return (WXWindow) 0;
1835 }
1836
1837 // Get the underlying X window
1838 WXWindow wxWindow::GetXWindow() const
1839 {
1840     Widget wMain = (Widget)GetMainWidget();
1841     if ( wMain )
1842         return (WXWindow) XtWindow(wMain);
1843     else
1844         return (WXWindow) 0;
1845 }
1846
1847 // Get the underlying X display
1848 WXDisplay *wxWindow::GetXDisplay() const
1849 {
1850     Widget wMain = (Widget)GetMainWidget();
1851     if ( wMain )
1852         return (WXDisplay*) XtDisplay(wMain);
1853     else
1854         return (WXDisplay*) NULL;
1855 }
1856
1857 WXWidget wxWindow::GetMainWidget() const
1858 {
1859     if (m_drawingArea)
1860         return m_drawingArea;
1861     else
1862         return m_mainWidget;
1863 }
1864
1865 WXWidget wxWindow::GetClientWidget() const
1866 {
1867     if (m_drawingArea != (WXWidget) 0)
1868         return m_drawingArea;
1869     else
1870         return GetMainWidget();
1871 }
1872
1873 WXWidget wxWindow::GetTopWidget() const
1874 {
1875     return GetMainWidget();
1876 }
1877
1878 WXWidget wxWindow::GetLabelWidget() const
1879 {
1880     return GetMainWidget();
1881 }
1882
1883 // ----------------------------------------------------------------------------
1884 // Motif callbacks
1885 // ----------------------------------------------------------------------------
1886
1887 // All widgets should have this as their resize proc.
1888 // OnSize sent to wxWindow via client data.
1889 void wxWidgetResizeProc(Widget w, XConfigureEvent *WXUNUSED(event),
1890                         String WXUNUSED(args)[], int *WXUNUSED(num_args))
1891 {
1892     wxWindow *win = wxGetWindowFromTable(w);
1893     if (!win)
1894         return;
1895
1896     if (win->PreResize())
1897     {
1898         wxSize newSize(win->GetSize());
1899         wxSizeEvent sizeEvent(newSize, win->GetId());
1900         sizeEvent.SetEventObject(win);
1901         win->GetEventHandler()->ProcessEvent(sizeEvent);
1902     }
1903 }
1904
1905 static void wxCanvasRepaintProc(Widget drawingArea,
1906                                 XtPointer clientData,
1907                                 XmDrawingAreaCallbackStruct * cbs)
1908 {
1909     if (!wxGetWindowFromTable(drawingArea))
1910         return;
1911
1912     XEvent * event = cbs->event;
1913     wxWindow * win = (wxWindow *) clientData;
1914
1915     switch (event->type)
1916     {
1917     case Expose:
1918         {
1919             win->AddUpdateRect(event->xexpose.x, event->xexpose.y,
1920                                event->xexpose.width, event->xexpose.height);
1921
1922             if (event -> xexpose.count == 0)
1923             {
1924                 win->DoPaint();
1925             }
1926             break;
1927         }
1928     }
1929 }
1930
1931 // Unable to deal with Enter/Leave without a separate EventHandler (Motif 1.1.4)
1932 static void wxCanvasEnterLeave(Widget drawingArea,
1933                                XtPointer WXUNUSED(clientData),
1934                                XCrossingEvent * event)
1935 {
1936     XmDrawingAreaCallbackStruct cbs;
1937     XEvent ev;
1938
1939     ((XCrossingEvent &) ev) = *event;
1940
1941     cbs.reason = XmCR_INPUT;
1942     cbs.event = &ev;
1943
1944     wxCanvasInputEvent(drawingArea, (XtPointer) NULL, &cbs);
1945 }
1946
1947 // Fix to make it work under Motif 1.0 (!)
1948 static void wxCanvasMotionEvent (Widget WXUNUSED(drawingArea),
1949                                  XButtonEvent *WXUNUSED(event))
1950 {
1951 #if XmVersion <= 1000
1952     XmDrawingAreaCallbackStruct cbs;
1953     XEvent ev;
1954
1955     ev = *((XEvent *) event);
1956     cbs.reason = XmCR_INPUT;
1957     cbs.event = &ev;
1958
1959     wxCanvasInputEvent (drawingArea, (XtPointer) NULL, &cbs);
1960 #endif // XmVersion <= 1000
1961 }
1962
1963 static void wxCanvasInputEvent(Widget drawingArea,
1964                                XtPointer WXUNUSED(data),
1965                                XmDrawingAreaCallbackStruct * cbs)
1966 {
1967     wxWindow *canvas = wxGetWindowFromTable(drawingArea);
1968     XEvent* xevent = cbs->event;
1969
1970     if (canvas==NULL)
1971         return;
1972
1973     if (cbs->reason != XmCR_INPUT)
1974         return;
1975
1976     switch (xevent->xany.type)
1977     {
1978     case EnterNotify:
1979     case LeaveNotify:
1980     case ButtonPress:
1981     case ButtonRelease:
1982     case MotionNotify:
1983         {
1984             wxMouseEvent wxevent(0);
1985             if (wxTranslateMouseEvent(wxevent, canvas, drawingArea, xevent))
1986             {
1987                 canvas->GetEventHandler()->ProcessEvent(wxevent);
1988             }
1989             break;
1990         }
1991     case KeyPress:
1992         {
1993             wxKeyEvent event (wxEVT_CHAR);
1994             if (wxTranslateKeyEvent (event, canvas, (Widget) 0, xevent))
1995             {
1996                 // Implement wxFrame::OnCharHook by checking ancestor.
1997                 wxWindow *parent = canvas;
1998                 while (parent && !parent->IsTopLevel())
1999                     parent = parent->GetParent();
2000
2001                 if (parent)
2002                 {
2003                     event.SetEventType(wxEVT_CHAR_HOOK);
2004                     if (parent->GetEventHandler()->ProcessEvent(event))
2005                         return;
2006                 }
2007
2008                 // For simplicity, OnKeyDown is the same as OnChar
2009                 // TODO: filter modifier key presses from OnChar
2010                 event.SetEventType(wxEVT_KEY_DOWN);
2011
2012                 // Only process OnChar if OnKeyDown didn't swallow it
2013                 if (!canvas->GetEventHandler()->ProcessEvent (event))
2014                 {
2015                     event.SetEventType(wxEVT_CHAR);
2016                     canvas->GetEventHandler()->ProcessEvent (event);
2017                 }
2018             }
2019             break;
2020         }
2021     case KeyRelease:
2022         {
2023             wxKeyEvent event (wxEVT_KEY_UP);
2024             if (wxTranslateKeyEvent (event, canvas, (Widget) 0, xevent))
2025             {
2026                 canvas->GetEventHandler()->ProcessEvent (event);
2027             }
2028             break;
2029         }
2030     case FocusIn:
2031         {
2032             if (xevent->xfocus.detail != NotifyPointer)
2033             {
2034                 wxFocusEvent event(wxEVT_SET_FOCUS, canvas->GetId());
2035                 event.SetEventObject(canvas);
2036                 canvas->GetEventHandler()->ProcessEvent(event);
2037             }
2038             break;
2039         }
2040     case FocusOut:
2041         {
2042             if (xevent->xfocus.detail != NotifyPointer)
2043             {
2044                 wxFocusEvent event(wxEVT_KILL_FOCUS, canvas->GetId());
2045                 event.SetEventObject(canvas);
2046                 canvas->GetEventHandler()->ProcessEvent(event);
2047             }
2048             break;
2049         }
2050     default:
2051         break;
2052     }
2053 }
2054
2055 static void wxPanelItemEventHandler(Widget    wid,
2056                                     XtPointer WXUNUSED(client_data),
2057                                     XEvent*   event,
2058                                     Boolean  *continueToDispatch)
2059 {
2060     // Widget can be a label or the actual widget.
2061
2062     wxWindow *window = wxGetWindowFromTable(wid);
2063     if (window)
2064     {
2065         wxMouseEvent wxevent(0);
2066         if (wxTranslateMouseEvent(wxevent, window, wid, event))
2067         {
2068             window->GetEventHandler()->ProcessEvent(wxevent);
2069         }
2070     }
2071
2072     // TODO: probably the key to allowing default behaviour to happen. Say we
2073     // set a m_doDefault flag to false at the start of this function. Then in
2074     // e.g. wxWindow::OnMouseEvent we can call Default() which sets this flag to
2075     // true, indicating that default processing can happen. Thus, behaviour can
2076     // appear to be overridden just by adding an event handler and not calling
2077     // wxWindow::OnWhatever. ALSO, maybe we can use this instead of the current
2078     // way of handling drawing area events, to simplify things.
2079     *continueToDispatch = True;
2080 }
2081
2082 static void wxScrollBarCallback(Widget scrollbar,
2083                                 XtPointer clientData,
2084                                 XmScrollBarCallbackStruct *cbs)
2085 {
2086     wxWindow *win = wxGetWindowFromTable(scrollbar);
2087     wxOrientation orientation = (wxOrientation)wxPtrToUInt(clientData);
2088
2089     wxEventType eventType = wxEVT_NULL;
2090     switch (cbs->reason)
2091     {
2092     case XmCR_INCREMENT:
2093         {
2094             eventType = wxEVT_SCROLLWIN_LINEDOWN;
2095             break;
2096         }
2097     case XmCR_DECREMENT:
2098         {
2099             eventType = wxEVT_SCROLLWIN_LINEUP;
2100             break;
2101         }
2102     case XmCR_DRAG:
2103         {
2104             eventType = wxEVT_SCROLLWIN_THUMBTRACK;
2105             break;
2106         }
2107     case XmCR_VALUE_CHANGED:
2108         {
2109             eventType = wxEVT_SCROLLWIN_THUMBRELEASE;
2110             break;
2111         }
2112     case XmCR_PAGE_INCREMENT:
2113         {
2114             eventType = wxEVT_SCROLLWIN_PAGEDOWN;
2115             break;
2116         }
2117     case XmCR_PAGE_DECREMENT:
2118         {
2119             eventType = wxEVT_SCROLLWIN_PAGEUP;
2120             break;
2121         }
2122     case XmCR_TO_TOP:
2123         {
2124             eventType = wxEVT_SCROLLWIN_TOP;
2125             break;
2126         }
2127     case XmCR_TO_BOTTOM:
2128         {
2129             eventType = wxEVT_SCROLLWIN_BOTTOM;
2130             break;
2131         }
2132     default:
2133         {
2134             // Should never get here
2135             wxFAIL_MSG("Unknown scroll event.");
2136             break;
2137         }
2138     }
2139
2140     wxScrollWinEvent event(eventType,
2141                            cbs->value,
2142                            orientation);
2143     event.SetEventObject( win );
2144     win->GetEventHandler()->ProcessEvent(event);
2145 }
2146
2147 // For repainting arbitrary windows
2148 void wxUniversalRepaintProc(Widget w, XtPointer WXUNUSED(c_data), XEvent *event, char *)
2149 {
2150     wxWindow* win = wxGetWindowFromTable(w);
2151     if (!win)
2152         return;
2153
2154     switch ( event->type )
2155     {
2156         case Expose:
2157         {
2158             win->AddUpdateRect(event->xexpose.x, event->xexpose.y,
2159                                event->xexpose.width, event->xexpose.height);
2160
2161             if ( event->xexpose.count == 0 )
2162             {
2163                 win->DoPaint();
2164             }
2165
2166             break;
2167         }
2168     }
2169 }
2170
2171 // ----------------------------------------------------------------------------
2172 // TranslateXXXEvent() functions
2173 // ----------------------------------------------------------------------------
2174
2175 bool wxTranslateMouseEvent(wxMouseEvent& wxevent, wxWindow *win,
2176                            Widget widget, const XEvent *xevent)
2177 {
2178     switch (xevent->xany.type)
2179     {
2180         case EnterNotify:
2181         case LeaveNotify:
2182 #if 0
2183             fprintf(stderr, "Widget 0x%p <-> window %p (%s), %s\n",
2184                     (WXWidget)widget, win, win->GetClassInfo()->GetClassName(),
2185                     (xevent->xany.type == EnterNotify ? "ENTER" : "LEAVE"));
2186 #endif
2187         case ButtonPress:
2188         case ButtonRelease:
2189         case MotionNotify:
2190         {
2191             int eventx = xevent->xbutton.x, eventy = xevent->xbutton.y;
2192
2193             wxEventType eventType = wxEVT_NULL;
2194
2195             if (xevent->xany.type == LeaveNotify)
2196             {
2197                 eventType = wxEVT_LEAVE_WINDOW;
2198             }
2199             if (xevent->xany.type == EnterNotify)
2200             {
2201                 eventType = wxEVT_ENTER_WINDOW;
2202             }
2203             else if (xevent->xany.type == MotionNotify)
2204             {
2205                 eventType = wxEVT_MOTION;
2206
2207                 if (xevent->xmotion.is_hint == NotifyHint)
2208                 {
2209                     Window root, child;
2210                     int x_root, y_root;
2211                     unsigned int state;
2212                     Display *dpy = XtDisplay (widget);
2213
2214                     XQueryPointer (dpy, XtWindow (widget),
2215                         &root, &child,
2216                         &x_root, &y_root, &eventx, &eventy, &state);
2217                 }
2218             }
2219             else if (xevent->xany.type == ButtonPress)
2220             {
2221                 wxevent.SetTimestamp(xevent->xbutton.time);
2222                 int button = 0;
2223                 if (xevent->xbutton.button == Button1)
2224                 {
2225                     eventType = wxEVT_LEFT_DOWN;
2226                     button = 1;
2227                 }
2228                 else if (xevent->xbutton.button == Button2)
2229                 {
2230                     eventType = wxEVT_MIDDLE_DOWN;
2231                     button = 2;
2232                 }
2233                 else if (xevent->xbutton.button == Button3)
2234                 {
2235                     eventType = wxEVT_RIGHT_DOWN;
2236                     button = 3;
2237                 }
2238
2239                 // check for a double click
2240                 //
2241                 long dclickTime = XtGetMultiClickTime(xevent->xany.display);
2242                 long ts = wxevent.GetTimestamp();
2243
2244                 int buttonLast = win->GetLastClickedButton();
2245                 long lastTS = win->GetLastClickTime();
2246                 if ( buttonLast && buttonLast == button &&
2247                      (ts - lastTS) < dclickTime )
2248                 {
2249                     // I have a dclick
2250                     win->SetLastClick(0, ts);
2251                     if ( eventType == wxEVT_LEFT_DOWN )
2252                         eventType = wxEVT_LEFT_DCLICK;
2253                     else if ( eventType == wxEVT_MIDDLE_DOWN )
2254                         eventType = wxEVT_MIDDLE_DCLICK;
2255                     else if ( eventType == wxEVT_RIGHT_DOWN )
2256                         eventType = wxEVT_RIGHT_DCLICK;
2257                 }
2258                 else
2259                 {
2260                     // not fast enough or different button
2261                     win->SetLastClick(button, ts);
2262                 }
2263             }
2264             else if (xevent->xany.type == ButtonRelease)
2265             {
2266                 if (xevent->xbutton.button == Button1)
2267                 {
2268                     eventType = wxEVT_LEFT_UP;
2269                 }
2270                 else if (xevent->xbutton.button == Button2)
2271                 {
2272                     eventType = wxEVT_MIDDLE_UP;
2273                 }
2274                 else if (xevent->xbutton.button == Button3)
2275                 {
2276                     eventType = wxEVT_RIGHT_UP;
2277                 }
2278                 else
2279                     return false;
2280             }
2281             else
2282             {
2283                 return false;
2284             }
2285
2286             wxevent.SetEventType(eventType);
2287
2288             Position x1, y1;
2289             XtVaGetValues(widget, XmNx, &x1, XmNy, &y1, NULL);
2290
2291             int x2, y2;
2292             win->GetPosition(&x2, &y2);
2293
2294             // The button x/y must be translated to wxWidgets
2295             // window space - the widget might be a label or button,
2296             // within a form.
2297             int dx = 0;
2298             int dy = 0;
2299             if (widget != (Widget)win->GetMainWidget())
2300             {
2301                 dx = x1;
2302                 dy = y1;
2303             }
2304
2305             wxevent.m_x = eventx + dx;
2306             wxevent.m_y = eventy + dy;
2307
2308             wxevent.m_leftDown = ((eventType == wxEVT_LEFT_DOWN)
2309                 || (event_left_is_down (xevent)
2310                 && (eventType != wxEVT_LEFT_UP)));
2311             wxevent.m_middleDown = ((eventType == wxEVT_MIDDLE_DOWN)
2312                 || (event_middle_is_down (xevent)
2313                 && (eventType != wxEVT_MIDDLE_UP)));
2314             wxevent.m_rightDown = ((eventType == wxEVT_RIGHT_DOWN)
2315                 || (event_right_is_down (xevent)
2316                 && (eventType != wxEVT_RIGHT_UP)));
2317
2318             wxevent.m_shiftDown = (xevent->xbutton.state & ShiftMask) == ShiftMask;
2319             wxevent.m_controlDown = (xevent->xbutton.state & ControlMask) == ControlMask;
2320             wxevent.m_altDown = (xevent->xbutton.state & Mod3Mask) == Mod3Mask;
2321             wxevent.m_metaDown = (xevent->xbutton.state & Mod1Mask) == Mod1Mask;
2322
2323             wxevent.SetId(win->GetId());
2324             wxevent.SetEventObject(win);
2325
2326             return true;
2327         }
2328     }
2329     return false;
2330 }
2331
2332 bool wxTranslateKeyEvent(wxKeyEvent& wxevent, wxWindow *win,
2333                          Widget WXUNUSED(widget), const XEvent *xevent)
2334 {
2335     switch (xevent->xany.type)
2336     {
2337     case KeyPress:
2338     case KeyRelease:
2339         {
2340             char buf[20];
2341
2342             KeySym keySym;
2343             (void) XLookupString((XKeyEvent *)xevent, buf, 20, &keySym, NULL);
2344             int id = wxCharCodeXToWX (keySym);
2345             // id may be WXK_xxx code - these are outside ASCII range, so we
2346             // can't just use toupper() on id
2347             if (id >= 'a' && id <= 'z')
2348                 id = toupper(id);
2349
2350             if (xevent->xkey.state & ShiftMask)
2351                 wxevent.m_shiftDown = true;
2352             if (xevent->xkey.state & ControlMask)
2353                 wxevent.m_controlDown = true;
2354             if (xevent->xkey.state & Mod3Mask)
2355                 wxevent.m_altDown = true;
2356             if (xevent->xkey.state & Mod1Mask)
2357                 wxevent.m_metaDown = true;
2358             wxevent.SetEventObject(win);
2359             wxevent.m_keyCode = id;
2360             wxevent.SetTimestamp(xevent->xkey.time);
2361
2362             wxevent.m_x = xevent->xbutton.x;
2363             wxevent.m_y = xevent->xbutton.y;
2364
2365             if (id > -1)
2366                 return true;
2367
2368             return false;
2369         }
2370     default:
2371         break;
2372     }
2373     return false;
2374 }
2375
2376 // ----------------------------------------------------------------------------
2377 // Colour stuff
2378 // ----------------------------------------------------------------------------
2379
2380 #define YAllocColor XAllocColor
2381 XColor g_itemColors[5];
2382 int wxComputeColours (Display *display, const wxColour * back, const wxColour * fore)
2383 {
2384     int result;
2385     static XmColorProc colorProc;
2386
2387     result = wxNO_COLORS;
2388
2389     if (back)
2390     {
2391         g_itemColors[0].red = (unsigned short)(((long) back->Red ()) << 8);
2392         g_itemColors[0].green = (unsigned short)(((long) back->Green ()) << 8);
2393         g_itemColors[0].blue = (unsigned short)(((long) back->Blue ()) << 8);
2394         g_itemColors[0].flags = DoRed | DoGreen | DoBlue;
2395         if (colorProc == (XmColorProc) NULL)
2396         {
2397             // Get a ptr to the actual function
2398             colorProc = XmSetColorCalculation ((XmColorProc) NULL);
2399             // And set it back to motif.
2400             XmSetColorCalculation (colorProc);
2401         }
2402         (*colorProc) (&g_itemColors[wxBACK_INDEX],
2403             &g_itemColors[wxFORE_INDEX],
2404             &g_itemColors[wxSELE_INDEX],
2405             &g_itemColors[wxTOPS_INDEX],
2406             &g_itemColors[wxBOTS_INDEX]);
2407         result = wxBACK_COLORS;
2408     }
2409     if (fore)
2410     {
2411         g_itemColors[wxFORE_INDEX].red = (unsigned short)(((long) fore->Red ()) << 8);
2412         g_itemColors[wxFORE_INDEX].green = (unsigned short)(((long) fore->Green ()) << 8);
2413         g_itemColors[wxFORE_INDEX].blue = (unsigned short)(((long) fore->Blue ()) << 8);
2414         g_itemColors[wxFORE_INDEX].flags = DoRed | DoGreen | DoBlue;
2415         if (result == wxNO_COLORS)
2416             result = wxFORE_COLORS;
2417     }
2418
2419     Display *dpy = display;
2420     Colormap cmap = (Colormap) wxTheApp->GetMainColormap((WXDisplay*) dpy);
2421
2422     if (back)
2423     {
2424         /* 5 Colours to allocate */
2425         for (int i = 0; i < 5; i++)
2426             if (!YAllocColor (dpy, cmap, &g_itemColors[i]))
2427                 result = wxNO_COLORS;
2428     }
2429     else if (fore)
2430     {
2431         /* Only 1 colour to allocate */
2432         if (!YAllocColor (dpy, cmap, &g_itemColors[wxFORE_INDEX]))
2433             result = wxNO_COLORS;
2434     }
2435
2436     return result;
2437 }
2438
2439 // Changes the foreground and background colours to be derived from the current
2440 // background colour. To change the foreground colour, you must call
2441 // SetForegroundColour explicitly.
2442 void wxWindow::ChangeBackgroundColour()
2443 {
2444     WXWidget mainWidget = GetMainWidget();
2445     if ( mainWidget )
2446         wxDoChangeBackgroundColour(mainWidget, m_backgroundColour);
2447     if ( m_scrolledWindow && mainWidget != m_scrolledWindow )
2448         wxDoChangeForegroundColour(m_scrolledWindow, m_backgroundColour);
2449 }
2450
2451 void wxWindow::ChangeForegroundColour()
2452 {
2453     WXWidget mainWidget = GetMainWidget();
2454     if ( mainWidget )
2455         wxDoChangeForegroundColour(mainWidget, m_foregroundColour);
2456     if ( m_scrolledWindow && mainWidget != m_scrolledWindow )
2457         wxDoChangeForegroundColour(m_scrolledWindow, m_foregroundColour);
2458 }
2459
2460 bool wxWindow::SetBackgroundColour(const wxColour& col)
2461 {
2462     if ( !wxWindowBase::SetBackgroundColour(col) )
2463         return false;
2464
2465     ChangeBackgroundColour();
2466
2467     return true;
2468 }
2469
2470 bool wxWindow::SetForegroundColour(const wxColour& col)
2471 {
2472     if ( !wxWindowBase::SetForegroundColour(col) )
2473         return false;
2474
2475     ChangeForegroundColour();
2476
2477     return true;
2478 }
2479
2480 void wxWindow::ChangeFont(bool keepOriginalSize)
2481 {
2482     // Note that this causes the widget to be resized back
2483     // to its original size! We therefore have to set the size
2484     // back again. TODO: a better way in Motif?
2485     Widget w = (Widget) GetLabelWidget(); // Usually the main widget
2486     if (w && m_font.Ok())
2487     {
2488         int width, height, width1, height1;
2489         GetSize(& width, & height);
2490
2491         wxDoChangeFont( GetLabelWidget(), m_font );
2492
2493         GetSize(& width1, & height1);
2494         if (keepOriginalSize && (width != width1 || height != height1))
2495         {
2496             SetSize(wxDefaultCoord, wxDefaultCoord, width, height);
2497         }
2498     }
2499 }
2500
2501 // ----------------------------------------------------------------------------
2502 // global functions
2503 // ----------------------------------------------------------------------------
2504
2505 wxWindow *wxGetActiveWindow()
2506 {
2507     // TODO
2508     wxFAIL_MSG("Not implemented");
2509     return NULL;
2510 }
2511
2512 /* static */
2513 wxWindow *wxWindowBase::GetCapture()
2514 {
2515     return (wxWindow *)g_captureWindow;
2516 }
2517
2518
2519 // Find the wxWindow at the current mouse position, returning the mouse
2520 // position.
2521 wxWindow* wxFindWindowAtPointer(wxPoint& pt)
2522 {
2523     pt = wxGetMousePosition();
2524     return wxFindWindowAtPoint(pt);
2525 }
2526
2527 void wxGetMouseState(int& rootX, int& rootY, unsigned& maskReturn)
2528 {
2529     Display *display = wxGlobalDisplay();
2530     Window rootWindow = RootWindowOfScreen (DefaultScreenOfDisplay(display));
2531     Window rootReturn, childReturn;
2532     int winX, winY;
2533
2534     XQueryPointer (display,
2535                    rootWindow,
2536                    &rootReturn,
2537                    &childReturn,
2538                    &rootX, &rootY, &winX, &winY, &maskReturn);
2539 }
2540
2541 // Get the current mouse position.
2542 wxPoint wxGetMousePosition()
2543 {
2544     int x, y;
2545     unsigned mask;
2546
2547     wxGetMouseState(x, y, mask);
2548     return wxPoint(x, y);
2549 }
2550
2551 wxMouseState wxGetMouseState()
2552 {
2553     wxMouseState ms;
2554     int x, y;
2555     unsigned mask;
2556
2557     wxGetMouseState(x, y, mask);
2558
2559     ms.SetX(x);
2560     ms.SetY(y);
2561
2562     ms.SetLeftDown(mask & Button1Mask);
2563     ms.SetMiddleDown(mask & Button2Mask);
2564     ms.SetRightDown(mask & Button3Mask);
2565
2566     ms.SetControlDown(mask & ControlMask);
2567     ms.SetShiftDown(mask & ShiftMask);
2568     ms.SetAltDown(mask & Mod3Mask);
2569     ms.SetMetaDown(mask & Mod1Mask);
2570
2571     return ms;
2572 }
2573
2574
2575 // ----------------------------------------------------------------------------
2576 // wxNoOptimize: switch off size optimization
2577 // ----------------------------------------------------------------------------
2578
2579 int wxNoOptimize::ms_count = 0;