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