src/mgl/window.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/mgl/window.cpp
   3 // Purpose:     wxWindow
   4 // Author:      Vaclav Slavik
   5 //              (based on GTK & MSW implementations)
   6 // RCS-ID:      $Id$
   7 // Copyright:   (c) 2001-2002 SciTech Software, Inc. (www.scitechsoft.com)
   8 // Licence:     wxWindows licence
   9 /////////////////////////////////////////////////////////////////////////////
  10
  11 // ===========================================================================
  12 // declarations
  13 // ===========================================================================
  14
  15 // ---------------------------------------------------------------------------
  16 // headers
  17 // ---------------------------------------------------------------------------
  18
  19 #ifdef __GNUG__
  20     #pragma implementation "window.h"
  21 #endif
  22
  23 // For compilers that support precompilation, includes "wx.h".
  24 #include "wx/wxprec.h"
  25
  26 #ifdef __BORLANDC__
  27     #pragma hdrstop
  28 #endif
  29
  30 #ifndef WX_PRECOMP
  31     #include "wx/window.h"
  32     #include "wx/msgdlg.h"
  33     #include "wx/accel.h"
  34     #include "wx/setup.h"
  35     #include "wx/dc.h"
  36     #include "wx/dcclient.h"
  37     #include "wx/utils.h"
  38     #include "wx/app.h"
  39     #include "wx/panel.h"
  40     #include "wx/caret.h"
  41 #endif
  42
  43 #if wxUSE_DRAG_AND_DROP
  44     #include "wx/dnd.h"
  45 #endif
  46
  47 #include "wx/log.h"
  48 #include "wx/sysopt.h"
  49 #include "wx/mgl/private.h"
  50 #include "wx/intl.h"
  51 #include "wx/dcscreen.h"
  52
  53 #include <mgraph.hpp>
  54
  55 #if wxUSE_TOOLTIPS
  56     #include "wx/tooltip.h"
  57 #endif
  58
  59 // ---------------------------------------------------------------------------
  60 // global variables
  61 // ---------------------------------------------------------------------------
  62
  63 // MGL window manager and associated DC.
  64 winmng_t *g_winMng = NULL;
  65 MGLDevCtx *g_displayDC = NULL;
  66
  67 // the window that has keyboard focus:
  68 static wxWindowMGL *gs_focusedWindow = NULL;
  69 // the window that is about to be focused after currently focused
  70 // one looses focus:
  71 static wxWindow *gs_toBeFocusedWindow = NULL;
  72 // the window that is currently under mouse cursor:
  73 static wxWindowMGL *gs_windowUnderMouse = NULL;
  74 // the window that has mouse capture
  75 static wxWindowMGL *gs_mouseCapture = NULL;
  76 // the frame that is currently active (i.e. its child has focus). It is
  77 // used to generate wxActivateEvents
  78 static wxWindowMGL *gs_activeFrame = NULL;
  79
  80 // ---------------------------------------------------------------------------
  81 // constants
  82 // ---------------------------------------------------------------------------
  83
  84 // Custom identifiers used to distinguish between various event handlers
  85 // and capture handlers passed to MGL_wm
  86 enum
  87 {
  88     wxMGL_CAPTURE_MOUSE = 1,
  89     wxMGL_CAPTURE_KEYB  = 2
  90 };
  91
  92
  93 // ---------------------------------------------------------------------------
  94 // private functions
  95 // ---------------------------------------------------------------------------
  96
  97 // Returns toplevel grandparent of given window:
  98 static wxWindowMGL* wxGetTopLevelParent(wxWindowMGL *win)
  99 {
 100     wxWindowMGL *p = win;
 101     while (p && !p->IsTopLevel())
 102          p = p->GetParent();
 103     return p;
 104 }
 105
 106 // An easy way to capture screenshots:
 107 static void wxCaptureScreenshot(bool activeWindowOnly)
 108 {
 109 #ifdef __DOS__
 110     #define SCREENSHOT_FILENAME _T("sshot%03i.png")
 111 #else
 112     #define SCREENSHOT_FILENAME _T("screenshot-%03i.png")
 113 #endif
 114     static int screenshot_num = 0;
 115     wxString screenshot;
 116
 117     do
 118     {
 119         screenshot.Printf(SCREENSHOT_FILENAME, screenshot_num++);
 120     } while ( wxFileExists(screenshot) && screenshot_num < 1000 );
 121
 122     wxRect r(0, 0, g_displayDC->sizex(), g_displayDC->sizey());
 123
 124     if ( activeWindowOnly && gs_activeFrame )
 125     {
 126         r.Intersect(gs_activeFrame->GetRect());
 127     }
 128
 129     g_displayDC->savePNGFromDC(screenshot.mb_str(),
 130                                r.x, r. y, r.x+r.width, r.y+r.height);
 131
 132     wxMessageBox(wxString::Format(_T("Screenshot captured: %s"),
 133                                   screenshot.c_str()));
 134 }
 135
 136 // ---------------------------------------------------------------------------
 137 // MGL_WM hooks:
 138 // ---------------------------------------------------------------------------
 139
 140 static void MGLAPI wxWindowPainter(window_t *wnd, MGLDC *dc)
 141 {
 142     wxWindowMGL *w = (wxWindow*) wnd->userData;
 143
 144     if ( w && !(w->GetWindowStyle() & wxTRANSPARENT_WINDOW) )
 145     {
 146         MGLDevCtx ctx(dc);
 147         w->HandlePaint(&ctx);
 148     }
 149 }
 150
 151 static ibool MGLAPI wxWindowMouseHandler(window_t *wnd, event_t *e)
 152 {
 153     wxWindowMGL *win = (wxWindowMGL*)MGL_wmGetWindowUserData(wnd);
 154     wxPoint orig(win->GetClientAreaOrigin());
 155     wxPoint where;
 156
 157     MGL_wmCoordGlobalToLocal(win->GetHandle(),
 158                              e->where_x, e->where_y, &where.x, &where.y);
 159
 160     for (wxWindowMGL *w = win; w; w = w->GetParent())
 161     {
 162         if ( !w->IsEnabled() )
 163             return FALSE;
 164         if ( w->IsTopLevel() )
 165             break;
 166     }
 167
 168     wxEventType type = wxEVT_NULL;
 169     wxMouseEvent event;
 170     event.SetEventObject(win);
 171     event.SetTimestamp(e->when);
 172     event.m_x = where.x - orig.x;
 173     event.m_y = where.y - orig.y;
 174     event.m_shiftDown = e->modifiers & EVT_SHIFTKEY;
 175     event.m_controlDown = e->modifiers & EVT_CTRLSTATE;
 176     event.m_altDown = e->modifiers & EVT_LEFTALT;
 177     event.m_metaDown = e->modifiers & EVT_RIGHTALT;
 178     event.m_leftDown = e->modifiers & EVT_LEFTBUT;
 179     event.m_middleDown = e->modifiers & EVT_MIDDLEBUT;
 180     event.m_rightDown = e->modifiers & EVT_RIGHTBUT;
 181
 182     switch (e->what)
 183     {
 184         case EVT_MOUSEDOWN:
 185             // Change focus if the user clicks outside focused window:
 186             if ( win->AcceptsFocus() && wxWindow::FindFocus() != win )
 187                 win->SetFocus();
 188
 189             if ( e->message & EVT_DBLCLICK )
 190             {
 191                 if ( e->message & EVT_LEFTBMASK )
 192                     type = wxEVT_LEFT_DCLICK;
 193                 else if ( e->message & EVT_MIDDLEBMASK )
 194                     type = wxEVT_MIDDLE_DCLICK;
 195                 else if ( e->message & EVT_RIGHTBMASK )
 196                     type = wxEVT_RIGHT_DCLICK;
 197             }
 198             else
 199             {
 200                 if ( e->message & EVT_LEFTBMASK )
 201                     type = wxEVT_LEFT_DOWN;
 202                 else if ( e->message & EVT_MIDDLEBMASK )
 203                     type = wxEVT_MIDDLE_DOWN;
 204                 else if ( e->message & EVT_RIGHTBMASK )
 205                     type = wxEVT_RIGHT_DOWN;
 206             }
 207
 208             break;
 209
 210         case EVT_MOUSEUP:
 211             if ( e->message & EVT_LEFTBMASK )
 212                 type = wxEVT_LEFT_UP;
 213             else if ( e->message & EVT_MIDDLEBMASK )
 214                 type = wxEVT_MIDDLE_UP;
 215             else if ( e->message & EVT_RIGHTBMASK )
 216                 type = wxEVT_RIGHT_UP;
 217             break;
 218
 219         case EVT_MOUSEMOVE:
 220             if ( !gs_mouseCapture )
 221             {
 222                 if ( win != gs_windowUnderMouse )
 223                 {
 224                     if ( gs_windowUnderMouse )
 225                     {
 226                         wxMouseEvent event2(event);
 227                         MGL_wmCoordGlobalToLocal(gs_windowUnderMouse->GetHandle(),
 228                                                  e->where_x, e->where_y,
 229                                                  &event2.m_x, &event2.m_y);
 230
 231                         wxPoint orig(gs_windowUnderMouse->GetClientAreaOrigin());
 232                         event2.m_x -= orig.x;
 233                         event2.m_y -= orig.y;
 234
 235                         event2.SetEventObject(gs_windowUnderMouse);
 236                         event2.SetEventType(wxEVT_LEAVE_WINDOW);
 237                         gs_windowUnderMouse->GetEventHandler()->ProcessEvent(event2);
 238                     }
 239
 240                     wxMouseEvent event3(event);
 241                     event3.SetEventType(wxEVT_ENTER_WINDOW);
 242                     win->GetEventHandler()->ProcessEvent(event3);
 243
 244                     gs_windowUnderMouse = win;
 245                 }
 246             }
 247             else // gs_mouseCapture
 248             {
 249                 bool inside = (where.x >= 0 &&
 250                                where.y >= 0 &&
 251                                where.x < win->GetSize().x &&
 252                                where.y < win->GetSize().y);
 253                 if ( (inside && gs_windowUnderMouse != win) ||
 254                      (!inside && gs_windowUnderMouse == win) )
 255                 {
 256                     wxMouseEvent evt(inside ?
 257                                      wxEVT_ENTER_WINDOW : wxEVT_LEAVE_WINDOW);
 258                     evt.SetEventObject(win);
 259                     win->GetEventHandler()->ProcessEvent(evt);
 260                     gs_windowUnderMouse = inside ? win : NULL;
 261                 }
 262             }
 263
 264             type = wxEVT_MOTION;
 265             break;
 266
 267         default:
 268             break;
 269     }
 270
 271     if ( type == wxEVT_NULL )
 272     {
 273         return FALSE;
 274     }
 275     else
 276     {
 277         event.SetEventType(type);
 278         return win->GetEventHandler()->ProcessEvent(event);
 279     }
 280 }
 281
 282 static long wxScanToKeyCode(event_t *event, bool translate)
 283 {
 284     // VS: make it __WXDEBUG__-only, since we have lots of wxLogTrace calls
 285     //     here and the arguments would be stored in non-debug executable even
 286     //     though wxLogTrace would be no-op...
 287     #ifdef __WXDEBUG__
 288       #define KEY(mgl_key,wx_key) \
 289         case mgl_key: \
 290           wxLogTrace(_T("keyevents"), \
 291                      _T("key " #mgl_key ", mapped to " #wx_key)); \
 292           key = wx_key; \
 293           break;
 294     #else
 295       #define KEY(mgl_key,wx_key) \
 296         case mgl_key: key = wx_key; break;
 297     #endif
 298
 299     long key = 0;
 300
 301     if ( translate )
 302     {
 303         switch ( EVT_scanCode(event->message) )
 304         {
 305             KEY (KB_padMinus,       WXK_NUMPAD_SUBTRACT)
 306             KEY (KB_padPlus,        WXK_NUMPAD_ADD)
 307             KEY (KB_padTimes,       WXK_NUMPAD_MULTIPLY)
 308             KEY (KB_padDivide,      WXK_NUMPAD_DIVIDE)
 309             KEY (KB_padCenter,      WXK_NUMPAD_SEPARATOR) // ?
 310             KEY (KB_padLeft,        WXK_NUMPAD_LEFT)
 311             KEY (KB_padRight,       WXK_NUMPAD_RIGHT)
 312             KEY (KB_padUp,          WXK_NUMPAD_UP)
 313             KEY (KB_padDown,        WXK_NUMPAD_DOWN)
 314             KEY (KB_padInsert,      WXK_NUMPAD_INSERT)
 315             KEY (KB_padDelete,      WXK_NUMPAD_DELETE)
 316             KEY (KB_padHome,        WXK_NUMPAD_HOME)
 317             KEY (KB_padEnd,         WXK_NUMPAD_END)
 318             KEY (KB_padPageUp,      WXK_NUMPAD_PAGEUP)
 319           //KEY (KB_padPageUp,      WXK_NUMPAD_PRIOR)
 320             KEY (KB_padPageDown,    WXK_NUMPAD_PAGEDOWN)
 321           //KEY (KB_padPageDown,    WXK_NUMPAD_NEXT)
 322             KEY (KB_1,              '1')
 323             KEY (KB_2,              '2')
 324             KEY (KB_3,              '3')
 325             KEY (KB_4,              '4')
 326             KEY (KB_5,              '5')
 327             KEY (KB_6,              '6')
 328             KEY (KB_7,              '7')
 329             KEY (KB_8,              '8')
 330             KEY (KB_9,              '9')
 331             KEY (KB_0,              '0')
 332             KEY (KB_minus,          WXK_SUBTRACT)
 333             KEY (KB_equals,         WXK_ADD)
 334             KEY (KB_backSlash,      '\\')
 335             KEY (KB_Q,              'Q')
 336             KEY (KB_W,              'W')
 337             KEY (KB_E,              'E')
 338             KEY (KB_R,              'R')
 339             KEY (KB_T,              'T')
 340             KEY (KB_Y,              'Y')
 341             KEY (KB_U,              'U')
 342             KEY (KB_I,              'I')
 343             KEY (KB_O,              'O')
 344             KEY (KB_P,              'P')
 345             KEY (KB_leftSquareBrace,'[')
 346             KEY (KB_rightSquareBrace,']')
 347             KEY (KB_A,              'A')
 348             KEY (KB_S,              'S')
 349             KEY (KB_D,              'D')
 350             KEY (KB_F,              'F')
 351             KEY (KB_G,              'G')
 352             KEY (KB_H,              'H')
 353             KEY (KB_J,              'J')
 354             KEY (KB_K,              'K')
 355             KEY (KB_L,              'L')
 356             KEY (KB_semicolon,      ';')
 357             KEY (KB_apostrophe,     '\'')
 358             KEY (KB_Z,              'Z')
 359             KEY (KB_X,              'X')
 360             KEY (KB_C,              'C')
 361             KEY (KB_V,              'V')
 362             KEY (KB_B,              'B')
 363             KEY (KB_N,              'N')
 364             KEY (KB_M,              'M')
 365             KEY (KB_comma,          ',')
 366             KEY (KB_period,         '.')
 367             KEY (KB_divide,         WXK_DIVIDE)
 368             KEY (KB_space,          WXK_SPACE)
 369             KEY (KB_tilde,          '~')
 370
 371             default: break;
 372         }
 373     }
 374
 375     if ( key == 0 )
 376     {
 377         switch ( EVT_scanCode(event->message) )
 378         {
 379             KEY (KB_padEnter,       WXK_NUMPAD_ENTER)
 380             KEY (KB_F1,             WXK_F1)
 381             KEY (KB_F2,             WXK_F2)
 382             KEY (KB_F3,             WXK_F3)
 383             KEY (KB_F4,             WXK_F4)
 384             KEY (KB_F5,             WXK_F5)
 385             KEY (KB_F6,             WXK_F6)
 386             KEY (KB_F7,             WXK_F7)
 387             KEY (KB_F8,             WXK_F8)
 388             KEY (KB_F9,             WXK_F9)
 389             KEY (KB_F10,            WXK_F10)
 390             KEY (KB_F11,            WXK_F11)
 391             KEY (KB_F12,            WXK_F12)
 392             KEY (KB_left,           WXK_LEFT)
 393             KEY (KB_right,          WXK_RIGHT)
 394             KEY (KB_up,             WXK_UP)
 395             KEY (KB_down,           WXK_DOWN)
 396             KEY (KB_insert,         WXK_INSERT)
 397             KEY (KB_delete,         WXK_DELETE)
 398             KEY (KB_home,           WXK_HOME)
 399             KEY (KB_end,            WXK_END)
 400             KEY (KB_pageUp,         WXK_PAGEUP)
 401             KEY (KB_pageDown,       WXK_PAGEDOWN)
 402             KEY (KB_capsLock,       WXK_CAPITAL)
 403             KEY (KB_numLock,        WXK_NUMLOCK)
 404             KEY (KB_scrollLock,     WXK_SCROLL)
 405             KEY (KB_leftShift,      WXK_SHIFT)
 406             KEY (KB_rightShift,     WXK_SHIFT)
 407             KEY (KB_leftCtrl,       WXK_CONTROL)
 408             KEY (KB_rightCtrl,      WXK_CONTROL)
 409             KEY (KB_leftAlt,        WXK_ALT)
 410             KEY (KB_rightAlt,       WXK_ALT)
 411             KEY (KB_leftWindows,    WXK_START)
 412             KEY (KB_rightWindows,   WXK_START)
 413             KEY (KB_menu,           WXK_MENU)
 414             KEY (KB_sysReq,         WXK_SNAPSHOT)
 415             KEY (KB_esc,            WXK_ESCAPE)
 416             KEY (KB_backspace,      WXK_BACK)
 417             KEY (KB_tab,            WXK_TAB)
 418             KEY (KB_enter,          WXK_RETURN)
 419
 420             default:
 421                 key = EVT_asciiCode(event->message);
 422                 break;
 423         }
 424     }
 425
 426     #undef KEY
 427
 428     return key;
 429 }
 430
 431 static bool wxHandleSpecialKeys(wxKeyEvent& event)
 432 {
 433     // Add an easy way to capture screenshots:
 434     if ( event.m_keyCode == WXK_SNAPSHOT
 435     #ifdef __WXDEBUG__ // FIXME_MGL - remove when KB_sysReq works in MGL!
 436          || (event.m_keyCode == WXK_F1 &&
 437             event.m_shiftDown && event.m_controlDown)
 438     #endif
 439        )
 440     {
 441         wxCaptureScreenshot(event.m_altDown/*only active wnd?*/);
 442         return TRUE;
 443     }
 444
 445     return FALSE;
 446 }
 447
 448 static ibool MGLAPI wxWindowKeybHandler(window_t *wnd, event_t *e)
 449 {
 450     wxWindowMGL *win = (wxWindowMGL*)MGL_wmGetWindowUserData(wnd);
 451
 452     if ( !win->IsEnabled() ) return FALSE;
 453
 454     wxPoint where;
 455     MGL_wmCoordGlobalToLocal(win->GetHandle(),
 456                              e->where_x, e->where_y, &where.x, &where.y);
 457
 458     wxKeyEvent event;
 459     event.SetEventObject(win);
 460     event.SetTimestamp(e->when);
 461     event.m_keyCode = wxScanToKeyCode(e, TRUE);
 462     event.m_scanCode = 0; // not used by wx at all
 463     event.m_x = where.x;
 464     event.m_y = where.y;
 465     event.m_shiftDown = e->modifiers & EVT_SHIFTKEY;
 466     event.m_controlDown = e->modifiers & EVT_CTRLSTATE;
 467     event.m_altDown = e->modifiers & EVT_LEFTALT;
 468     event.m_metaDown = e->modifiers & EVT_RIGHTALT;
 469
 470     if ( e->what == EVT_KEYUP )
 471     {
 472         event.SetEventType(wxEVT_KEY_UP);
 473         return win->GetEventHandler()->ProcessEvent(event);
 474     }
 475     else
 476     {
 477         bool ret;
 478         wxKeyEvent event2;
 479
 480         event.SetEventType(wxEVT_KEY_DOWN);
 481         event2 = event;
 482
 483         ret = win->GetEventHandler()->ProcessEvent(event);
 484
 485         // wxMSW doesn't send char events with Alt pressed
 486         // Only send wxEVT_CHAR event if not processed yet. Thus, ALT-x
 487         // will only be sent if it is not in an accelerator table:
 488         event2.m_keyCode = wxScanToKeyCode(e, FALSE);
 489         if ( !ret && event2.m_keyCode != 0 )
 490         {
 491             event2.SetEventType(wxEVT_CHAR);
 492             ret = win->GetEventHandler()->ProcessEvent(event2);
 493         }
 494
 495         // Synthetize navigation key event, but do it only if the TAB key
 496         // wasn't handled yet:
 497         if ( !ret && event.m_keyCode == WXK_TAB &&
 498              win->GetParent() && win->GetParent()->HasFlag(wxTAB_TRAVERSAL) )
 499         {
 500             wxNavigationKeyEvent navEvent;
 501             navEvent.SetEventObject(win->GetParent());
 502             // Shift-TAB goes in reverse direction:
 503             navEvent.SetDirection(!event.m_shiftDown);
 504             // Ctrl-TAB changes the (parent) window, i.e. switch notebook page:
 505             navEvent.SetWindowChange(event.m_controlDown);
 506             navEvent.SetCurrentFocus(wxStaticCast(win, wxWindow));
 507             ret = win->GetParent()->GetEventHandler()->ProcessEvent(navEvent);
 508         }
 509
 510         // Finally, process special meaning keys that are usually
 511         // a responsibility of OS or window manager:
 512         if ( !ret )
 513             ret = wxHandleSpecialKeys(event);
 514
 515         return ret;
 516     }
 517 }
 518
 519 // ---------------------------------------------------------------------------
 520 // event tables
 521 // ---------------------------------------------------------------------------
 522
 523 // in wxUniv this class is abstract because it doesn't have DoPopupMenu()
 524 IMPLEMENT_ABSTRACT_CLASS(wxWindowMGL, wxWindowBase)
 525
 526 BEGIN_EVENT_TABLE(wxWindowMGL, wxWindowBase)
 527     EVT_IDLE(wxWindowMGL::OnIdle)
 528 END_EVENT_TABLE()
 529
 530 // ===========================================================================
 531 // implementation
 532 // ===========================================================================
 533
 534 // ----------------------------------------------------------------------------
 535 // constructors and such
 536 // ----------------------------------------------------------------------------
 537
 538 extern wxDisplayModeInfo wxGetDefaultDisplayMode();
 539
 540 void wxWindowMGL::Init()
 541 {
 542     // First of all, make sure window manager is up and running. If it is
 543     // not the case, initialize it in default display mode
 544     if ( !g_winMng )
 545     {
 546         if ( !wxTheApp->SetDisplayMode(wxGetDefaultDisplayMode()) )
 547             wxLogFatalError(_("Cannot initialize display."));
 548     }
 549
 550     // generic:
 551     InitBase();
 552
 553     // mgl specific:
 554     m_wnd = NULL;
 555     m_isShown = TRUE;
 556     m_isBeingDeleted = FALSE;
 557     m_isEnabled = TRUE;
 558     m_frozen = FALSE;
 559     m_paintMGLDC = NULL;
 560     m_eraseBackground = -1;
 561 }
 562
 563 // Destructor
 564 wxWindowMGL::~wxWindowMGL()
 565 {
 566     SendDestroyEvent();
 567
 568     m_isBeingDeleted = TRUE;
 569
 570     if ( gs_mouseCapture == this )
 571         ReleaseMouse();
 572
 573     if (gs_activeFrame == this)
 574     {
 575         gs_activeFrame = NULL;
 576         // activate next frame in Z-order:
 577         if ( m_wnd->prev )
 578         {
 579             wxWindowMGL *win = (wxWindowMGL*)m_wnd->prev->userData;
 580             win->SetFocus();
 581         }
 582         else if ( m_wnd->next )
 583         {
 584             wxWindowMGL *win = (wxWindowMGL*)m_wnd->next->userData;
 585             win->SetFocus();
 586         }
 587     }
 588
 589     if ( gs_focusedWindow == this )
 590         KillFocus();
 591
 592     if ( gs_windowUnderMouse == this )
 593         gs_windowUnderMouse = NULL;
 594
 595     // VS: destroy children first and _then_ detach *this from its parent.
 596     //     If we'd do it the other way around, children wouldn't be able
 597     //     find their parent frame (see above).
 598     DestroyChildren();
 599
 600     if ( m_parent )
 601         m_parent->RemoveChild(this);
 602
 603     if ( m_wnd )
 604         MGL_wmDestroyWindow(m_wnd);
 605 }
 606
 607 // real construction (Init() must have been called before!)
 608 bool wxWindowMGL::Create(wxWindow *parent,
 609                          wxWindowID id,
 610                          const wxPoint& pos,
 611                          const wxSize& size,
 612                          long style,
 613                          const wxString& name)
 614 {
 615     if ( !CreateBase(parent, id, pos, size, style, wxDefaultValidator, name) )
 616         return FALSE;
 617
 618     if ( parent )
 619         parent->AddChild(this);
 620
 621     int x, y, w, h;
 622     x = pos.x, y = pos.y;
 623     if ( x == -1 )
 624         x = 0; // FIXME_MGL, something better, see GTK+
 625     if ( y == -1 )
 626         y = 0; // FIXME_MGL, something better, see GTK+
 627     AdjustForParentClientOrigin(x, y, 0);
 628     w = WidthDefault(size.x);
 629     h = HeightDefault(size.y);
 630
 631     long mgl_style = 0;
 632     window_t *wnd_parent = parent ? parent->GetHandle() : NULL;
 633
 634     if ( !(style & wxNO_FULL_REPAINT_ON_RESIZE) )
 635     {
 636         mgl_style |= MGL_WM_FULL_REPAINT_ON_RESIZE;
 637     }
 638     if ( style & wxSTAY_ON_TOP )
 639     {
 640         mgl_style |= MGL_WM_ALWAYS_ON_TOP;
 641     }
 642     if ( style & wxPOPUP_WINDOW )
 643     {
 644         mgl_style |= MGL_WM_ALWAYS_ON_TOP;
 645         // it is created hidden as other top level windows
 646         m_isShown = FALSE;
 647         wnd_parent = NULL;
 648     }
 649
 650     window_t *wnd = MGL_wmCreateWindow(g_winMng, wnd_parent, x, y, w, h);
 651
 652     MGL_wmSetWindowFlags(wnd, mgl_style);
 653     MGL_wmShowWindow(wnd, m_isShown);
 654
 655     SetMGLwindow_t(wnd);
 656
 657     return TRUE;
 658 }
 659
 660 void wxWindowMGL::SetMGLwindow_t(struct window_t *wnd)
 661 {
 662     if ( m_wnd )
 663         MGL_wmDestroyWindow(m_wnd);
 664
 665     m_wnd = wnd;
 666     if ( !m_wnd ) return;
 667
 668     m_isShown = m_wnd->visible;
 669
 670     MGL_wmSetWindowUserData(m_wnd, (void*) this);
 671     MGL_wmSetWindowPainter(m_wnd, wxWindowPainter);
 672     MGL_wmPushWindowEventHandler(m_wnd, wxWindowMouseHandler, EVT_MOUSEEVT, 0);
 673     MGL_wmPushWindowEventHandler(m_wnd, wxWindowKeybHandler, EVT_KEYEVT, 0);
 674
 675     if ( m_cursor.Ok() )
 676         MGL_wmSetWindowCursor(m_wnd, *m_cursor.GetMGLCursor());
 677     else
 678         MGL_wmSetWindowCursor(m_wnd, *wxSTANDARD_CURSOR->GetMGLCursor());
 679 }
 680
 681 // ---------------------------------------------------------------------------
 682 // basic operations
 683 // ---------------------------------------------------------------------------
 684
 685 void wxWindowMGL::SetFocus()
 686 {
 687     if ( gs_focusedWindow == this ) return;
 688
 689     wxWindowMGL *oldFocusedWindow = gs_focusedWindow;
 690
 691     if ( gs_focusedWindow )
 692     {
 693         gs_toBeFocusedWindow = (wxWindow*)this;
 694         gs_focusedWindow->KillFocus();
 695         gs_toBeFocusedWindow = NULL;
 696     }
 697
 698     gs_focusedWindow = this;
 699
 700     MGL_wmCaptureEvents(GetHandle(), EVT_KEYEVT, wxMGL_CAPTURE_KEYB);
 701
 702     wxWindowMGL *active = wxGetTopLevelParent(this);
 703     if ( !(m_windowStyle & wxPOPUP_WINDOW) && active != gs_activeFrame )
 704     {
 705         if ( gs_activeFrame )
 706         {
 707             wxActivateEvent event(wxEVT_ACTIVATE, FALSE, gs_activeFrame->GetId());
 708             event.SetEventObject(gs_activeFrame);
 709             gs_activeFrame->GetEventHandler()->ProcessEvent(event);
 710         }
 711
 712         gs_activeFrame = active;
 713         wxActivateEvent event(wxEVT_ACTIVATE, TRUE, gs_activeFrame->GetId());
 714         event.SetEventObject(gs_activeFrame);
 715         gs_activeFrame->GetEventHandler()->ProcessEvent(event);
 716     }
 717
 718     wxFocusEvent event(wxEVT_SET_FOCUS, GetId());
 719     event.SetEventObject(this);
 720     event.SetWindow((wxWindow*)oldFocusedWindow);
 721     GetEventHandler()->ProcessEvent(event);
 722
 723 #if wxUSE_CARET
 724     // caret needs to be informed about focus change
 725     wxCaret *caret = GetCaret();
 726     if ( caret )
 727         caret->OnSetFocus();
 728 #endif // wxUSE_CARET
 729 }
 730
 731 void wxWindowMGL::KillFocus()
 732 {
 733     if ( gs_focusedWindow != this ) return;
 734     gs_focusedWindow = NULL;
 735
 736     if ( m_isBeingDeleted ) return;
 737
 738     MGL_wmUncaptureEvents(GetHandle(), wxMGL_CAPTURE_KEYB);
 739
 740 #if wxUSE_CARET
 741     // caret needs to be informed about focus change
 742     wxCaret *caret = GetCaret();
 743     if ( caret )
 744         caret->OnKillFocus();
 745 #endif // wxUSE_CARET
 746
 747     wxFocusEvent event(wxEVT_KILL_FOCUS, GetId());
 748     event.SetEventObject(this);
 749     event.SetWindow(gs_toBeFocusedWindow);
 750     GetEventHandler()->ProcessEvent(event);
 751 }
 752
 753 // ----------------------------------------------------------------------------
 754 // this wxWindowBase function is implemented here (in platform-specific file)
 755 // because it is static and so couldn't be made virtual
 756 // ----------------------------------------------------------------------------
 757 wxWindow *wxWindowBase::FindFocus()
 758 {
 759     return (wxWindow*)gs_focusedWindow;
 760 }
 761
 762 bool wxWindowMGL::Show(bool show)
 763 {
 764     if ( !wxWindowBase::Show(show) )
 765         return FALSE;
 766
 767     MGL_wmShowWindow(m_wnd, show);
 768
 769     if (!show && gs_activeFrame == this)
 770     {
 771         // activate next frame in Z-order:
 772         if ( m_wnd->prev )
 773         {
 774             wxWindowMGL *win = (wxWindowMGL*)m_wnd->prev->userData;
 775             win->SetFocus();
 776         }
 777         else if ( m_wnd->next )
 778         {
 779             wxWindowMGL *win = (wxWindowMGL*)m_wnd->next->userData;
 780             win->SetFocus();
 781         }
 782         else
 783         {
 784             gs_activeFrame = NULL;
 785         }
 786     }
 787
 788     return TRUE;
 789 }
 790
 791 // Raise the window to the top of the Z order
 792 void wxWindowMGL::Raise()
 793 {
 794     MGL_wmRaiseWindow(m_wnd);
 795 }
 796
 797 // Lower the window to the bottom of the Z order
 798 void wxWindowMGL::Lower()
 799 {
 800     MGL_wmLowerWindow(m_wnd);
 801 }
 802
 803 void wxWindowMGL::DoCaptureMouse()
 804 {
 805     if ( gs_mouseCapture )
 806         MGL_wmUncaptureEvents(gs_mouseCapture->m_wnd, wxMGL_CAPTURE_MOUSE);
 807
 808     gs_mouseCapture = this;
 809     MGL_wmCaptureEvents(m_wnd, EVT_MOUSEEVT, wxMGL_CAPTURE_MOUSE);
 810 }
 811
 812 void wxWindowMGL::DoReleaseMouse()
 813 {
 814     wxASSERT_MSG( gs_mouseCapture == this, wxT("attempt to release mouse, but this window hasn't captured it") );
 815
 816     MGL_wmUncaptureEvents(m_wnd, wxMGL_CAPTURE_MOUSE);
 817     gs_mouseCapture = NULL;
 818 }
 819
 820 /* static */ wxWindow *wxWindowBase::GetCapture()
 821 {
 822     return (wxWindow*)gs_mouseCapture;
 823 }
 824
 825 bool wxWindowMGL::SetCursor(const wxCursor& cursor)
 826 {
 827     if ( !wxWindowBase::SetCursor(cursor) )
 828     {
 829         // no change
 830         return FALSE;
 831     }
 832
 833     if ( m_cursor.Ok() )
 834         MGL_wmSetWindowCursor(m_wnd, *m_cursor.GetMGLCursor());
 835     else
 836         MGL_wmSetWindowCursor(m_wnd, *wxSTANDARD_CURSOR->GetMGLCursor());
 837
 838     return TRUE;
 839 }
 840
 841 void wxWindowMGL::WarpPointer(int x, int y)
 842 {
 843     int w, h;
 844     wxDisplaySize(&w, &h);
 845
 846     ClientToScreen(&x, &y);
 847     if ( x < 0 )
 848         x = 0;
 849     if ( y < 0 )
 850         y = 0;
 851     if ( x >= w )
 852         x = w-1;
 853     if ( y >= h )
 854         y = h-1;
 855
 856     EVT_setMousePos(x, y);
 857 }
 858
 859 #if WXWIN_COMPATIBILITY
 860 // If nothing defined for this, try the parent.
 861 // E.g. we may be a button loaded from a resource, with no callback function
 862 // defined.
 863 void wxWindowMGL::OnCommand(wxWindow& win, wxCommandEvent& event)
 864 {
 865     if ( GetEventHandler()->ProcessEvent(event)  )
 866         return;
 867     if ( m_parent )
 868         m_parent->GetEventHandler()->OnCommand(win, event);
 869 }
 870 #endif // WXWIN_COMPATIBILITY_2
 871
 872 #if WXWIN_COMPATIBILITY
 873 wxObject* wxWindowMGL::GetChild(int number) const
 874 {
 875     // Return a pointer to the Nth object in the Panel
 876     wxNode *node = GetChildren().First();
 877     int n = number;
 878     while (node && n--)
 879         node = node->Next();
 880     if ( node )
 881     {
 882         wxObject *obj = (wxObject *)node->Data();
 883         return(obj);
 884     }
 885     else
 886         return NULL;
 887 }
 888 #endif // WXWIN_COMPATIBILITY
 889
 890 // Set this window to be the child of 'parent'.
 891 bool wxWindowMGL::Reparent(wxWindowBase *parent)
 892 {
 893     if ( !wxWindowBase::Reparent(parent) )
 894         return FALSE;
 895
 896     MGL_wmReparentWindow(m_wnd, parent->GetHandle());
 897
 898     return TRUE;
 899 }
 900
 901
 902 // ---------------------------------------------------------------------------
 903 // drag and drop
 904 // ---------------------------------------------------------------------------
 905
 906 #if wxUSE_DRAG_AND_DROP
 907
 908 void wxWindowMGL::SetDropTarget(wxDropTarget *pDropTarget)
 909 {
 910     if ( m_dropTarget != 0 ) {
 911         m_dropTarget->Revoke(m_hWnd);
 912         delete m_dropTarget;
 913     }
 914
 915     m_dropTarget = pDropTarget;
 916     if ( m_dropTarget != 0 )
 917         m_dropTarget->Register(m_hWnd);
 918 }
 919 // FIXME_MGL
 920 #endif // wxUSE_DRAG_AND_DROP
 921
 922 // old style file-manager drag&drop support: we retain the old-style
 923 // DragAcceptFiles in parallel with SetDropTarget.
 924 void wxWindowMGL::DragAcceptFiles(bool accept)
 925 {
 926 #if 0 // FIXME_MGL
 927     HWND hWnd = GetHwnd();
 928     if ( hWnd )
 929         ::DragAcceptFiles(hWnd, (BOOL)accept);
 930 #endif
 931 }
 932
 933 // ---------------------------------------------------------------------------
 934 // moving and resizing
 935 // ---------------------------------------------------------------------------
 936
 937 // Get total size
 938 void wxWindowMGL::DoGetSize(int *x, int *y) const
 939 {
 940     wxASSERT_MSG( m_wnd, wxT("invalid window") );
 941
 942     if (x) *x = m_wnd->width;
 943     if (y) *y = m_wnd->height;
 944 }
 945
 946 void wxWindowMGL::DoGetPosition(int *x, int *y) const
 947 {
 948     wxASSERT_MSG( m_wnd, wxT("invalid window") );
 949
 950     int pX = 0, pY = 0;
 951     AdjustForParentClientOrigin(pX, pY, 0);
 952
 953     if (x) *x = m_wnd->x - pX;
 954     if (y) *y = m_wnd->y - pY;
 955 }
 956
 957 void wxWindowMGL::DoScreenToClient(int *x, int *y) const
 958 {
 959     int ax, ay;
 960     MGL_wmCoordGlobalToLocal(m_wnd, 0, 0, &ax, &ay);
 961     if (x)
 962         (*x) += ax;
 963     if (y)
 964         (*y) += ay;
 965 }
 966
 967 void wxWindowMGL::DoClientToScreen(int *x, int *y) const
 968 {
 969     int ax, ay;
 970     MGL_wmCoordLocalToGlobal(m_wnd, 0, 0, &ax, &ay);
 971     if (x)
 972         (*x) += ax;
 973     if (y)
 974         (*y) += ay;
 975 }
 976
 977 // Get size *available for subwindows* i.e. excluding menu bar etc.
 978 void wxWindowMGL::DoGetClientSize(int *x, int *y) const
 979 {
 980     DoGetSize(x, y);
 981 }
 982
 983 void wxWindowMGL::DoMoveWindow(int x, int y, int width, int height)
 984 {
 985     MGL_wmSetWindowPosition(GetHandle(), x, y, width, height);
 986 }
 987
 988 // set the size of the window: if the dimensions are positive, just use them,
 989 // but if any of them is equal to -1, it means that we must find the value for
 990 // it ourselves (unless sizeFlags contains wxSIZE_ALLOW_MINUS_ONE flag, in
 991 // which case -1 is a valid value for x and y)
 992 //
 993 // If sizeFlags contains wxSIZE_AUTO_WIDTH/HEIGHT flags (default), we calculate
 994 // the width/height to best suit our contents, otherwise we reuse the current
 995 // width/height
 996 void wxWindowMGL::DoSetSize(int x, int y, int width, int height, int sizeFlags)
 997 {
 998     // get the current size and position...
 999     int currentX, currentY;
1000     GetPosition(&currentX, &currentY);
1001     int currentW,currentH;
1002     GetSize(&currentW, &currentH);
1003
1004     // ... and don't do anything (avoiding flicker) if it's already ok
1005     if ( x == currentX && y == currentY &&
1006          width == currentW && height == currentH )
1007     {
1008         return;
1009     }
1010
1011     if ( x == -1 && !(sizeFlags & wxSIZE_ALLOW_MINUS_ONE) )
1012         x = currentX;
1013     if ( y == -1 && !(sizeFlags & wxSIZE_ALLOW_MINUS_ONE) )
1014         y = currentY;
1015
1016     AdjustForParentClientOrigin(x, y, sizeFlags);
1017
1018     wxSize size(-1, -1);
1019     if ( width == -1 )
1020     {
1021         if ( sizeFlags & wxSIZE_AUTO_WIDTH )
1022         {
1023             size = DoGetBestSize();
1024             width = size.x;
1025         }
1026         else
1027         {
1028             // just take the current one
1029             width = currentW;
1030         }
1031     }
1032
1033     if ( height == -1 )
1034     {
1035         if ( sizeFlags & wxSIZE_AUTO_HEIGHT )
1036         {
1037             if ( size.x == -1 )
1038             {
1039                 size = DoGetBestSize();
1040             }
1041             //else: already called DoGetBestSize() above
1042
1043             height = size.y;
1044         }
1045         else
1046         {
1047             // just take the current one
1048             height = currentH;
1049         }
1050     }
1051
1052     int maxWidth = GetMaxWidth(),
1053         minWidth = GetMinWidth(),
1054         maxHeight = GetMaxHeight(),
1055         minHeight = GetMinHeight();
1056
1057     if ( minWidth != -1 && width < minWidth ) width = minWidth;
1058     if ( maxWidth != -1 && width > maxWidth ) width = maxWidth;
1059     if ( minHeight != -1 && height < minHeight ) height = minHeight;
1060     if ( maxHeight != -1 && height > maxHeight ) height = maxHeight;
1061
1062     if ( m_wnd->x != x || m_wnd->y != y ||
1063          (int)m_wnd->width != width || (int)m_wnd->height != height )
1064     {
1065         DoMoveWindow(x, y, width, height);
1066
1067         wxSizeEvent event(wxSize(width, height), GetId());
1068         event.SetEventObject(this);
1069         GetEventHandler()->ProcessEvent(event);
1070     }
1071 }
1072
1073 void wxWindowMGL::DoSetClientSize(int width, int height)
1074 {
1075     SetSize(width, height);
1076 }
1077
1078 // ---------------------------------------------------------------------------
1079 // text metrics
1080 // ---------------------------------------------------------------------------
1081
1082 int wxWindowMGL::GetCharHeight() const
1083 {
1084     wxScreenDC dc;
1085     dc.SetFont(m_font);
1086     return dc.GetCharHeight();
1087 }
1088
1089 int wxWindowMGL::GetCharWidth() const
1090 {
1091     wxScreenDC dc;
1092     dc.SetFont(m_font);
1093     return dc.GetCharWidth();
1094 }
1095
1096 void wxWindowMGL::GetTextExtent(const wxString& string,
1097                              int *x, int *y,
1098                              int *descent, int *externalLeading,
1099                              const wxFont *theFont) const
1100 {
1101     wxScreenDC dc;
1102     if (!theFont)
1103         theFont = &m_font;
1104     dc.GetTextExtent(string, x, y, descent, externalLeading, (wxFont*)theFont);
1105 }
1106
1107 #if wxUSE_CARET && WXWIN_COMPATIBILITY
1108 // ---------------------------------------------------------------------------
1109 // Caret manipulation
1110 // ---------------------------------------------------------------------------
1111
1112 void wxWindowMGL::CreateCaret(int w, int h)
1113 {
1114     SetCaret(new wxCaret(this, w, h));
1115 }
1116
1117 void wxWindowMGL::CreateCaret(const wxBitmap *WXUNUSED(bitmap))
1118 {
1119     wxFAIL_MSG("not implemented");
1120 }
1121
1122 void wxWindowMGL::ShowCaret(bool show)
1123 {
1124     wxCHECK_RET( m_caret, "no caret to show" );
1125
1126     m_caret->Show(show);
1127 }
1128
1129 void wxWindowMGL::DestroyCaret()
1130 {
1131     SetCaret(NULL);
1132 }
1133
1134 void wxWindowMGL::SetCaretPos(int x, int y)
1135 {
1136     wxCHECK_RET( m_caret, "no caret to move" );
1137
1138     m_caret->Move(x, y);
1139 }
1140
1141 void wxWindowMGL::GetCaretPos(int *x, int *y) const
1142 {
1143     wxCHECK_RET( m_caret, "no caret to get position of" );
1144
1145     m_caret->GetPosition(x, y);
1146 }
1147 #endif // wxUSE_CARET
1148
1149
1150 // ---------------------------------------------------------------------------
1151 // painting
1152 // ---------------------------------------------------------------------------
1153
1154 void wxWindowMGL::Clear()
1155 {
1156     wxClientDC dc((wxWindow *)this);
1157     wxBrush brush(GetBackgroundColour(), wxSOLID);
1158     dc.SetBackground(brush);
1159     dc.Clear();
1160 }
1161
1162 #include "wx/menu.h"
1163 void wxWindowMGL::Refresh(bool eraseBack, const wxRect *rect)
1164 {
1165     if ( m_eraseBackground == -1 )
1166         m_eraseBackground = eraseBack;
1167     else
1168         m_eraseBackground |= eraseBack;
1169
1170     if ( rect )
1171     {
1172         rect_t r;
1173         r.left = rect->GetLeft(), r.right = rect->GetRight();
1174         r.top = rect->GetTop(), r.bottom = rect->GetBottom();
1175         MGL_wmInvalidateWindowRect(GetHandle(), &r);
1176     }
1177     else
1178         MGL_wmInvalidateWindow(GetHandle());
1179 }
1180
1181 void wxWindowMGL::Update()
1182 {
1183     if ( !m_frozen )
1184         MGL_wmUpdateDC(g_winMng);
1185 }
1186
1187 void wxWindowMGL::Freeze()
1188 {
1189     m_frozen = TRUE;
1190     m_refreshAfterThaw = FALSE;
1191 }
1192
1193 void wxWindowMGL::Thaw()
1194 {
1195     m_frozen = FALSE;
1196     if ( m_refreshAfterThaw )
1197         Refresh();
1198 }
1199
1200 void wxWindowMGL::HandlePaint(MGLDevCtx *dc)
1201 {
1202     if ( m_frozen )
1203     {
1204         // Don't paint anything if the window is frozen.
1205         m_refreshAfterThaw = TRUE;
1206         return;
1207     }
1208
1209 #ifdef __WXDEBUG__
1210     // FIXME_MGL -- debugging stuff, to be removed!
1211     static int debugPaintEvents = -1;
1212     if ( debugPaintEvents == -1 )
1213         debugPaintEvents = wxGetEnv(wxT("WXMGL_DEBUG_PAINT_EVENTS"), NULL);
1214     if ( debugPaintEvents )
1215     {
1216         dc->setColorRGB(255,0,255);
1217         dc->fillRect(-1000,-1000,2000,2000);
1218         wxUsleep(50);
1219     }
1220 #endif
1221
1222     MGLRegion clip;
1223     dc->getClipRegion(clip);
1224     m_updateRegion = wxRegion(clip);
1225     m_paintMGLDC = dc;
1226
1227 #if wxUSE_CARET
1228     // must hide caret temporarily, otherwise we'd get rendering artifacts
1229     wxCaret *caret = GetCaret();
1230     if ( caret )
1231         caret->Hide();
1232 #endif // wxUSE_CARET
1233
1234     if ( m_eraseBackground != 0 )
1235     {
1236         wxWindowDC dc((wxWindow*)this);
1237         wxEraseEvent eventEr(m_windowId, &dc);
1238         eventEr.SetEventObject(this);
1239         GetEventHandler()->ProcessEvent(eventEr);
1240     }
1241     m_eraseBackground = -1;
1242
1243     wxNcPaintEvent eventNc(GetId());
1244     eventNc.SetEventObject(this);
1245     GetEventHandler()->ProcessEvent(eventNc);
1246
1247     wxPaintEvent eventPt(GetId());
1248     eventPt.SetEventObject(this);
1249     GetEventHandler()->ProcessEvent(eventPt);
1250
1251 #if wxUSE_CARET
1252     if ( caret )
1253         caret->Show();
1254 #endif // wxUSE_CARET
1255
1256     m_paintMGLDC = NULL;
1257     m_updateRegion.Clear();
1258 }
1259
1260
1261 // Find the wxWindow at the current mouse position, returning the mouse
1262 // position.
1263 wxWindow* wxFindWindowAtPointer(wxPoint& pt)
1264 {
1265     return wxFindWindowAtPoint(pt = wxGetMousePosition());
1266 }
1267
1268 wxWindow* wxFindWindowAtPoint(const wxPoint& pt)
1269 {
1270     window_t *wnd = MGL_wmGetWindowAtPosition(g_winMng, pt.x, pt.y);
1271     return (wxWindow*)wnd->userData;
1272 }
1273
1274
1275 // ---------------------------------------------------------------------------
1276 // idle events processing
1277 // ---------------------------------------------------------------------------
1278
1279 void wxWindowMGL::OnIdle(wxIdleEvent& WXUNUSED(event))
1280 {
1281     UpdateWindowUI();
1282 }