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