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