+// For compilers that support precompilation, includes "wx.h".
+#include "wx/wxprec.h"
+
+#ifdef __BORLANDC__
+ #pragma hdrstop
+#endif
+
+#ifndef WX_PRECOMP
+ #include "wx/window.h"
+ #include "wx/msgdlg.h"
+ #include "wx/accel.h"
+ #include "wx/setup.h"
+ #include "wx/dc.h"
+ #include "wx/dcclient.h"
+ #include "wx/utils.h"
+ #include "wx/app.h"
+ #include "wx/panel.h"
+ #include "wx/caret.h"
+#endif
+
+#if wxUSE_DRAG_AND_DROP
+ #include "wx/dnd.h"
+#endif
+
+#include "wx/log.h"
+#include "wx/sysopt.h"
+#include "wx/mgl/private.h"
+#include "wx/intl.h"
+#include "wx/dcscreen.h"
+
+#include <mgraph.hpp>
+
+#if wxUSE_TOOLTIPS
+ #include "wx/tooltip.h"
+#endif
+
+// ---------------------------------------------------------------------------
+// global variables
+// ---------------------------------------------------------------------------
+
+// MGL window manager and associated DC.
+winmng_t *g_winMng = NULL;
+MGLDevCtx *g_displayDC = NULL;
+
+// the window that has keyboard focus:
+static wxWindowMGL *gs_focusedWindow = NULL;
+// the window that is about to be focused after currently focused
+// one looses focus:
+static wxWindow *gs_toBeFocusedWindow = NULL;
+// the window that is currently under mouse cursor:
+static wxWindowMGL *gs_windowUnderMouse = NULL;
+// the window that has mouse capture
+static wxWindowMGL *gs_mouseCapture = NULL;
+// the frame that is currently active (i.e. its child has focus). It is
+// used to generate wxActivateEvents
+static wxWindowMGL *gs_activeFrame = NULL;
+
+// ---------------------------------------------------------------------------
+// constants
+// ---------------------------------------------------------------------------
+
+// Custom identifiers used to distinguish between various event handlers
+// and capture handlers passed to MGL_wm
+enum
+{
+ wxMGL_CAPTURE_MOUSE = 1,
+ wxMGL_CAPTURE_KEYB = 2
+};
+
+
+// ---------------------------------------------------------------------------
+// private functions
+// ---------------------------------------------------------------------------
+
+// Returns toplevel grandparent of given window:
+static wxWindowMGL* wxGetTopLevelParent(wxWindowMGL *win)
+{
+ wxWindowMGL *p = win;
+ while (p && !p->IsTopLevel())
+ p = p->GetParent();
+ return p;
+}
+
+// An easy way to capture screenshots:
+static void wxCaptureScreenshot(bool activeWindowOnly)
+{
+#ifdef __DOS__
+ #define SCREENSHOT_FILENAME _T("sshot%03i.png")
+#else
+ #define SCREENSHOT_FILENAME _T("screenshot-%03i.png")
+#endif
+ static int screenshot_num = 0;
+ wxString screenshot;
+
+ do
+ {
+ screenshot.Printf(SCREENSHOT_FILENAME, screenshot_num++);
+ } while ( wxFileExists(screenshot) && screenshot_num < 1000 );
+
+ wxRect r(0, 0, g_displayDC->sizex(), g_displayDC->sizey());
+
+ if ( activeWindowOnly && gs_activeFrame )
+ {
+ r.Intersect(gs_activeFrame->GetRect());
+ }
+
+ g_displayDC->savePNGFromDC(screenshot.mb_str(),
+ r.x, r. y, r.x+r.width, r.y+r.height);
+
+ wxMessageBox(wxString::Format(_T("Screenshot captured: %s"),
+ screenshot.c_str()));
+}
+
+// ---------------------------------------------------------------------------
+// MGL_WM hooks:
+// ---------------------------------------------------------------------------
+
+static void MGLAPI wxWindowPainter(window_t *wnd, MGLDC *dc)
+{
+ wxWindowMGL *w = (wxWindow*) wnd->userData;
+
+ if ( w && !(w->GetWindowStyle() & wxTRANSPARENT_WINDOW) )
+ {
+ MGLDevCtx ctx(dc);
+ w->HandlePaint(&ctx);
+ }
+}
+
+static ibool MGLAPI wxWindowMouseHandler(window_t *wnd, event_t *e)
+{
+ wxWindowMGL *win = (wxWindowMGL*)MGL_wmGetWindowUserData(wnd);
+ wxPoint orig(win->GetClientAreaOrigin());
+ wxPoint where;
+
+ MGL_wmCoordGlobalToLocal(win->GetHandle(),
+ e->where_x, e->where_y, &where.x, &where.y);
+
+ for (wxWindowMGL *w = win; w; w = w->GetParent())
+ {
+ if ( !w->IsEnabled() )
+ return FALSE;
+ if ( w->IsTopLevel() )
+ break;
+ }
+
+ wxEventType type = wxEVT_NULL;
+ wxMouseEvent event;
+ event.SetEventObject(win);
+ event.SetTimestamp(e->when);
+ event.m_x = where.x - orig.x;
+ event.m_y = where.y - orig.y;
+ event.m_shiftDown = e->modifiers & EVT_SHIFTKEY;
+ event.m_controlDown = e->modifiers & EVT_CTRLSTATE;
+ event.m_altDown = e->modifiers & EVT_LEFTALT;
+ event.m_metaDown = e->modifiers & EVT_RIGHTALT;
+ event.m_leftDown = e->modifiers & EVT_LEFTBUT;
+ event.m_middleDown = e->modifiers & EVT_MIDDLEBUT;
+ event.m_rightDown = e->modifiers & EVT_RIGHTBUT;
+
+ switch (e->what)
+ {
+ case EVT_MOUSEDOWN:
+ // Change focus if the user clicks outside focused window:
+ if ( win->AcceptsFocus() && wxWindow::FindFocus() != win )
+ win->SetFocus();
+
+ if ( e->message & EVT_DBLCLICK )
+ {
+ if ( e->message & EVT_LEFTBMASK )
+ type = wxEVT_LEFT_DCLICK;
+ else if ( e->message & EVT_MIDDLEBMASK )
+ type = wxEVT_MIDDLE_DCLICK;
+ else if ( e->message & EVT_RIGHTBMASK )
+ type = wxEVT_RIGHT_DCLICK;
+ }
+ else
+ {
+ if ( e->message & EVT_LEFTBMASK )
+ type = wxEVT_LEFT_DOWN;
+ else if ( e->message & EVT_MIDDLEBMASK )
+ type = wxEVT_MIDDLE_DOWN;
+ else if ( e->message & EVT_RIGHTBMASK )
+ type = wxEVT_RIGHT_DOWN;
+ }
+
+ break;
+
+ case EVT_MOUSEUP:
+ if ( e->message & EVT_LEFTBMASK )
+ type = wxEVT_LEFT_UP;
+ else if ( e->message & EVT_MIDDLEBMASK )
+ type = wxEVT_MIDDLE_UP;
+ else if ( e->message & EVT_RIGHTBMASK )
+ type = wxEVT_RIGHT_UP;
+ break;
+
+ case EVT_MOUSEMOVE:
+ if ( !gs_mouseCapture )
+ {
+ if ( win != gs_windowUnderMouse )
+ {
+ if ( gs_windowUnderMouse )
+ {
+ wxMouseEvent event2(event);
+ MGL_wmCoordGlobalToLocal(gs_windowUnderMouse->GetHandle(),
+ e->where_x, e->where_y,
+ &event2.m_x, &event2.m_y);
+
+ wxPoint orig(gs_windowUnderMouse->GetClientAreaOrigin());
+ event2.m_x -= orig.x;
+ event2.m_y -= orig.y;
+
+ event2.SetEventObject(gs_windowUnderMouse);
+ event2.SetEventType(wxEVT_LEAVE_WINDOW);
+ gs_windowUnderMouse->GetEventHandler()->ProcessEvent(event2);
+ }
+
+ wxMouseEvent event3(event);
+ event3.SetEventType(wxEVT_ENTER_WINDOW);
+ win->GetEventHandler()->ProcessEvent(event3);
+
+ gs_windowUnderMouse = win;
+ }
+ }
+ else // gs_mouseCapture
+ {
+ bool inside = (where.x >= 0 &&
+ where.y >= 0 &&
+ where.x < win->GetSize().x &&
+ where.y < win->GetSize().y);
+ if ( (inside && gs_windowUnderMouse != win) ||
+ (!inside && gs_windowUnderMouse == win) )
+ {
+ wxMouseEvent evt(inside ?
+ wxEVT_ENTER_WINDOW : wxEVT_LEAVE_WINDOW);
+ evt.SetEventObject(win);
+ win->GetEventHandler()->ProcessEvent(evt);
+ gs_windowUnderMouse = inside ? win : NULL;
+ }
+ }
+
+ type = wxEVT_MOTION;
+ break;
+
+ default:
+ break;
+ }
+
+ if ( type == wxEVT_NULL )
+ {
+ return FALSE;
+ }
+ else
+ {
+ event.SetEventType(type);
+ return win->GetEventHandler()->ProcessEvent(event);
+ }
+}
+
+static long wxScanToKeyCode(event_t *event, bool translate)
+{
+ // VS: make it __WXDEBUG__-only, since we have lots of wxLogTrace calls
+ // here and the arguments would be stored in non-debug executable even
+ // though wxLogTrace would be no-op...
+ #ifdef __WXDEBUG__
+ #define KEY(mgl_key,wx_key) \
+ case mgl_key: \
+ wxLogTrace(_T("keyevents"), \
+ _T("key " #mgl_key ", mapped to " #wx_key)); \
+ key = wx_key; \
+ break;
+ #else
+ #define KEY(mgl_key,wx_key) \
+ case mgl_key: key = wx_key; break;
+ #endif
+
+ long key = 0;
+
+ if ( translate )
+ {
+ switch ( EVT_scanCode(event->message) )
+ {
+ KEY (KB_padMinus, WXK_NUMPAD_SUBTRACT)
+ KEY (KB_padPlus, WXK_NUMPAD_ADD)
+ KEY (KB_padTimes, WXK_NUMPAD_MULTIPLY)
+ KEY (KB_padDivide, WXK_NUMPAD_DIVIDE)
+ KEY (KB_padCenter, WXK_NUMPAD_SEPARATOR) // ?
+ KEY (KB_padLeft, WXK_NUMPAD_LEFT)
+ KEY (KB_padRight, WXK_NUMPAD_RIGHT)
+ KEY (KB_padUp, WXK_NUMPAD_UP)
+ KEY (KB_padDown, WXK_NUMPAD_DOWN)
+ KEY (KB_padInsert, WXK_NUMPAD_INSERT)
+ KEY (KB_padDelete, WXK_NUMPAD_DELETE)
+ KEY (KB_padHome, WXK_NUMPAD_HOME)
+ KEY (KB_padEnd, WXK_NUMPAD_END)
+ KEY (KB_padPageUp, WXK_NUMPAD_PAGEUP)
+ //KEY (KB_padPageUp, WXK_NUMPAD_PRIOR)
+ KEY (KB_padPageDown, WXK_NUMPAD_PAGEDOWN)
+ //KEY (KB_padPageDown, WXK_NUMPAD_NEXT)
+ KEY (KB_1, '1')
+ KEY (KB_2, '2')
+ KEY (KB_3, '3')
+ KEY (KB_4, '4')
+ KEY (KB_5, '5')
+ KEY (KB_6, '6')
+ KEY (KB_7, '7')
+ KEY (KB_8, '8')
+ KEY (KB_9, '9')
+ KEY (KB_0, '0')
+ KEY (KB_minus, WXK_SUBTRACT)
+ KEY (KB_equals, WXK_ADD)
+ KEY (KB_backSlash, '\\')
+ KEY (KB_Q, 'Q')
+ KEY (KB_W, 'W')
+ KEY (KB_E, 'E')
+ KEY (KB_R, 'R')
+ KEY (KB_T, 'T')
+ KEY (KB_Y, 'Y')
+ KEY (KB_U, 'U')
+ KEY (KB_I, 'I')
+ KEY (KB_O, 'O')
+ KEY (KB_P, 'P')
+ KEY (KB_leftSquareBrace,'[')
+ KEY (KB_rightSquareBrace,']')
+ KEY (KB_A, 'A')
+ KEY (KB_S, 'S')
+ KEY (KB_D, 'D')
+ KEY (KB_F, 'F')
+ KEY (KB_G, 'G')
+ KEY (KB_H, 'H')
+ KEY (KB_J, 'J')
+ KEY (KB_K, 'K')
+ KEY (KB_L, 'L')
+ KEY (KB_semicolon, ';')
+ KEY (KB_apostrophe, '\'')
+ KEY (KB_Z, 'Z')
+ KEY (KB_X, 'X')
+ KEY (KB_C, 'C')
+ KEY (KB_V, 'V')
+ KEY (KB_B, 'B')
+ KEY (KB_N, 'N')
+ KEY (KB_M, 'M')
+ KEY (KB_comma, ',')
+ KEY (KB_period, '.')
+ KEY (KB_divide, WXK_DIVIDE)
+ KEY (KB_space, WXK_SPACE)
+ KEY (KB_tilde, '~')
+
+ default: break;
+ }
+ }
+
+ if ( key == 0 )
+ {
+ switch ( EVT_scanCode(event->message) )
+ {
+ KEY (KB_padEnter, WXK_NUMPAD_ENTER)
+ KEY (KB_F1, WXK_F1)
+ KEY (KB_F2, WXK_F2)
+ KEY (KB_F3, WXK_F3)
+ KEY (KB_F4, WXK_F4)
+ KEY (KB_F5, WXK_F5)
+ KEY (KB_F6, WXK_F6)
+ KEY (KB_F7, WXK_F7)
+ KEY (KB_F8, WXK_F8)
+ KEY (KB_F9, WXK_F9)
+ KEY (KB_F10, WXK_F10)
+ KEY (KB_F11, WXK_F11)
+ KEY (KB_F12, WXK_F12)
+ KEY (KB_left, WXK_LEFT)
+ KEY (KB_right, WXK_RIGHT)
+ KEY (KB_up, WXK_UP)
+ KEY (KB_down, WXK_DOWN)
+ KEY (KB_insert, WXK_INSERT)
+ KEY (KB_delete, WXK_DELETE)
+ KEY (KB_home, WXK_HOME)
+ KEY (KB_end, WXK_END)
+ KEY (KB_pageUp, WXK_PAGEUP)
+ KEY (KB_pageDown, WXK_PAGEDOWN)
+ KEY (KB_capsLock, WXK_CAPITAL)
+ KEY (KB_numLock, WXK_NUMLOCK)
+ KEY (KB_scrollLock, WXK_SCROLL)
+ KEY (KB_leftShift, WXK_SHIFT)
+ KEY (KB_rightShift, WXK_SHIFT)
+ KEY (KB_leftCtrl, WXK_CONTROL)
+ KEY (KB_rightCtrl, WXK_CONTROL)
+ KEY (KB_leftAlt, WXK_ALT)
+ KEY (KB_rightAlt, WXK_ALT)
+ KEY (KB_leftWindows, WXK_START)
+ KEY (KB_rightWindows, WXK_START)
+ KEY (KB_menu, WXK_MENU)
+ KEY (KB_sysReq, WXK_SNAPSHOT)
+ KEY (KB_esc, WXK_ESCAPE)
+ KEY (KB_backspace, WXK_BACK)
+ KEY (KB_tab, WXK_TAB)
+ KEY (KB_enter, WXK_RETURN)
+
+ default:
+ key = EVT_asciiCode(event->message);
+ break;
+ }
+ }
+
+ #undef KEY
+
+ return key;
+}
+
+static bool wxHandleSpecialKeys(wxKeyEvent& event)
+{
+ // Add an easy way to capture screenshots:
+ if ( event.m_keyCode == WXK_SNAPSHOT
+ #ifdef __WXDEBUG__ // FIXME_MGL - remove when KB_sysReq works in MGL!
+ || (event.m_keyCode == WXK_F1 &&
+ event.m_shiftDown && event.m_controlDown)
+ #endif
+ )
+ {
+ wxCaptureScreenshot(event.m_altDown/*only active wnd?*/);
+ return TRUE;
+ }
+
+ return FALSE;
+}
+
+static ibool MGLAPI wxWindowKeybHandler(window_t *wnd, event_t *e)
+{
+ wxWindowMGL *win = (wxWindowMGL*)MGL_wmGetWindowUserData(wnd);
+
+ if ( !win->IsEnabled() ) return FALSE;
+
+ wxPoint where;
+ MGL_wmCoordGlobalToLocal(win->GetHandle(),
+ e->where_x, e->where_y, &where.x, &where.y);
+
+ wxKeyEvent event;
+ event.SetEventObject(win);
+ event.SetTimestamp(e->when);
+ event.m_keyCode = wxScanToKeyCode(e, TRUE);
+ event.m_scanCode = 0; // not used by wx at all
+ event.m_x = where.x;
+ event.m_y = where.y;
+ event.m_shiftDown = e->modifiers & EVT_SHIFTKEY;
+ event.m_controlDown = e->modifiers & EVT_CTRLSTATE;
+ event.m_altDown = e->modifiers & EVT_LEFTALT;
+ event.m_metaDown = e->modifiers & EVT_RIGHTALT;
+
+ if ( e->what == EVT_KEYUP )
+ {
+ event.SetEventType(wxEVT_KEY_UP);
+ return win->GetEventHandler()->ProcessEvent(event);
+ }
+ else
+ {
+ bool ret;
+ wxKeyEvent event2;
+
+ event.SetEventType(wxEVT_KEY_DOWN);
+ event2 = event;
+
+ ret = win->GetEventHandler()->ProcessEvent(event);
+
+ // wxMSW doesn't send char events with Alt pressed
+ // Only send wxEVT_CHAR event if not processed yet. Thus, ALT-x
+ // will only be sent if it is not in an accelerator table:
+ event2.m_keyCode = wxScanToKeyCode(e, FALSE);
+ if ( !ret && event2.m_keyCode != 0 )
+ {
+ event2.SetEventType(wxEVT_CHAR);
+ ret = win->GetEventHandler()->ProcessEvent(event2);
+ }
+
+ // Synthetize navigation key event, but do it only if the TAB key
+ // wasn't handled yet:
+ if ( !ret && event.m_keyCode == WXK_TAB &&
+ win->GetParent() && win->GetParent()->HasFlag(wxTAB_TRAVERSAL) )
+ {
+ wxNavigationKeyEvent navEvent;
+ navEvent.SetEventObject(win->GetParent());
+ // Shift-TAB goes in reverse direction:
+ navEvent.SetDirection(!event.m_shiftDown);
+ // Ctrl-TAB changes the (parent) window, i.e. switch notebook page:
+ navEvent.SetWindowChange(event.m_controlDown);
+ navEvent.SetCurrentFocus(wxStaticCast(win, wxWindow));
+ ret = win->GetParent()->GetEventHandler()->ProcessEvent(navEvent);
+ }
+
+ // Finally, process special meaning keys that are usually
+ // a responsibility of OS or window manager:
+ if ( !ret )
+ ret = wxHandleSpecialKeys(event);
+
+ return ret;
+ }
+}
+
+// ---------------------------------------------------------------------------
+// event tables
+// ---------------------------------------------------------------------------
+
+// in wxUniv this class is abstract because it doesn't have DoPopupMenu()
+IMPLEMENT_ABSTRACT_CLASS(wxWindowMGL, wxWindowBase)
+
+BEGIN_EVENT_TABLE(wxWindowMGL, wxWindowBase)
+END_EVENT_TABLE()
+
+// ===========================================================================
+// implementation
+// ===========================================================================
+
+// ----------------------------------------------------------------------------
+// constructors and such
+// ----------------------------------------------------------------------------
+
+extern wxVideoMode wxGetDefaultDisplayMode();
+
+void wxWindowMGL::Init()
+{
+ // First of all, make sure window manager is up and running. If it is
+ // not the case, initialize it in default display mode
+ if ( !g_winMng )
+ {
+ if ( !wxTheApp->SetDisplayMode(wxGetDefaultDisplayMode()) )
+ wxLogFatalError(_("Cannot initialize display."));
+ }
+
+ // mgl specific:
+ m_wnd = NULL;
+ m_isShown = TRUE;
+ m_frozen = FALSE;
+ m_paintMGLDC = NULL;
+ m_eraseBackground = -1;
+}
+
+// Destructor
+wxWindowMGL::~wxWindowMGL()
+{
+ SendDestroyEvent();
+
+ m_isBeingDeleted = TRUE;
+
+ if ( gs_mouseCapture == this )
+ ReleaseMouse();
+
+ if (gs_activeFrame == this)
+ {
+ gs_activeFrame = NULL;
+ // activate next frame in Z-order:
+ if ( m_wnd->prev )
+ {
+ wxWindowMGL *win = (wxWindowMGL*)m_wnd->prev->userData;
+ win->SetFocus();
+ }
+ else if ( m_wnd->next )
+ {
+ wxWindowMGL *win = (wxWindowMGL*)m_wnd->next->userData;
+ win->SetFocus();
+ }
+ }
+
+ if ( gs_focusedWindow == this )
+ KillFocus();
+
+ if ( gs_windowUnderMouse == this )
+ gs_windowUnderMouse = NULL;
+
+ DestroyChildren();
+
+ if ( m_wnd )
+ MGL_wmDestroyWindow(m_wnd);
+}
+
+// real construction (Init() must have been called before!)
+bool wxWindowMGL::Create(wxWindow *parent,
+ wxWindowID id,
+ const wxPoint& pos,
+ const wxSize& size,
+ long style,
+ const wxString& name)
+{
+ if ( !CreateBase(parent, id, pos, size, style, wxDefaultValidator, name) )
+ return FALSE;
+
+ if ( parent )
+ parent->AddChild(this);
+
+ int x, y, w, h;
+ x = pos.x, y = pos.y;
+ if ( x == -1 )
+ x = 0; // FIXME_MGL, something better, see GTK+
+ if ( y == -1 )
+ y = 0; // FIXME_MGL, something better, see GTK+
+ AdjustForParentClientOrigin(x, y, 0);
+ w = WidthDefault(size.x);
+ h = HeightDefault(size.y);
+
+ long mgl_style = 0;
+ window_t *wnd_parent = parent ? parent->GetHandle() : NULL;
+
+ if ( style & wxFULL_REPAINT_ON_RESIZE )
+ {
+ mgl_style |= MGL_WM_FULL_REPAINT_ON_RESIZE;
+ }
+ if ( style & wxSTAY_ON_TOP )
+ {
+ mgl_style |= MGL_WM_ALWAYS_ON_TOP;
+ }
+ if ( style & wxPOPUP_WINDOW )
+ {
+ mgl_style |= MGL_WM_ALWAYS_ON_TOP;
+ // it is created hidden as other top level windows
+ m_isShown = FALSE;
+ wnd_parent = NULL;
+ }
+
+ window_t *wnd = MGL_wmCreateWindow(g_winMng, wnd_parent, x, y, w, h);
+
+ MGL_wmSetWindowFlags(wnd, mgl_style);
+ MGL_wmShowWindow(wnd, m_isShown);
+
+ SetMGLwindow_t(wnd);
+
+ return TRUE;
+}
+
+void wxWindowMGL::SetMGLwindow_t(struct window_t *wnd)
+{
+ if ( m_wnd )
+ MGL_wmDestroyWindow(m_wnd);
+
+ m_wnd = wnd;
+ if ( !m_wnd ) return;
+
+ m_isShown = m_wnd->visible;
+
+ MGL_wmSetWindowUserData(m_wnd, (void*) this);
+ MGL_wmSetWindowPainter(m_wnd, wxWindowPainter);
+ MGL_wmPushWindowEventHandler(m_wnd, wxWindowMouseHandler, EVT_MOUSEEVT, 0);
+ MGL_wmPushWindowEventHandler(m_wnd, wxWindowKeybHandler, EVT_KEYEVT, 0);
+
+ if ( m_cursor.Ok() )
+ MGL_wmSetWindowCursor(m_wnd, *m_cursor.GetMGLCursor());
+ else
+ MGL_wmSetWindowCursor(m_wnd, *wxSTANDARD_CURSOR->GetMGLCursor());
+}