src/motif/window.cpp

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