home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / wxos2240.zip / wxWindows-2.4.0 / src / os2 / window.cpp < prev    next >
C/C++ Source or Header  |  2002-12-17  |  193KB  |  5,640 lines

  1. // Name:        windows.cpp
  2. // Purpose:     wxWindow
  3. // Author:      David Webster
  4. // Modified by:
  5. // Created:     10/12/99
  6. // RCS-ID:      $Id: WINDOW.CPP,v 1.114.2.4 2002/12/16 18:34:27 DW Exp $
  7. // Copyright:   (c) David Webster
  8. // Licence:     wxWindows licence
  9. /////////////////////////////////////////////////////////////////////////////
  10.  
  11. //
  12. // For compilers that support precompilation, includes "wx.h".
  13. //
  14. #include "wx/wxprec.h"
  15.  
  16. #ifndef WX_PRECOMP
  17.     #define INCL_DOS
  18.     #define INCL_PM
  19.     #include <os2.h>
  20.     #include "wx/window.h"
  21.     #include "wx/accel.h"
  22.     #include "wx/setup.h"
  23.     #include "wx/menu.h"
  24.     #include "wx/dc.h"
  25.     #include "wx/dcclient.h"
  26.     #include "wx/utils.h"
  27.     #include "wx/app.h"
  28.     #include "wx/panel.h"
  29.     #include "wx/layout.h"
  30.     #include "wx/checkbox.h"
  31.     #include "wx/combobox.h"
  32.     #include "wx/dialog.h"
  33.     #include "wx/frame.h"
  34.     #include "wx/listbox.h"
  35.     #include "wx/button.h"
  36.     #include "wx/bmpbuttn.h"
  37.     #include "wx/msgdlg.h"
  38.     #include "wx/scrolwin.h"
  39.     #include "wx/radiobox.h"
  40.     #include "wx/radiobut.h"
  41.     #include "wx/slider.h"
  42.     #include "wx/statbox.h"
  43.     #include "wx/statusbr.h"
  44.     #include "wx/toolbar.h"
  45.     #include "wx/settings.h"
  46.     #include <stdio.h>
  47. #endif
  48.  
  49. #if     wxUSE_OWNER_DRAWN
  50.     #include "wx/ownerdrw.h"
  51. #endif
  52.  
  53. #if     wxUSE_DRAG_AND_DROP
  54.     #include "wx/dnd.h"
  55. #endif
  56.  
  57. #include "wx/menuitem.h"
  58. #include "wx/log.h"
  59.  
  60. #include "wx/os2/private.h"
  61.  
  62. #if wxUSE_TOOLTIPS
  63.     #include "wx/tooltip.h"
  64. #endif
  65.  
  66. #if wxUSE_NOTEBOOK
  67.     #include "wx/notebook.h"
  68. #endif
  69.  
  70. #if wxUSE_CARET
  71.     #include "wx/caret.h"
  72. #endif // wxUSE_CARET
  73.  
  74. #include "wx/intl.h"
  75. #include "wx/log.h"
  76.  
  77.  
  78. #include "wx/textctrl.h"
  79.  
  80. #include <string.h>
  81.  
  82. //
  83. // Place compiler, OS specific includes here
  84. //
  85.  
  86. //
  87. // Standard macros -- these are for OS/2 PM, but most GUI's have something similar
  88. //
  89. #ifndef GET_X_LPARAM
  90. //
  91. //  SHORT1FROMMP -- LOWORD
  92. //
  93.     #define GET_X_LPARAM(mp) ((unsigned short)(unsigned long)(mp))
  94. //
  95. //  SHORT2FROMMP -- HIWORD
  96. //
  97.     #define GET_Y_LPARAM(mp) ((unsigned short)(unsigned long)(mp >> 16))
  98. #endif // GET_X_LPARAM
  99.  
  100. #ifndef CW_USEDEFAULT
  101. #  define CW_USEDEFAULT    ((int)0x80000000)
  102. #endif
  103.  
  104. #ifndef VK_OEM_1
  105.     #define VK_OEM_1        0xBA
  106.     #define VK_OEM_PLUS     0xBB
  107.     #define VK_OEM_COMMA    0xBC
  108.     #define VK_OEM_MINUS    0xBD
  109.     #define VK_OEM_PERIOD   0xBE
  110.     #define VK_OEM_2        0xBF
  111.     #define VK_OEM_3        0xC0
  112.     #define VK_OEM_4        0xDB
  113.     #define VK_OEM_5        0xDC
  114.     #define VK_OEM_6        0xDD
  115.     #define VK_OEM_7        0xDE
  116. #endif
  117.  
  118. // ---------------------------------------------------------------------------
  119. // global variables
  120. // ---------------------------------------------------------------------------
  121.  
  122. //
  123. // The last PM message we got (MT-UNSAFE)
  124. //
  125. QMSG                      s_currentMsg;
  126.  
  127. #if wxUSE_MENUS_NATIVE
  128. wxMenu*                   wxCurrentPopupMenu = NULL;
  129. #endif // wxUSE_MENUS_NATIVE
  130.  
  131. wxList*                   wxWinHandleList = NULL;
  132.  
  133. // ---------------------------------------------------------------------------
  134. // private functions
  135. // ---------------------------------------------------------------------------
  136.  
  137. //
  138. // the window proc for all our windows; most gui's have something similar
  139. //
  140. MRESULT EXPENTRY wxWndProc( HWND hWnd
  141.                            ,ULONG message
  142.                            ,MPARAM mp1
  143.                            ,MPARAM mp2
  144.                           );
  145.  
  146. #ifdef  __WXDEBUG__
  147.     const char *wxGetMessageName(int message);
  148. #endif  //__WXDEBUG__
  149.  
  150. wxWindowOS2* FindWindowForMouseEvent( wxWindow* pWin
  151.                                      ,short*    pnX
  152.                                      ,short*    pnY
  153.                                     );
  154. void         wxRemoveHandleAssociation(wxWindowOS2* pWin);
  155. void         wxAssociateWinWithHandle( HWND         hWnd
  156.                                       ,wxWindowOS2* pWin
  157.                                      );
  158. wxWindow* wxFindWinFromHandle(WXHWND hWnd);
  159.  
  160. //
  161. // get the current state of SHIFT/CTRL keys
  162. //
  163. static inline bool IsShiftDown() { return (::WinGetKeyState(HWND_DESKTOP, VK_SHIFT) & 0x8000) != 0; }
  164. static inline bool IsCtrlDown() { return (::WinGetKeyState(HWND_DESKTOP, VK_CTRL) & 0x8000) != 0; }
  165.  
  166. static wxWindow*                    gpWinBeingCreated = NULL;
  167.  
  168. // ---------------------------------------------------------------------------
  169. // event tables
  170. // ---------------------------------------------------------------------------
  171.  
  172. // in wxUniv-OS/2 this class is abstract because it doesn't have DoPopupMenu()
  173. // method
  174. #ifdef __WXUNIVERSAL__
  175.     IMPLEMENT_ABSTRACT_CLASS(wxWindowOS2, wxWindowBase)
  176. #else // __WXPM__
  177.     IMPLEMENT_DYNAMIC_CLASS(wxWindow, wxWindowBase)
  178. #endif // __WXUNIVERSAL__/__WXPM__
  179.  
  180. BEGIN_EVENT_TABLE(wxWindowOS2, wxWindowBase)
  181.     EVT_ERASE_BACKGROUND(wxWindowOS2::OnEraseBackground)
  182.     EVT_SYS_COLOUR_CHANGED(wxWindowOS2::OnSysColourChanged)
  183.     EVT_INIT_DIALOG(wxWindowOS2::OnInitDialog)
  184.     EVT_IDLE(wxWindowOS2::OnIdle)
  185.     EVT_SET_FOCUS(wxWindowOS2::OnSetFocus)
  186. END_EVENT_TABLE()
  187.  
  188. // ===========================================================================
  189. // implementation
  190. // ===========================================================================
  191.  
  192. // ---------------------------------------------------------------------------
  193. // wxWindow utility functions
  194. // ---------------------------------------------------------------------------
  195.  
  196. //
  197. // Find an item given the PM Window id
  198. //
  199. wxWindow* wxWindowOS2::FindItem(
  200.   long                              lId
  201. ) const
  202. {
  203. #if wxUSE_CONTROLS
  204.     wxControl*                      pItem = wxDynamicCast(this, wxControl);
  205.  
  206.     if (pItem)
  207.     {
  208.         //
  209.         // I it we or one of our "internal" children?
  210.         //
  211.         if (pItem->GetId() == lId
  212. #ifndef __WXUNIVERSAL__
  213.             || (pItem->GetSubcontrols().Index(lId) != wxNOT_FOUND)
  214. #endif
  215.             )
  216.         {
  217.             return pItem;
  218.         }
  219.     }
  220. #endif // wxUSE_CONTROLS
  221.  
  222.     wxWindowList::Node*             pCurrent = GetChildren().GetFirst();
  223.  
  224.     while (pCurrent)
  225.     {
  226.         wxWindow*                   pChildWin = pCurrent->GetData();
  227.         wxWindow*                   pWnd = pChildWin->FindItem(lId);
  228.  
  229.         if (pWnd)
  230.             return pWnd;
  231.  
  232.         pCurrent = pCurrent->GetNext();
  233.     }
  234.     return(NULL);
  235. } // end of wxWindowOS2::FindItem
  236.  
  237. //
  238. // Find an item given the PM Window handle
  239. //
  240. wxWindow* wxWindowOS2::FindItemByHWND(
  241.   WXHWND                            hWnd
  242. , bool                              bControlOnly
  243. ) const
  244. {
  245.     wxWindowList::Node*             pCurrent = GetChildren().GetFirst();
  246.  
  247.     while (pCurrent)
  248.     {
  249.         wxWindow*                   pParent = pCurrent->GetData();
  250.  
  251.         //
  252.         // Do a recursive search.
  253.         //
  254.         wxWindow*                   pWnd = pParent->FindItemByHWND(hWnd);
  255.  
  256.         if (pWnd)
  257.             return(pWnd);
  258.  
  259.         if (!bControlOnly
  260. #if wxUSE_CONTROLS
  261.             || pParent->IsKindOf(CLASSINFO(wxControl))
  262. #endif // wxUSE_CONTROLS
  263.             )
  264.         {
  265.             wxWindow*               pItem = pCurrent->GetData();
  266.  
  267.             if (pItem->GetHWND() == hWnd)
  268.                 return(pItem);
  269.             else
  270.             {
  271.                 if (pItem->ContainsHWND(hWnd))
  272.                     return(pItem);
  273.             }
  274.         }
  275.         pCurrent = pCurrent->GetNext();
  276.     }
  277.     return(NULL);
  278. } // end of wxWindowOS2::FindItemByHWND
  279.  
  280. //
  281. // Default command handler
  282. //
  283. bool wxWindowOS2::OS2Command(
  284.   WXUINT                            WXUNUSED(uParam)
  285. , WXWORD                            WXUNUSED(uId)
  286. )
  287. {
  288.     return(FALSE);
  289. }
  290.  
  291. // ----------------------------------------------------------------------------
  292. // constructors and such
  293. // ----------------------------------------------------------------------------
  294.  
  295. void wxWindowOS2::Init()
  296. {
  297.     //
  298.     // Generic
  299.     //
  300.     InitBase();
  301.  
  302.     //
  303.     // PM specific
  304.     //
  305.     m_bWinCaptured = FALSE;
  306.  
  307.     m_isBeingDeleted        = FALSE;
  308.     m_fnOldWndProc          = NULL;
  309.     m_bUseCtl3D             = FALSE;
  310.     m_bMouseInWindow        = FALSE;
  311.     m_bLastKeydownProcessed = FALSE;
  312.     m_pChildrenDisabled     = NULL;
  313.  
  314.     //
  315.     // wxWnd
  316.     //
  317.     m_hMenu             = 0L;
  318.     m_hWnd              = 0L;
  319.     m_hWndScrollBarHorz = 0L;
  320.     m_hWndScrollBarVert = 0L;
  321.  
  322.     memset(&m_vWinSwp, '\0', sizeof (SWP));
  323.  
  324.     //
  325.     // Pass WM_GETDLGCODE to DefWindowProc()
  326.     //
  327.     m_lDlgCode = 0;
  328.  
  329.     m_nXThumbSize = 0;
  330.     m_nYThumbSize = 0;
  331.     m_bBackgroundTransparent = FALSE;
  332.  
  333.     //
  334.     // As all windows are created with WS_VISIBLE style...
  335.     //
  336.     m_isShown = TRUE;
  337.  
  338. #if wxUSE_MOUSEEVENT_HACK
  339.     m_lLastMouseX =
  340.     m_lLastMouseY = -1;
  341.     m_nLastMouseEvent = -1;
  342. #endif // wxUSE_MOUSEEVENT_HACK
  343. } // wxWindowOS2::Init
  344.  
  345. //
  346. // Destructor
  347. //
  348. wxWindowOS2::~wxWindowOS2()
  349. {
  350.     m_isBeingDeleted = TRUE;
  351.  
  352.     for (wxWindow* pWin = GetParent(); pWin; pWin = pWin->GetParent())
  353.     {
  354.         wxTopLevelWindow*           pFrame = wxDynamicCast(pWin, wxTopLevelWindow);
  355.  
  356.         if (pFrame)
  357.         {
  358.             if (pFrame->GetLastFocus() == this)
  359.                 pFrame->SetLastFocus(NULL);
  360.         }
  361.     }
  362.  
  363.     DestroyChildren();
  364.  
  365.     if (m_parent)
  366.         m_parent->RemoveChild(this);
  367.  
  368.     if (m_hWnd)
  369.     {
  370.         if(!::WinDestroyWindow(GetHWND()))
  371.             wxLogLastError(wxT("DestroyWindow"));
  372.         //
  373.         // remove hWnd <-> wxWindow association
  374.         //
  375.         wxRemoveHandleAssociation(this);
  376.     }
  377.     delete m_pChildrenDisabled;
  378. } // end of wxWindowOS2::~wxWindowOS2
  379.  
  380. // real construction (Init() must have been called before!)
  381. bool wxWindowOS2::Create(
  382.   wxWindow*                         pParent
  383. , wxWindowID                        vId
  384. , const wxPoint&                    rPos
  385. , const wxSize&                     rSize
  386. , long                              lStyle
  387. , const wxString&                   rName
  388. )
  389. {
  390.     HWND                            hParent = NULLHANDLE;
  391.     ULONG                           ulCreateFlags = 0;
  392.     WXDWORD                         dwExStyle = 0;
  393.  
  394.     wxCHECK_MSG(pParent, FALSE, wxT("can't create wxWindow without parent"));
  395.  
  396. #if wxUSE_STATBOX
  397.     //
  398.     // wxGTK doesn't allow to create controls with static box as the parent so
  399.     // this will result in a crash when the program is ported to wxGTK - warn
  400.     // about it
  401.     //
  402.     // the correct solution is to create the controls as siblings of the
  403.     // static box
  404.     //
  405.     wxASSERT_MSG( !wxDynamicCast(pParent, wxStaticBox),
  406.                   _T("wxStaticBox can't be used as a window parent!") );
  407. #endif // wxUSE_STATBOX
  408.  
  409.     if ( !CreateBase( pParent
  410.                      ,vId
  411.                      ,rPos
  412.                      ,rSize
  413.                      ,lStyle
  414.                      ,wxDefaultValidator
  415.                      ,rName
  416.                     ))
  417.         return(FALSE);
  418.  
  419.     if (pParent)
  420.     {
  421.         int                         nTempy;
  422.  
  423.         pParent->AddChild(this);
  424.         hParent = GetWinHwnd(pParent);
  425.  
  426.         if ( pParent->IsKindOf(CLASSINFO(wxGenericScrolledWindow)) ||
  427.              pParent->IsKindOf(CLASSINFO(wxScrolledWindow))
  428.            )
  429.             ulCreateFlags |= WS_CLIPSIBLINGS;
  430.     }
  431.  
  432.     //
  433.     // Most wxSTYLES are really PM Class specific styles and will be
  434.     // set in those class create procs.  PM's basic windows styles are
  435.     // very limited.
  436.     //
  437.     ulCreateFlags |=  OS2GetCreateWindowFlags(&dwExStyle);
  438.  
  439.  
  440. #ifdef __WXUNIVERSAL__
  441.     // no 3d effects, we draw them ourselves
  442.     WXDWORD exStyle = 0;
  443. #endif // !wxUniversal
  444.     if (lStyle & wxPOPUP_WINDOW)
  445.     {
  446.         ulCreateFlags &= ~WS_VISIBLE;
  447.         m_isShown = FALSE;
  448.     }
  449.     else
  450.     {
  451.         ulCreateFlags |= WS_VISIBLE;
  452.     }
  453.  
  454.     //
  455.     // Generic OS/2 Windows have no Control Data but other classes
  456.     // that call OS2Create may have some.
  457.     //
  458.     return(OS2Create( (PSZ)wxCanvasClassName
  459.                      ,rName.c_str()
  460.                      ,ulCreateFlags
  461.                      ,rPos
  462.                      ,rSize
  463.                      ,NULL         // Control Data
  464.                      ,dwExStyle
  465.                      ,TRUE         // Child
  466.                     ));
  467. } // end of wxWindowOS2::Create
  468.  
  469. // ---------------------------------------------------------------------------
  470. // basic operations
  471. // ---------------------------------------------------------------------------
  472.  
  473. void wxWindowOS2::SetFocus()
  474. {
  475.     HWND                            hWnd = GetHwnd();
  476.     wxCHECK_RET( hWnd, _T("can't set focus to invalid window") );
  477.  
  478.     if (hWnd)
  479.         ::WinSetFocus(HWND_DESKTOP, hWnd);
  480. } // end of wxWindowOS2::SetFocus
  481.  
  482. void wxWindowOS2::SetFocusFromKbd()
  483. {
  484.     //
  485.     // Nothing else to do under OS/2
  486.     //
  487.     wxWindowBase::SetFocusFromKbd();
  488. } // end of wxWindowOS2::SetFocus
  489.  
  490. wxWindow* wxWindowBase::FindFocus()
  491. {
  492.     HWND                            hWnd = ::WinQueryFocus(HWND_DESKTOP);
  493.  
  494.     if (hWnd)
  495.     {
  496.         return wxFindWinFromHandle((WXHWND)hWnd);
  497.     }
  498.     return NULL;
  499. } // wxWindowBase::FindFocus
  500.  
  501. bool wxWindowOS2::Enable(
  502.   bool                              bEnable
  503. )
  504. {
  505.     if (!wxWindowBase::Enable(bEnable))
  506.         return(FALSE);
  507.  
  508.     HWND                            hWnd = GetHwnd();
  509.  
  510.     if ( hWnd )
  511.         ::WinEnableWindow(hWnd, (BOOL)bEnable);
  512.  
  513.     //
  514.     // The logic below doesn't apply to the top level windows -- otherwise
  515.     // showing a modal dialog would result in total greying out (and ungreying
  516.     // out later) of everything which would be really ugly
  517.     //
  518.     if (IsTopLevel())
  519.         return TRUE;
  520.  
  521.     wxWindowList::Node*             pNode = GetChildren().GetFirst();
  522.  
  523.     while (pNode)
  524.     {
  525.         wxWindow*                   pChild = pNode->GetData();
  526.  
  527.         if (bEnable)
  528.         {
  529.             //
  530.             // Enable the child back unless it had been disabled before us
  531.             //
  532.             if (!m_pChildrenDisabled || !m_pChildrenDisabled->Find(pChild))
  533.                 pChild->Enable();
  534.         }
  535.         else // we're being disabled
  536.         {
  537.             if (pChild->IsEnabled())
  538.             {
  539.                 //
  540.                 // Disable it as children shouldn't stay enabled while the
  541.                 // parent is not
  542.                 //
  543.                 pChild->Disable();
  544.             }
  545.             else // child already disabled, remember it
  546.             {
  547.                 //
  548.                 // Have we created the list of disabled children already?
  549.                 //
  550.                 if (!m_pChildrenDisabled)
  551.                     m_pChildrenDisabled = new wxWindowList;
  552.                 m_pChildrenDisabled->Append(pChild);
  553.             }
  554.         }
  555.         pNode = pNode->GetNext();
  556.     }
  557.     if (bEnable && m_pChildrenDisabled)
  558.     {
  559.         //
  560.         // We don't need this list any more, don't keep unused memory
  561.         //
  562.         delete m_pChildrenDisabled;
  563.         m_pChildrenDisabled = NULL;
  564.     }
  565.     return TRUE;
  566. } // end of wxWindowOS2::Enable
  567.  
  568. bool wxWindowOS2::Show(
  569.   bool                              bShow
  570. )
  571. {
  572.     if (!wxWindowBase::Show(bShow))
  573.         return(FALSE);
  574.  
  575.     HWND                            hWnd = GetHwnd();
  576.  
  577.     ::WinShowWindow(hWnd, bShow);
  578.  
  579.     if (bShow)
  580.     {
  581.         ::WinSetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0, SWP_ACTIVATE | SWP_ZORDER);
  582.     }
  583.     return TRUE;
  584. } // end of wxWindowOS2::Show
  585.  
  586. void wxWindowOS2::Raise()
  587. {
  588.     ::WinSetWindowPos(GetHwnd(), HWND_TOP, 0, 0, 0, 0, SWP_ZORDER | SWP_ACTIVATE);
  589. } // end of wxWindowOS2::Raise
  590.  
  591. void wxWindowOS2::Lower()
  592. {
  593.     ::WinSetWindowPos(GetHwnd(), HWND_BOTTOM, 0, 0, 0, 0, SWP_ZORDER | SWP_DEACTIVATE);
  594. } // end of wxWindowOS2::Lower
  595.  
  596. void wxWindowOS2::SetTitle(
  597.   const wxString&                   rTitle
  598. )
  599. {
  600.     ::WinSetWindowText(GetHwnd(), rTitle.c_str());
  601. } // end of wxWindowOS2::SetTitle
  602.  
  603. wxString wxWindowOS2::GetTitle() const
  604. {
  605.     return wxGetWindowText(GetHWND());
  606. } // end of wxWindowOS2::GetTitle
  607.  
  608. void wxWindowOS2::DoCaptureMouse()
  609. {
  610.     HWND                            hWnd = GetHwnd();
  611.  
  612.     if (hWnd && !m_bWinCaptured)
  613.     {
  614.         ::WinSetCapture(HWND_DESKTOP, hWnd);
  615.         m_bWinCaptured = TRUE;
  616.     }
  617. } // end of wxWindowOS2::GetTitle
  618.  
  619. void wxWindowOS2::DoReleaseMouse()
  620. {
  621.     if (m_bWinCaptured)
  622.     {
  623.         ::WinSetCapture(HWND_DESKTOP, NULLHANDLE);
  624.         m_bWinCaptured = FALSE;
  625.     }
  626. } // end of wxWindowOS2::ReleaseMouse
  627.  
  628. /* static */ wxWindow* wxWindowBase::GetCapture()
  629. {
  630.     HWND hwnd = ::WinQueryCapture(HWND_DESKTOP);
  631.     return hwnd ? wxFindWinFromHandle((WXHWND)hwnd) : (wxWindow *)NULL;
  632. } // end of wxWindowBase::GetCapture
  633.  
  634. bool wxWindowOS2::SetFont(
  635.   const wxFont&                     rFont
  636. )
  637. {
  638.     if (!wxWindowBase::SetFont(rFont))
  639.     {
  640.         // nothing to do
  641.         return(FALSE);
  642.     }
  643.  
  644.     HWND                            hWnd = GetHwnd();
  645.  
  646.     wxOS2SetFont( hWnd
  647.                  ,rFont
  648.                 );
  649.     return(TRUE);
  650. } // end of wxWindowOS2::SetFont
  651.  
  652. bool wxWindowOS2::SetCursor(
  653.   const wxCursor&                   rCursor
  654. ) // check if base implementation is OK
  655. {
  656.     if ( !wxWindowBase::SetCursor(rCursor))
  657.     {
  658.         // no change
  659.         return FALSE;
  660.     }
  661.  
  662.     if ( m_cursor.Ok() ) {
  663.         HWND                            hWnd = GetHwnd();
  664.         POINTL                          vPoint;
  665.         RECTL                           vRect;
  666.  
  667.         ::WinQueryPointerPos(HWND_DESKTOP, &vPoint);
  668.         ::WinQueryWindowRect(hWnd, &vRect);
  669.  
  670.         if (::WinPtInRect(vHabmain, &vRect, &vPoint) && !wxIsBusy())
  671.         {
  672.             ::WinSetPointer(HWND_DESKTOP, (HPOINTER)m_cursor.GetHCURSOR());
  673.         }
  674.     }
  675.     return TRUE;
  676. } // end of wxWindowOS2::SetCursor
  677.  
  678. void wxWindowOS2::WarpPointer(
  679.   int                               nXPos
  680. , int                               nYPos
  681. )
  682. {
  683.     int                             nX = nXPos;
  684.     int                             nY = nYPos;
  685.     RECTL                           vRect;
  686.  
  687.     ::WinQueryWindowRect(GetHwnd(), &vRect);
  688.     nX += vRect.xLeft;
  689.     nY += vRect.yBottom;
  690.  
  691.     ::WinSetPointerPos(HWND_DESKTOP, (LONG)nX, (LONG)(nY));
  692. } // end of wxWindowOS2::WarpPointer
  693.  
  694. #if WXWIN_COMPATIBILITY
  695. void wxWindowOS2::OS2DeviceToLogical (float *x, float *y) const
  696. {
  697. }
  698. #endif // WXWIN_COMPATIBILITY
  699.  
  700. // ---------------------------------------------------------------------------
  701. // scrolling stuff
  702. // ---------------------------------------------------------------------------
  703.  
  704. #if WXWIN_COMPATIBILITY
  705. void wxWindowOS2::SetScrollRange(
  706.   int                               nOrient
  707. , int                               nRange
  708. , bool                              bRefresh
  709. )
  710. {
  711.     int                             nRange1 = nRange;
  712.     int                             nPageSize = GetScrollPage(nOrient);
  713.  
  714.     if (nPpageSize > 1 && nRange > 0)
  715.     {
  716.         nRange1 += (nPageSize - 1);
  717.     }
  718.  
  719.     if (nOrient == wxHORIZONTAL)
  720.     {
  721.         ::WinSendMsg(m_hWndScrollBarHorz, SBM_SETSCROLLBAR, (MPARAM)0, MPFROM2SHORT(0, (SHORT)nRange1));
  722.         ::WinSendMsg(m_hWndScrollBarHorz, SBM_SETTHUMBSIZE, MPFROM2SHORT((SHORT)nThumbVisible, (SHORT)nRange1), (MPARAM)0);
  723.     }
  724.     else
  725.     {
  726.         ::WinSendMsg(m_hWndScrollBarVert, SBM_SETSCROLLBAR, (MPARAM)0, MPFROM2SHORT(0, (SHORT)nRange1));
  727.         ::WinSendMsg(m_hWndScrollBarVert, SBM_SETTHUMBSIZE, MPFROM2SHORT((SHORT)nThumbVisible, (SHORT)nRange1), (MPARAM)0);
  728.     }
  729. } // end of wxWindowOS2::SetScrollRange
  730.  
  731. void wxWindowOS2::SetScrollPage(
  732.   int                               nOrient
  733. , int                               nPage
  734. , bool                              bRefresh
  735. )
  736. {
  737.     if (nOrient == wxHORIZONTAL )
  738.         m_nXThumbSize = nPage;
  739.     else
  740.         m_nYThumbSize = nPage;
  741. } // end of wxWindowOS2::SetScrollPage
  742.  
  743. int wxWindowOS2::OldGetScrollRange(
  744.   int                               nOrient
  745. ) const
  746. {
  747.     MRESULT                         mRc;
  748.     HWND                            hWnd = GetHwnd();
  749.  
  750.     if (hWnd)
  751.     {
  752.         mRc = WinSendMsg(hWnd, SBM_QUERYRANGE, (MPARAM)0L, (MPARAM)0L);
  753.         return(SHORT2FROMMR(mRc));
  754.      }
  755.      return 0;
  756. } // end of wxWindowOS2::OldGetScrollRange
  757.  
  758. int  wxWindowOS2::GetScrollPage(
  759.   int                               nOrient
  760. ) const
  761. {
  762.     if (nOrient == wxHORIZONTAL)
  763.         return m_nXThumbSize;
  764.     else
  765.         return m_nYThumbSize;
  766. } // end of wxWindowOS2::GetScrollPage
  767. #endif // WXWIN_COMPATIBILITY
  768.  
  769. int  wxWindowOS2::GetScrollPos(
  770.   int                               nOrient
  771. ) const
  772. {
  773.     if (nOrient == wxHORIZONTAL)
  774.         return((int)::WinSendMsg(m_hWndScrollBarHorz, SBM_QUERYPOS, (MPARAM)NULL, (MPARAM)NULL));
  775.     else
  776.         return((int)::WinSendMsg(m_hWndScrollBarVert, SBM_QUERYPOS, (MPARAM)NULL, (MPARAM)NULL));
  777. } // end of wxWindowOS2::GetScrollPos
  778.  
  779. int wxWindowOS2::GetScrollRange(
  780.   int                               nOrient
  781. ) const
  782. {
  783.     MRESULT                         mr;
  784.  
  785.     if (nOrient == wxHORIZONTAL)
  786.         mr = ::WinSendMsg(m_hWndScrollBarHorz, SBM_QUERYRANGE, (MPARAM)NULL, (MPARAM)NULL);
  787.     else
  788.         mr = ::WinSendMsg(m_hWndScrollBarVert, SBM_QUERYRANGE, (MPARAM)NULL, (MPARAM)NULL);
  789.     return((int)SHORT2FROMMR(mr));
  790. } // end of wxWindowOS2::GetScrollRange
  791.  
  792. int wxWindowOS2::GetScrollThumb(
  793.   int                               nOrient
  794. ) const
  795. {
  796.     if (nOrient == wxHORIZONTAL )
  797.         return m_nXThumbSize;
  798.     else
  799.         return m_nYThumbSize;
  800. } // end of wxWindowOS2::GetScrollThumb
  801.  
  802. void wxWindowOS2::SetScrollPos(
  803.   int                               nOrient
  804. , int                               nPos
  805. , bool                              WXUNUSED(bRefresh)
  806. )
  807. {
  808.     if (nOrient == wxHORIZONTAL )
  809.         ::WinSendMsg(m_hWndScrollBarHorz, SBM_SETPOS, (MPARAM)nPos, (MPARAM)NULL);
  810.     else
  811.         ::WinSendMsg(m_hWndScrollBarVert, SBM_SETPOS, (MPARAM)nPos, (MPARAM)NULL);
  812. } // end of wxWindowOS2::SetScrollPos
  813.  
  814. void wxWindowOS2::SetScrollbar(
  815.   int                               nOrient
  816. , int                               nPos
  817. , int                               nThumbVisible
  818. , int                               nRange
  819. , bool                              WXUNUSED(bRefresh)
  820. )
  821. {
  822.     HWND                            hWnd = GetHwnd();
  823.     int                             nOldRange = nRange - nThumbVisible;
  824.     int                             nRange1 = nOldRange;
  825.     int                             nPageSize = nThumbVisible;
  826.  
  827.     SBCDATA                         vInfo;
  828.     ULONG                           ulStyle = WS_VISIBLE | WS_SYNCPAINT;
  829.     SWP                             vSwp;
  830.     SWP                             vSwpOwner;
  831.     RECTL                           vRect;
  832.     HWND                            hWndParent;
  833.     HWND                            hWndClient;
  834.     wxWindow*                       pParent = GetParent();
  835.  
  836.     if (pParent && pParent->IsKindOf(CLASSINFO(wxFrame)))
  837.     {
  838.         wxFrame*                    pFrame;
  839.  
  840.         pFrame = wxDynamicCast(pParent, wxFrame);
  841.         hWndParent = pFrame->GetFrame();
  842.         hWndClient = GetHwndOf(pParent);
  843.     }
  844.     else
  845.     {
  846.         if (pParent)
  847.             hWndParent = GetHwndOf(pParent);
  848.         else
  849.             hWndParent = GetHwnd();
  850.         hWndClient = hWndParent;
  851.     }
  852.     ::WinQueryWindowPos(hWndClient, &vSwp);
  853.     ::WinQueryWindowPos(hWnd, &vSwpOwner);
  854.  
  855.     if (nPageSize > 1 && nRange > 0)
  856.     {
  857.         nRange1 += (nPageSize - 1);
  858.     }
  859.  
  860.     vInfo.cb = sizeof(SBCDATA);
  861.     vInfo.posFirst = 0;
  862.     vInfo.posLast = (SHORT)nRange1;
  863.     vInfo.posThumb = nPos;
  864.  
  865.     if (nOrient == wxHORIZONTAL )
  866.     {
  867.         ulStyle |= SBS_HORZ;
  868.         if (m_hWndScrollBarHorz == 0L)
  869.         {
  870.             //
  871.             // Since the scrollbars are usually created before the owner is
  872.             // sized either via an OnSize event directly or via sizers or
  873.             // layout constraints, we will initially just use the coords of
  874.             // the parent window (this is usually a frame client window). But
  875.             // the bars themselves, are children of the parent frame (i.e
  876.             // siblings of the frame client.  The owner, however is the actual
  877.             // window being scrolled (or at least the one responsible for
  878.             // handling the scroll events). The owner will be resized later,
  879.             // as it is usually a child of a top level window, and when that
  880.             // is done its scrollbars will be resized and repositioned as well.
  881.             //
  882.             m_hWndScrollBarHorz = ::WinCreateWindow( hWndParent
  883.                                                     ,WC_SCROLLBAR
  884.                                                     ,(PSZ)NULL
  885.                                                     ,ulStyle
  886.                                                     ,vSwp.x
  887.                                                     ,vSwp.y
  888.                                                     ,vSwp.cx - 20
  889.                                                     ,20
  890.                                                     ,hWnd
  891.                                                     ,HWND_TOP
  892.                                                     ,60000
  893.                                                     ,&vInfo
  894.                                                     ,NULL
  895.                                                    );
  896.         }
  897.         else
  898.         {
  899.             //
  900.             // The owner (the scrolled window) is a child of the Frame's
  901.             // client window, usually.  The scrollbars are children of the
  902.             // frame, itself, and thus are positioned relative to the frame's
  903.             // origin, not the frame's client window origin.
  904.             // The starting x position is the same as the starting x position
  905.             // of the owner, but in terms of the parent frame.
  906.             // The starting y position is 20 pels below the origin of the
  907.             // owner in terms of the parent frame.
  908.             // The horz bar is the same width as the owner and 20 pels high.
  909.             //
  910.             if (nRange1 >= nThumbVisible)
  911.             {
  912.                 ::WinSetWindowPos( m_hWndScrollBarHorz
  913.                                   ,HWND_TOP
  914.                                   ,vSwp.x + vSwpOwner.x
  915.                                   ,(vSwp.y + vSwpOwner.y) - 20
  916.                                   ,vSwpOwner.cx
  917.                                   ,20
  918.                                   ,SWP_MOVE | SWP_SIZE | SWP_SHOW | SWP_ACTIVATE | SWP_ZORDER
  919.                                  );
  920.                 ::WinSendMsg( m_hWndScrollBarHorz
  921.                              ,SBM_SETSCROLLBAR
  922.                              ,(MPARAM)nPos
  923.                              ,MPFROM2SHORT(0, (SHORT)nRange1)
  924.                             );
  925.                 ::WinSendMsg( m_hWndScrollBarHorz
  926.                              ,SBM_SETTHUMBSIZE
  927.                              ,MPFROM2SHORT( (SHORT)nThumbVisible
  928.                                            ,(SHORT)nRange1
  929.                                           )
  930.                              ,(MPARAM)0
  931.                             );
  932.             }
  933.             else
  934.                 ::WinShowWindow(m_hWndScrollBarHorz, FALSE);
  935.         }
  936.     }
  937.     else
  938.     {
  939.         ulStyle |= SBS_VERT;
  940.         if (m_hWndScrollBarVert == 0L)
  941.         {
  942.             //
  943.             // Since the scrollbars are usually created before the owner is
  944.             // sized either via an OnSize event directly or via sizers or
  945.             // layout constraints, we will initially just use the coords of
  946.             // the parent window (this is usually a frame client window). But
  947.             // the bars themselves, are children of the parent frame (i.e
  948.             // siblings of the frame client.  The owner, however is the actual
  949.             // window being scrolled (or at least the one responsible for
  950.             // handling the scroll events). The owner will be resized later,
  951.             // as it is usually a child of a top level window, and when that
  952.             // is done its scrollbars will be resized and repositioned as well.
  953.             //
  954.             m_hWndScrollBarVert = ::WinCreateWindow( hWndParent
  955.                                                     ,WC_SCROLLBAR
  956.                                                     ,(PSZ)NULL
  957.                                                     ,ulStyle
  958.                                                     ,vSwp.x + vSwp.cx - 20
  959.                                                     ,vSwp.y + 20
  960.                                                     ,20
  961.                                                     ,vSwp.cy - 20
  962.                                                     ,hWnd
  963.                                                     ,HWND_TOP
  964.                                                     ,60001
  965.                                                     ,&vInfo
  966.                                                     ,NULL
  967.                                                    );
  968.         }
  969.         else
  970.         {
  971.             //
  972.             // The owner (the scrolled window) is a child of the Frame's
  973.             // client window, usually.  The scrollbars are children of the
  974.             // frame, itself and thus are positioned relative to the frame's
  975.             // origin, not the frame's client window's origin.
  976.             // Thus, the x position will be frame client's x (usually a few
  977.             // pels inside the parent frame, plus the width of the owner.
  978.             // Since we may be using sizers or layout constraints for multiple
  979.             // child scrolled windows, the y position will be the frame client's
  980.             // y pos plus the scrolled windows y position, yielding the y
  981.             // position of the scrollbar relative to the parent frame (the vert
  982.             // scrollbar is on the right and starts at the bottom of the
  983.             // owner window).
  984.             // It is 20 pels wide and the same height as the owner.
  985.             //
  986.             if (nRange1 >= nThumbVisible)
  987.             {
  988.                 ::WinSetWindowPos( m_hWndScrollBarVert
  989.                                   ,HWND_TOP
  990.                                   ,vSwp.x + vSwpOwner.x + vSwpOwner.cx
  991.                                   ,vSwp.y + vSwpOwner.y
  992.                                   ,20
  993.                                   ,vSwpOwner.cy
  994.                                   ,SWP_ACTIVATE | SWP_MOVE | SWP_SIZE | SWP_SHOW
  995.                                  );
  996.                 ::WinSendMsg( m_hWndScrollBarVert
  997.                              ,SBM_SETSCROLLBAR
  998.                              ,(MPARAM)nPos
  999.                              ,MPFROM2SHORT(0, (SHORT)nRange1)
  1000.                             );
  1001.                 ::WinSendMsg( m_hWndScrollBarVert
  1002.                              ,SBM_SETTHUMBSIZE
  1003.                              ,MPFROM2SHORT( (SHORT)nThumbVisible
  1004.                                            ,(SHORT)nRange1
  1005.                                           )
  1006.                              ,(MPARAM)0
  1007.                             );
  1008.             }
  1009.             else
  1010.                 ::WinShowWindow(m_hWndScrollBarVert, FALSE);
  1011.         }
  1012.         m_nYThumbSize = nThumbVisible;
  1013.     }
  1014. } // end of wxWindowOS2::SetScrollbar
  1015.  
  1016. void wxWindowOS2::ScrollWindow(
  1017.   int                               nDx
  1018. , int                               nDy
  1019. , const wxRect*                     pRect
  1020. )
  1021. {
  1022.     RECTL                           vRect;
  1023.     RECTL                           vRectHorz;
  1024.     RECTL                           vRectVert;
  1025.     RECTL                           vRectChild;
  1026.  
  1027.     if (pRect)
  1028.     {
  1029.         vRect.xLeft   = pRect->x;
  1030.         vRect.yTop    = pRect->y + pRect->height;
  1031.         vRect.xRight  = pRect->x + pRect->width;
  1032.         vRect.yBottom = pRect->y;
  1033.     }
  1034.     else
  1035.     {
  1036.         ::WinQueryWindowRect(GetHwnd(), &vRect);
  1037.     }
  1038.     nDy *= -1; // flip the sign of Dy as OS/2 is opposite Windows.
  1039.     ::WinScrollWindow( GetHwnd()
  1040.                       ,(LONG)nDx
  1041.                       ,(LONG)nDy
  1042.                       ,&vRect
  1043.                       ,&vRect
  1044.                       ,NULLHANDLE
  1045.                       ,NULL
  1046.                       ,SW_SCROLLCHILDREN | SW_INVALIDATERGN
  1047.                      );
  1048.     Refresh();
  1049. } // end of wxWindowOS2::ScrollWindow
  1050.  
  1051. // ---------------------------------------------------------------------------
  1052. // subclassing
  1053. // ---------------------------------------------------------------------------
  1054.  
  1055. void wxWindowOS2::SubclassWin(
  1056.   WXHWND                            hWnd
  1057. )
  1058. {
  1059.     HWND                            hwnd = (HWND)hWnd;
  1060.  
  1061.     wxCHECK_RET(::WinIsWindow(vHabmain, hwnd), wxT("invalid HWND in SubclassWin") );
  1062.     wxAssociateWinWithHandle( hWnd
  1063.                              ,(wxWindow*)this
  1064.                             );
  1065.     if (!wxCheckWindowWndProc( hWnd
  1066.                               ,(WXFARPROC)wxWndProc
  1067.                              ))
  1068.     {
  1069.         m_fnOldWndProc = (WXFARPROC) ::WinSubclassWindow(hwnd, (PFNWP)wxWndProc);
  1070.     }
  1071.     else
  1072.     {
  1073.         m_fnOldWndProc = (WXFARPROC)NULL;
  1074.     }
  1075. } // end of wxWindowOS2::SubclassWin
  1076.  
  1077. void wxWindowOS2::UnsubclassWin()
  1078. {
  1079.     //
  1080.     // Restore old Window proc
  1081.     //
  1082.     HWND                            hwnd = GetHWND();
  1083.  
  1084.     if (m_hWnd)
  1085.     {
  1086.         wxCHECK_RET( ::WinIsWindow(vHabmain, hwnd), wxT("invalid HWND in UnsubclassWin") );
  1087.  
  1088.         PFNWP                       fnProc = (PFNWP)::WinQueryWindowPtr(hwnd, QWP_PFNWP);
  1089.  
  1090.         if ( (m_fnOldWndProc != 0) && (fnProc != (PFNWP) m_fnOldWndProc))
  1091.         {
  1092.             WinSubclassWindow(hwnd, (PFNWP)m_fnOldWndProc);
  1093.             m_fnOldWndProc = 0;
  1094.         }
  1095.     }
  1096. } // end of wxWindowOS2::UnsubclassWin
  1097.  
  1098. bool wxCheckWindowWndProc(
  1099.   WXHWND                            hWnd
  1100. , WXFARPROC                         fnWndProc
  1101. )
  1102. {
  1103.     static char                     zBuffer[512];
  1104.     CLASSINFO                       vCls;
  1105.  
  1106.     ::WinQueryClassName((HWND)hWnd, (LONG)512, (PCH)zBuffer);
  1107.     ::WinQueryClassInfo(wxGetInstance(), (PSZ)zBuffer, &vCls);
  1108.     return(fnWndProc == (WXFARPROC)vCls.pfnWindowProc);
  1109. } // end of WinGuiBase_CheckWindowWndProc
  1110.  
  1111. void wxWindowOS2::SetWindowStyleFlag(
  1112.   long                              lFlags
  1113. )
  1114. {
  1115.     long                            lFlagsOld = GetWindowStyleFlag();
  1116.  
  1117.     if (lFlags == lFlagsOld)
  1118.         return;
  1119.  
  1120.     //
  1121.     // Update the internal variable
  1122.     //
  1123.     wxWindowBase::SetWindowStyleFlag(lFlags);
  1124.  
  1125.     //
  1126.     // Now update the Windows style as well if needed - and if the window had
  1127.     // been already created
  1128.     //
  1129.     if (!GetHwnd())
  1130.         return;
  1131.  
  1132.     WXDWORD                         dwExstyle;
  1133.     WXDWORD                         dwExstyleOld;
  1134.     long                            lStyle = OS2GetStyle( lFlags
  1135.                                                          ,&dwExstyle
  1136.                                                         );
  1137.     long                            lStyleOld = OS2GetStyle( lFlagsOld
  1138.                                                             ,&dwExstyleOld
  1139.                                                            );
  1140.  
  1141.     if (lStyle != lStyleOld)
  1142.     {
  1143.         //
  1144.         // Some flags (e.g. WS_VISIBLE or WS_DISABLED) should not be changed by
  1145.         // this function so instead of simply setting the style to the new
  1146.         // value we clear the bits which were set in styleOld but are set in
  1147.         // the new one and set the ones which were not set before
  1148.         //
  1149.         long                        lStyleReal = ::WinQueryWindowULong(GetHwnd(), QWL_STYLE);
  1150.  
  1151.         lStyleReal &= ~lStyleOld;
  1152.         lStyleReal |= lStyle;
  1153.  
  1154.         ::WinSetWindowULong(GetHwnd(), QWL_STYLE, lStyleReal);
  1155.     }
  1156. } // end of wxWindowOS2::SetWindowStyleFlag
  1157.  
  1158. WXDWORD wxWindowOS2::OS2GetStyle(
  1159.   long                              lFlags
  1160. , WXDWORD*                          pdwExstyle
  1161. ) const
  1162. {
  1163.     WXDWORD                         dwStyle = 0L;
  1164.  
  1165.     if (lFlags & wxCLIP_CHILDREN )
  1166.         dwStyle |= WS_CLIPCHILDREN;
  1167.  
  1168.     if (lFlags & wxCLIP_SIBLINGS )
  1169.         dwStyle |= WS_CLIPSIBLINGS;
  1170.  
  1171.     return dwStyle;
  1172. } // end of wxWindowMSW::MSWGetStyle
  1173.  
  1174. //
  1175. // Make a Windows extended style from the given wxWindows window style
  1176. //
  1177. WXDWORD wxWindowOS2::MakeExtendedStyle(
  1178.   long                              lStyle
  1179. , bool                              bEliminateBorders
  1180. )
  1181. {
  1182.    //
  1183.    // Simply fill out with wxWindow extended styles.  We'll conjure
  1184.    // something up in OS2Create and all window redrawing pieces later
  1185.    //
  1186.     WXDWORD                         dwStyle = 0;
  1187.  
  1188.     if (lStyle & wxTRANSPARENT_WINDOW )
  1189.         dwStyle |= wxTRANSPARENT_WINDOW;
  1190.  
  1191.     if (!bEliminateBorders)
  1192.     {
  1193.         if (lStyle & wxSUNKEN_BORDER)
  1194.             dwStyle |= wxSUNKEN_BORDER;
  1195.         if (lStyle & wxDOUBLE_BORDER)
  1196.             dwStyle |= wxDOUBLE_BORDER;
  1197.         if (lStyle & wxRAISED_BORDER )
  1198.             dwStyle |= wxRAISED_BORDER;
  1199.         if (lStyle & wxSTATIC_BORDER)
  1200.             dwStyle |= wxSTATIC_BORDER;
  1201.     }
  1202.     return dwStyle;
  1203. } // end of wxWindowOS2::MakeExtendedStyle
  1204.  
  1205. //
  1206. // Determines whether simulated 3D effects or CTL3D should be used,
  1207. // applying a default border style if required, and returning an extended
  1208. // style to pass to OS2Create.
  1209. //
  1210. WXDWORD wxWindowOS2::Determine3DEffects(
  1211.   WXDWORD                           dwDefaultBorderStyle
  1212. , bool*                             pbWant3D
  1213. ) const
  1214. {
  1215.     WXDWORD                         dwStyle = 0L;
  1216.  
  1217.     //
  1218.     // Native PM does not have any specialize 3D effects like WIN32 does,
  1219.     // so we have to try and invent them.
  1220.     //
  1221.  
  1222.     //
  1223.     // If matches certain criteria, then assume no 3D effects
  1224.     // unless specifically requested (dealt with in MakeExtendedStyle)
  1225.     //
  1226.     if (!GetParent()                    ||
  1227.         !IsKindOf(CLASSINFO(wxControl)) ||
  1228.         (m_windowStyle & wxNO_BORDER)
  1229.        )
  1230.     {
  1231.         *pbWant3D = FALSE;
  1232.         return MakeExtendedStyle(m_windowStyle, FALSE);
  1233.     }
  1234.  
  1235.     //
  1236.     // 1) App can specify global 3D effects
  1237.     //
  1238.     *pbWant3D = wxTheApp->GetAuto3D();
  1239.  
  1240.     //
  1241.     // 2) If the parent is being drawn with user colours, or simple border
  1242.     //    specified, switch effects off.
  1243.     //
  1244.     if (GetParent() &&
  1245.         (GetParent()->GetWindowStyleFlag() & wxUSER_COLOURS) ||
  1246.         (m_windowStyle & wxSIMPLE_BORDER)
  1247.        )
  1248.         *pbWant3D = FALSE;
  1249.  
  1250.     //
  1251.     // 3) Control can override this global setting by defining
  1252.     //    a border style, e.g. wxSUNKEN_BORDER
  1253.     //
  1254.     if ((m_windowStyle & wxDOUBLE_BORDER) ||
  1255.         (m_windowStyle & wxRAISED_BORDER) ||
  1256.         (m_windowStyle & wxSTATIC_BORDER) ||
  1257.         (m_windowStyle & wxSUNKEN_BORDER)
  1258.        )
  1259.         *pbWant3D = TRUE;
  1260.  
  1261.     dwStyle = MakeExtendedStyle( m_windowStyle
  1262.                                 ,FALSE
  1263.                                );
  1264.  
  1265.     //
  1266.     // If we want 3D, but haven't specified a border here,
  1267.     // apply the default border style specified.
  1268.     //
  1269.     if (dwDefaultBorderStyle && (*pbWant3D) &&
  1270.         !((m_windowStyle & wxDOUBLE_BORDER) ||
  1271.           (m_windowStyle & wxRAISED_BORDER) ||
  1272.           (m_windowStyle & wxSTATIC_BORDER) ||
  1273.           (m_windowStyle & wxSIMPLE_BORDER)
  1274.          )
  1275.         )
  1276.         dwStyle |= dwDefaultBorderStyle;
  1277.     return dwStyle;
  1278. } // end of wxWindowOS2::Determine3DEffects
  1279.  
  1280. #if WXWIN_COMPATIBILITY
  1281. void wxWindowOS2::OnCommand(
  1282.   wxWindow&                         rWin
  1283. , wxCommandEvent&                   rEvent
  1284. )
  1285. {
  1286.     if (GetEventHandler()->ProcessEvent(rEvent))
  1287.         return;
  1288.     if (m_parent)
  1289.         m_parent->GetEventHandler()->OnCommand( rWin
  1290.                                                ,rEvent
  1291.                                               );
  1292. } // end of wxWindowOS2::OnCommand
  1293.  
  1294. wxObject* wxWindowOS2::GetChild(
  1295.   int                               nNumber
  1296. ) const
  1297. {
  1298.     //
  1299.     // Return a pointer to the Nth object in the Panel
  1300.     //
  1301.     wxNode*                         pNode = GetChildren().First();
  1302.     int                             n = nNumber;
  1303.  
  1304.     while (pNode && n--)
  1305.         pNode = pNode->Next();
  1306.     if (pNode)
  1307.     {
  1308.         wxObject*                   pObj = (wxObject*)pNode->Data();
  1309.         return(pObj);
  1310.     }
  1311.     else
  1312.         return NULL;
  1313. } // end of wxWindowOS2::GetChild
  1314.  
  1315. #endif // WXWIN_COMPATIBILITY
  1316.  
  1317. //
  1318. // Setup background and foreground colours correctly
  1319. //
  1320. void wxWindowOS2::SetupColours()
  1321. {
  1322.     if ( GetParent() )
  1323.         SetBackgroundColour(GetParent()->GetBackgroundColour());
  1324. } // end of wxWindowOS2::SetupColours
  1325.  
  1326. void wxWindowOS2::OnIdle(
  1327.   wxIdleEvent&                      WXUNUSED(rEvent)
  1328. )
  1329. {
  1330.     //
  1331.     // Check if we need to send a LEAVE event
  1332.     //
  1333.     if (m_bMouseInWindow)
  1334.     {
  1335.         POINTL                      vPoint;
  1336.  
  1337.         ::WinQueryPointerPos(HWND_DESKTOP, &vPoint);
  1338.         if (::WinWindowFromPoint(HWND_DESKTOP, &vPoint, FALSE) != (HWND)GetHwnd())
  1339.         {
  1340.             //
  1341.             // Generate a LEAVE event
  1342.             //
  1343.             m_bMouseInWindow = FALSE;
  1344.  
  1345.             //
  1346.             // Unfortunately the mouse button and keyboard state may have changed
  1347.             // by the time the OnIdle function is called, so 'state' may be
  1348.             // meaningless.
  1349.             //
  1350.             int                     nState = 0;
  1351.  
  1352.             if (::WinGetKeyState(HWND_DESKTOP, VK_SHIFT) != 0)
  1353.                 nState |= VK_SHIFT;
  1354.             if (::WinGetKeyState(HWND_DESKTOP, VK_CTRL) != 0);
  1355.                 nState |= VK_CTRL;
  1356.  
  1357.             wxMouseEvent            rEvent(wxEVT_LEAVE_WINDOW);
  1358.  
  1359.             InitMouseEvent( rEvent
  1360.                            ,vPoint.x
  1361.                            ,vPoint.y
  1362.                            ,nState
  1363.                           );
  1364.             (void)GetEventHandler()->ProcessEvent(rEvent);
  1365.         }
  1366.     }
  1367.     UpdateWindowUI();
  1368. } // end of wxWindowOS2::OnIdle
  1369.  
  1370. //
  1371. // Set this window to be the child of 'parent'.
  1372. //
  1373. bool wxWindowOS2::Reparent(
  1374.   wxWindow*                         pParent
  1375. )
  1376. {
  1377.     if (!wxWindowBase::Reparent(pParent))
  1378.         return FALSE;
  1379.  
  1380.     HWND                            hWndChild = GetHwnd();
  1381.     HWND                            hWndParent = GetParent() ? GetWinHwnd(GetParent()) : (HWND)0;
  1382.  
  1383.     ::WinSetParent(hWndChild, hWndParent, TRUE);
  1384.     return TRUE;
  1385. } // end of wxWindowOS2::Reparent
  1386.  
  1387. void wxWindowOS2::Clear()
  1388. {
  1389.     wxClientDC                      vDc((wxWindow*)this);
  1390.     wxBrush                         vBrush( GetBackgroundColour()
  1391.                                            ,wxSOLID
  1392.                                           );
  1393.  
  1394.     vDc.SetBackground(vBrush);
  1395.     vDc.Clear();
  1396. } // end of wxWindowOS2::Clear
  1397.  
  1398. void wxWindowOS2::Update()
  1399. {
  1400.     ::WinUpdateWindow(GetHwnd());
  1401. } // end of wxWindowOS2::Update
  1402.  
  1403. void wxWindowOS2::Freeze()
  1404. {
  1405.    ::WinSendMsg(GetHwnd(), WM_VRNDISABLED, (MPARAM)0, (MPARAM)0);
  1406. } // end of wxWindowOS2::Freeze
  1407.  
  1408. void wxWindowOS2::Thaw()
  1409. {
  1410.    ::WinSendMsg(GetHwnd(), WM_VRNENABLED, (MPARAM)TRUE, (MPARAM)0);
  1411.  
  1412.     //
  1413.     // We need to refresh everything or otherwise he invalidated area is not
  1414.     // repainted.
  1415.     //
  1416.     Refresh();
  1417. } // end of wxWindowOS2::Thaw
  1418.  
  1419. void wxWindowOS2::Refresh(
  1420.   bool                              bEraseBack
  1421. , const wxRect*                     pRect
  1422. )
  1423. {
  1424.     HWND                            hWnd = GetHwnd();
  1425.  
  1426.     if (hWnd)
  1427.     {
  1428.         if (pRect)
  1429.         {
  1430.             RECTL                   vOs2Rect;
  1431.  
  1432.             vOs2Rect.xLeft   = pRect->x;
  1433.             vOs2Rect.yTop    = pRect->y;
  1434.             vOs2Rect.xRight  = pRect->x + pRect->width;
  1435.             vOs2Rect.yBottom = pRect->y + pRect->height;
  1436.  
  1437.             ::WinInvalidateRect(hWnd, &vOs2Rect, bEraseBack);
  1438.         }
  1439.         else
  1440.             ::WinInvalidateRect(hWnd, NULL, bEraseBack);
  1441.         if (m_hWndScrollBarHorz != NULLHANDLE)
  1442.             ::WinInvalidateRect(m_hWndScrollBarHorz, NULL, TRUE);
  1443.         if (m_hWndScrollBarVert != NULLHANDLE)
  1444.             ::WinInvalidateRect(m_hWndScrollBarVert, NULL, TRUE);
  1445.     }
  1446. } // end of wxWindowOS2::Refresh
  1447.  
  1448. // ---------------------------------------------------------------------------
  1449. // drag and drop
  1450. // ---------------------------------------------------------------------------
  1451.  
  1452. #if wxUSE_DRAG_AND_DROP
  1453. void wxWindowOS2::SetDropTarget(
  1454.   wxDropTarget*                     pDropTarget
  1455. )
  1456. {
  1457.     if (m_dropTarget != 0)
  1458.     {
  1459.         m_dropTarget->Revoke(m_hWnd);
  1460.         delete m_dropTarget;
  1461.     }
  1462.     m_dropTarget = pDropTarget;
  1463.     if (m_dropTarget != 0)
  1464.         m_dropTarget->Register(m_hWnd);
  1465. } // end of wxWindowOS2::SetDropTarget
  1466. #endif
  1467.  
  1468. //
  1469. // old style file-manager drag&drop support: we retain the old-style
  1470. // DragAcceptFiles in parallel with SetDropTarget.
  1471. //
  1472. void wxWindowOS2::DragAcceptFiles(
  1473.   bool                              bAccept
  1474. )
  1475. {
  1476.     HWND                            hWnd = GetHwnd();
  1477.  
  1478.     if (hWnd && bAccept)
  1479.         ::DrgAcceptDroppedFiles(hWnd, NULL, NULL, DO_COPY, 0L);
  1480. } // end of wxWindowOS2::DragAcceptFiles
  1481.  
  1482. // ----------------------------------------------------------------------------
  1483. // tooltips
  1484. // ----------------------------------------------------------------------------
  1485.  
  1486. #if wxUSE_TOOLTIPS
  1487.  
  1488. void wxWindowOS2::DoSetToolTip(
  1489.   wxToolTip*                        pTooltip
  1490. )
  1491. {
  1492.     wxWindowBase::DoSetToolTip(pTooltip);
  1493.  
  1494.     if (m_tooltip)
  1495.         m_tooltip->SetWindow(this);
  1496. } // end of wxWindowOS2::DoSetToolTip
  1497.  
  1498. #endif // wxUSE_TOOLTIPS
  1499.  
  1500. // ---------------------------------------------------------------------------
  1501. // moving and resizing
  1502. // ---------------------------------------------------------------------------
  1503.  
  1504. // Get total size
  1505. void wxWindowOS2::DoGetSize(
  1506.   int*                              pWidth
  1507. , int*                              pHeight
  1508. ) const
  1509. {
  1510.     HWND                            hWnd;
  1511.     RECTL                           vRect;
  1512.  
  1513.     if (IsKindOf(CLASSINFO(wxFrame)))
  1514.     {
  1515.         wxFrame*                    pFrame = wxDynamicCast(this, wxFrame);
  1516.         hWnd = pFrame->GetFrame();
  1517.     }
  1518.     else
  1519.         hWnd = GetHwnd();
  1520.  
  1521.     ::WinQueryWindowRect(hWnd, &vRect);
  1522.  
  1523.     if (pWidth)
  1524.         *pWidth = vRect.xRight - vRect.xLeft;
  1525.     if (pHeight )
  1526.         // OS/2 PM is backwards from windows
  1527.         *pHeight = vRect.yTop - vRect.yBottom;
  1528. } // end of wxWindowOS2::DoGetSize
  1529.  
  1530. void wxWindowOS2::DoGetPosition(
  1531.   int*                              pX
  1532. , int*                              pY
  1533. ) const
  1534. {
  1535.     HWND                            hWnd = GetHwnd();
  1536.     SWP                             vSwp;
  1537.     POINTL                          vPoint;
  1538.     wxWindow*                       pParent = GetParent();
  1539.  
  1540.     //
  1541.     // It would seem that WinQueryWindowRect would be the correlary to
  1542.     // the WIN32 WinGetRect, but unlike WinGetRect which returns the window
  1543.     // origin position in screen coordinates, WinQueryWindowRect returns it
  1544.     // relative to itself, i.e. (0,0).  To get the same under PM we must
  1545.     // us WinQueryWindowPos.  This call, unlike the WIN32 call, however,
  1546.     // returns a position relative to it's parent, so no parent adujstments
  1547.     // are needed under OS/2.  Also, windows should be created using
  1548.     // wxWindow coordinates, i.e 0,0 is the TOP left so vSwp will already
  1549.     // reflect that.
  1550.     //
  1551.     ::WinQueryWindowPos(hWnd, &vSwp);
  1552.  
  1553.     vPoint.x = vSwp.x;
  1554.     vPoint.y = vSwp.y;
  1555.  
  1556.     //
  1557.     // We may be faking the client origin. So a window that's really at (0,
  1558.     // 30) may appear (to wxWin apps) to be at (0, 0).
  1559.     //
  1560.     if (pParent)
  1561.     {
  1562.         wxPoint                     vPt(pParent->GetClientAreaOrigin());
  1563.  
  1564.         vPoint.x -= vPt.x;
  1565.         vPoint.y -= vPt.y;
  1566.     }
  1567.  
  1568.     if (pX)
  1569.         *pX = vPoint.x;
  1570.     if  (pY)
  1571.         *pY = vPoint.y;
  1572. } // end of wxWindowOS2::DoGetPosition
  1573.  
  1574. void wxWindowOS2::DoScreenToClient(
  1575.   int*                              pX
  1576. , int*                              pY
  1577. ) const
  1578. {
  1579.     HWND                            hWnd = GetHwnd();
  1580.     SWP                             vSwp;
  1581.  
  1582.     ::WinQueryWindowPos(hWnd, &vSwp);
  1583.  
  1584.     if (pX)
  1585.         *pX += vSwp.x;
  1586.     if (pY)
  1587.         *pY += vSwp.y;
  1588. } // end of wxWindowOS2::DoScreenToClient
  1589.  
  1590. void wxWindowOS2::DoClientToScreen(
  1591.   int*                              pX
  1592. , int*                              pY
  1593. ) const
  1594. {
  1595.     HWND                            hWnd = GetHwnd();
  1596.     SWP                             vSwp;
  1597.  
  1598.     ::WinQueryWindowPos(hWnd, &vSwp);
  1599.  
  1600.     if (pX)
  1601.         *pX += vSwp.x;
  1602.     if (pY)
  1603.         *pY += vSwp.y;
  1604. } // end of wxWindowOS2::DoClientToScreen
  1605.  
  1606. //
  1607. // Get size *available for subwindows* i.e. excluding menu bar etc.
  1608. // Must be a frame type window
  1609. //
  1610. void wxWindowOS2::DoGetClientSize(
  1611.   int*                              pWidth
  1612. , int*                              pHeight
  1613. ) const
  1614. {
  1615.     HWND                            hWnd = GetHwnd();
  1616.     RECTL                           vRect;
  1617.  
  1618.    ::WinQueryWindowRect(hWnd, &vRect);
  1619.     if (IsKindOf(CLASSINFO(wxDialog)))
  1620.     {
  1621.         RECTL                       vTitle;
  1622.         HWND                        hWndTitle;
  1623.         //
  1624.         // For a Dialog we have to explicitly request the client portion.
  1625.         // For a Frame the hWnd IS the client window
  1626.         //
  1627.         hWndTitle = ::WinWindowFromID(hWnd, FID_TITLEBAR);
  1628.         if (::WinQueryWindowRect(hWndTitle, &vTitle))
  1629.         {
  1630.             if (vTitle.yTop - vTitle.yBottom == 0)
  1631.             {
  1632.                 //
  1633.                 // Dialog has not been created yet, use a default
  1634.                 //
  1635.                 vTitle.yTop = 20;
  1636.             }
  1637.             vRect.yTop -= (vTitle.yTop - vTitle.yBottom);
  1638.         }
  1639.  
  1640.         ULONG                       uStyle = ::WinQueryWindowULong(hWnd, QWL_STYLE);
  1641.  
  1642.         //
  1643.         // Deal with borders
  1644.         //
  1645.         if (uStyle & FCF_DLGBORDER)
  1646.         {
  1647.             vRect.xLeft += 4;
  1648.             vRect.xRight -= 4;
  1649.             vRect.yTop -= 4;
  1650.             vRect.yBottom += 4;
  1651.         }
  1652.         else if (uStyle & FCF_SIZEBORDER)
  1653.         {
  1654.             vRect.xLeft += 4;
  1655.             vRect.xRight -= 4;
  1656.             vRect.yTop -= 4;
  1657.             vRect.yBottom += 4;
  1658.         }
  1659.         else if (uStyle & FCF_BORDER)
  1660.         {
  1661.             vRect.xLeft += 2;
  1662.             vRect.xRight -= 2;
  1663.             vRect.yTop -= 2;
  1664.             vRect.yBottom += 2;
  1665.         }
  1666.         else // make some kind of adjustment or top sizers ram into the titlebar!
  1667.         {
  1668.             vRect.xLeft += 3;
  1669.             vRect.xRight -= 3;
  1670.             vRect.yTop -= 3;
  1671.             vRect.yBottom += 3;
  1672.         }
  1673.     }
  1674.     if (pWidth)
  1675.         *pWidth  = vRect.xRight - vRect.xLeft;
  1676.     if (pHeight)
  1677.         *pHeight = vRect.yTop - vRect.yBottom;
  1678. } // end of wxWindowOS2::DoGetClientSize
  1679.  
  1680. void wxWindowOS2::DoMoveWindow(
  1681.   int                               nX
  1682. , int                               nY
  1683. , int                               nWidth
  1684. , int                               nHeight
  1685. )
  1686. {
  1687.     RECTL                           vRect;
  1688.     HWND                            hParent;
  1689.     wxWindow*                       pParent = GetParent();
  1690.  
  1691.     if (pParent && !IsKindOf(CLASSINFO(wxDialog)))
  1692.     {
  1693.         int                         nOS2Height = GetOS2ParentHeight(pParent);
  1694.  
  1695.         nY = nOS2Height - (nY + nHeight);
  1696.     }
  1697.     else
  1698.     {
  1699.         RECTL                       vRect;
  1700.  
  1701.         ::WinQueryWindowRect(HWND_DESKTOP, &vRect);
  1702.         nY = vRect.yTop - (nY + nHeight);
  1703.     }
  1704.  
  1705.     //
  1706.     // In the case of a frame whose client is sized, the client cannot be
  1707.     // large than its parent frame minus its borders! This usually happens
  1708.     // when using an autosizer to size a frame to precisely hold client
  1709.     // controls as in the notebook sample.
  1710.     //
  1711.     // In this case, we may need to resize both a frame and its client so we
  1712.     // need a quick calc of the frame border size, then if the frame
  1713.     // (less its borders) is smaller than the client, size the frame to
  1714.     // encompass the client with the appropriate border size.
  1715.     //
  1716.     if (IsKindOf(CLASSINFO(wxFrame)))
  1717.     {
  1718.         RECTL                       vFRect;
  1719.         HWND                        hWndFrame;
  1720.         int                         nWidthFrameDelta = 0;
  1721.         int                         nHeightFrameDelta = 0;
  1722.         int                         nHeightFrame = 0;
  1723.         int                         nWidthFrame = 0;
  1724.         ULONG                       ulFLag = SWP_MOVE;
  1725.         wxFrame*                    pFrame;
  1726.  
  1727.         pFrame = wxDynamicCast(this, wxFrame);
  1728.         hWndFrame = pFrame->GetFrame();
  1729.         ::WinQueryWindowRect(hWndFrame, &vRect);
  1730.         ::WinMapWindowPoints(hWndFrame, HWND_DESKTOP, (PPOINTL)&vRect, 2);
  1731.         vFRect = vRect;
  1732.         ::WinCalcFrameRect(hWndFrame, &vRect, TRUE);
  1733.         nWidthFrameDelta = ((vRect.xLeft - vFRect.xLeft) + (vFRect.xRight - vRect.xRight));
  1734.         nHeightFrameDelta = ((vRect.yBottom - vFRect.yBottom) + (vFRect.yTop - vRect.yTop));
  1735.         nWidthFrame = vFRect.xRight - vFRect.xLeft;
  1736.         nHeightFrame = vFRect.yTop - vFRect.yBottom;
  1737.  
  1738.         if (nWidth == vFRect.xRight - vFRect.xLeft &&
  1739.             nHeight == vFRect.yTop - vFRect.yBottom)
  1740.         {
  1741.             //
  1742.             // In this case the caller is not aware of OS/2's need to size both
  1743.             // the frame and it's client and is really only moving the window,
  1744.             // not resizeing it.  So move the frame, and back off the sizes
  1745.             // for a proper client fit.
  1746.             //
  1747.             ::WinSetWindowPos( hWndFrame
  1748.                               ,HWND_TOP
  1749.                               ,(LONG)nX - (vRect.xLeft - vFRect.xLeft)
  1750.                               ,(LONG)nY - (vRect.yBottom - vFRect.yBottom)
  1751.                               ,(LONG)0
  1752.                               ,(LONG)0
  1753.                               ,SWP_MOVE
  1754.                              );
  1755.             nX += (vRect.xLeft - vFRect.xLeft);
  1756.             nY += (vRect.yBottom - vFRect.yBottom);
  1757.             nWidth -= nWidthFrameDelta;
  1758.             nHeight -= nHeightFrameDelta;
  1759.         }
  1760.         else
  1761.         {
  1762.             if (nWidth > nWidthFrame - nHeightFrameDelta ||
  1763.                 nHeight > nHeightFrame - nHeightFrameDelta)
  1764.             {
  1765.                 ::WinSetWindowPos( hWndFrame
  1766.                                   ,HWND_TOP
  1767.                                   ,(LONG)nX - (vRect.xLeft - vFRect.xLeft)
  1768.                                   ,(LONG)nY - (vRect.yBottom - vFRect.yBottom)
  1769.                                   ,(LONG)nWidth + nWidthFrameDelta
  1770.                                   ,(LONG)nHeight + nHeightFrameDelta
  1771.                                   ,SWP_MOVE | SWP_SIZE
  1772.                                  );
  1773.             }
  1774.         }
  1775.     }
  1776.  
  1777.     ::WinSetWindowPos( GetHwnd()
  1778.                       ,HWND_TOP
  1779.                       ,(LONG)nX
  1780.                       ,(LONG)nY
  1781.                       ,(LONG)nWidth
  1782.                       ,(LONG)nHeight
  1783.                       ,SWP_SIZE | SWP_MOVE
  1784.                      );
  1785.     if (m_vWinSwp.cx == 0 && m_vWinSwp.cy == 0 && m_vWinSwp.fl == 0)
  1786.         //
  1787.         // Uninitialized
  1788.         //
  1789.         ::WinQueryWindowPos(GetHwnd(), &m_vWinSwp);
  1790.     else
  1791.     {
  1792.         int                         nYDiff = m_vWinSwp.cy - nHeight;
  1793.  
  1794.         //
  1795.         // Handle resizing of scrolled windows.  The target or window to
  1796.         // be scrolled is the owner (gets the scroll notificaitons).  The
  1797.         // parent is usually the parent frame of the scrolled panel window.
  1798.         // In order to show the scrollbars the target window will be shrunk
  1799.         // by the size of the scroll bar widths (20) and moved in the X and Y
  1800.         // directon.  That value will be computed as part of the diff for
  1801.         // moving the children.  Everytime the window is sized the
  1802.         // toplevel OnSize is going to resize the panel to fit the client
  1803.         // or the whole sizer and will need to me resized. This will send
  1804.         // a WM_SIZE out which will be intercepted by the ScrollHelper
  1805.         // which will cause the scrollbars to be displayed via the SetScrollbar
  1806.         // call in CWindow.
  1807.         //
  1808.         if ( IsKindOf(CLASSINFO(wxGenericScrolledWindow)) ||
  1809.              IsKindOf(CLASSINFO(wxScrolledWindow))
  1810.            )
  1811.         {
  1812.             int                     nAdjustWidth  = 0;
  1813.             int                     nAdjustHeight = 0;
  1814.             SWP                     vSwpScroll;
  1815.  
  1816.             if (GetScrollBarHorz() == NULLHANDLE ||
  1817.                 !WinIsWindowShowing(GetScrollBarHorz()))
  1818.                 nAdjustHeight = 0L;
  1819.             else
  1820.                 nAdjustHeight = 20L;
  1821.             if (GetScrollBarVert() == NULLHANDLE ||
  1822.                 !WinIsWindowShowing(GetScrollBarVert()))
  1823.                 nAdjustWidth = 0L;
  1824.             else
  1825.                 nAdjustWidth = 20L;
  1826.             ::WinQueryWindowPos(GetHWND(), &vSwpScroll);
  1827.             ::WinSetWindowPos( GetHWND()
  1828.                               ,HWND_TOP
  1829.                               ,vSwpScroll.x
  1830.                               ,vSwpScroll.y + nAdjustHeight
  1831.                               ,vSwpScroll.cx - nAdjustWidth
  1832.                               ,vSwpScroll.cy - nAdjustHeight
  1833.                               ,SWP_MOVE | SWP_SIZE
  1834.                              );
  1835.             nYDiff += nAdjustHeight;
  1836.         }
  1837.         MoveChildren(nYDiff);
  1838.         ::WinQueryWindowPos(GetHwnd(), &m_vWinSwp);
  1839.     }
  1840. } // end of wxWindowOS2::DoMoveWindow
  1841.  
  1842. //
  1843. // Set the size of the window: if the dimensions are positive, just use them,
  1844. // but if any of them is equal to -1, it means that we must find the value for
  1845. // it ourselves (unless sizeFlags contains wxSIZE_ALLOW_MINUS_ONE flag, in
  1846. // which case -1 is a valid value for x and y)
  1847. //
  1848. // If sizeFlags contains wxSIZE_AUTO_WIDTH/HEIGHT flags (default), we calculate
  1849. // the width/height to best suit our contents, otherwise we reuse the current
  1850. // width/height
  1851. //
  1852. void wxWindowOS2::DoSetSize(
  1853.   int                               nX
  1854. , int                               nY
  1855. , int                               nWidth
  1856. , int                               nHeight
  1857. , int                               nSizeFlags
  1858. )
  1859. {
  1860.     //
  1861.     // Get the current size and position...
  1862.     //
  1863.     int                             nCurrentX;
  1864.     int                             nCurrentY;
  1865.     int                             nCurrentWidth;
  1866.     int                             nCurrentHeight;
  1867.     wxSize                          vSize(-1, -1);
  1868.  
  1869.     GetPosition(&nCurrentX, &nCurrentY);
  1870.     GetSize(&nCurrentWidth, &nCurrentHeight);
  1871.  
  1872.     //
  1873.     // ... and don't do anything (avoiding flicker) if it's already ok
  1874.     //
  1875.     //
  1876.     // Must convert Y coords to test for equality under OS/2
  1877.     //
  1878.     int                             nY2 = nY;
  1879.     wxWindow*                       pParent = (wxWindow*)GetParent();
  1880.  
  1881.     if (nX == nCurrentX && nY2 == nCurrentY &&
  1882.         nWidth == nCurrentWidth && nHeight == nCurrentHeight)
  1883.     {
  1884.         return;
  1885.     }
  1886.  
  1887.     if (nX == -1 && !(nSizeFlags & wxSIZE_ALLOW_MINUS_ONE))
  1888.         nX = nCurrentX;
  1889.     if (nY == -1 && !(nSizeFlags & wxSIZE_ALLOW_MINUS_ONE))
  1890.         nY = nCurrentY;
  1891.  
  1892.     AdjustForParentClientOrigin(nX, nY, nSizeFlags);
  1893.  
  1894.     if (nWidth == -1)
  1895.     {
  1896.         if (nSizeFlags & wxSIZE_AUTO_WIDTH)
  1897.         {
  1898.             vSize  = DoGetBestSize();
  1899.             nWidth = vSize.x;
  1900.         }
  1901.         else
  1902.         {
  1903.             //
  1904.             // Just take the current one
  1905.             //
  1906.             nWidth = nCurrentWidth;
  1907.         }
  1908.     }
  1909.  
  1910.     if (nHeight == -1)
  1911.     {
  1912.         if (nSizeFlags & wxSIZE_AUTO_HEIGHT)
  1913.         {
  1914.             if (vSize.x == -1)
  1915.             {
  1916.                 vSize = DoGetBestSize();
  1917.             }
  1918.             nHeight = vSize.y;
  1919.         }
  1920.         else
  1921.         {
  1922.             // just take the current one
  1923.             nHeight = nCurrentHeight;
  1924.         }
  1925.     }
  1926.  
  1927.     DoMoveWindow( nX
  1928.                  ,nY
  1929.                  ,nWidth
  1930.                  ,nHeight
  1931.                 );
  1932. } // end of wxWindowOS2::DoSetSize
  1933.  
  1934. void wxWindowOS2::DoSetClientSize(
  1935.   int                               nWidth
  1936. , int                               nHeight
  1937. )
  1938. {
  1939.     POINTL                          vPoint;
  1940.     int                             nActualWidth;
  1941.     int                             nActualHeight;
  1942.     wxWindow*                       pParent = (wxWindow*)GetParent();
  1943.     HWND                            hParentWnd = (HWND)0;
  1944.  
  1945.     if (pParent)
  1946.         hParentWnd = (HWND)pParent->GetHWND();
  1947.  
  1948.     if (IsKindOf(CLASSINFO(wxFrame)))
  1949.     {
  1950.         wxFrame*                    pFrame = wxDynamicCast(this, wxFrame);
  1951.         HWND                        hFrame = pFrame->GetFrame();
  1952.         RECTL                       vRect;
  1953.         RECTL                       vRect2;
  1954.         RECTL                       vRect3;
  1955.  
  1956.         ::WinQueryWindowRect(GetHwnd(), &vRect2);
  1957.         ::WinQueryWindowRect(hFrame, &vRect);
  1958.         ::WinQueryWindowRect(hParentWnd, &vRect3);
  1959.         nActualWidth = vRect2.xRight - vRect2.xLeft - vRect.xRight + nWidth;
  1960.         nActualHeight = vRect2.yTop - vRect2.yBottom - vRect.yTop + nHeight;
  1961.  
  1962.         vPoint.x = vRect2.xLeft;
  1963.         vPoint.y = vRect2.yBottom;
  1964.         if (pParent)
  1965.         {
  1966.             vPoint.x -= vRect3.xLeft;
  1967.             vPoint.y -= vRect3.yBottom;
  1968.         }
  1969.     }
  1970.     else
  1971.     {
  1972.         int                         nX;
  1973.         int                         nY;
  1974.  
  1975.         GetPosition(&nX, &nY);
  1976.         nActualWidth  = nWidth;
  1977.         nActualHeight = nHeight;
  1978.  
  1979.         vPoint.x = nX;
  1980.         vPoint.y = nY;
  1981.     }
  1982.     DoMoveWindow( vPoint.x
  1983.                  ,vPoint.y
  1984.                  ,nActualWidth
  1985.                  ,nActualHeight
  1986.                 );
  1987.  
  1988.     wxSizeEvent                     vEvent( wxSize( nWidth
  1989.                                                    ,nHeight
  1990.                                                   )
  1991.                                            ,m_windowId
  1992.                                           );
  1993.  
  1994.     vEvent.SetEventObject(this);
  1995.     GetEventHandler()->ProcessEvent(vEvent);
  1996. } // end of wxWindowOS2::DoSetClientSize
  1997.  
  1998. wxPoint wxWindowOS2::GetClientAreaOrigin() const
  1999. {
  2000.     return wxPoint(0, 0);
  2001. } // end of wxWindowOS2::GetClientAreaOrigin
  2002.  
  2003. // ---------------------------------------------------------------------------
  2004. // text metrics
  2005. // ---------------------------------------------------------------------------
  2006.  
  2007. int wxWindowOS2::GetCharHeight() const
  2008. {
  2009.     HPS                             hPs;
  2010.     FONTMETRICS                     vFontMetrics;
  2011.  
  2012.     hPs = ::WinGetPS(GetHwnd());
  2013.  
  2014.     if(!GpiQueryFontMetrics(hPs, sizeof(FONTMETRICS), &vFontMetrics))
  2015.     {
  2016.         ::WinReleasePS(hPs);
  2017.         return (0);
  2018.     }
  2019.     ::WinReleasePS(hPs);
  2020.     return(vFontMetrics.lMaxAscender + vFontMetrics.lMaxDescender);
  2021. } // end of wxWindowOS2::GetCharHeight
  2022.  
  2023. int wxWindowOS2::GetCharWidth() const
  2024. {
  2025.     HPS                             hPs;
  2026.     FONTMETRICS                     vFontMetrics;
  2027.  
  2028.     hPs = ::WinGetPS(GetHwnd());
  2029.  
  2030.     if(!GpiQueryFontMetrics(hPs, sizeof(FONTMETRICS), &vFontMetrics))
  2031.     {
  2032.         ::WinReleasePS(hPs);
  2033.         return (0);
  2034.     }
  2035.     ::WinReleasePS(hPs);
  2036.     return(vFontMetrics.lAveCharWidth);
  2037. } // end of wxWindowOS2::GetCharWidth
  2038.  
  2039. void wxWindowOS2::GetTextExtent(
  2040.   const wxString&                   rString
  2041. , int*                              pX
  2042. , int*                              pY
  2043. , int*                              pDescent
  2044. , int*                              pExternalLeading
  2045. , const wxFont*                     pTheFont
  2046. ) const
  2047. {
  2048.     POINTL                          avPoint[TXTBOX_COUNT];
  2049.     POINTL                          vPtMin;
  2050.     POINTL                          vPtMax;
  2051.     int                             i;
  2052.     int                             l;
  2053.     FONTMETRICS                     vFM; // metrics structure
  2054.     BOOL                            bRc;
  2055.     char*                           pStr;
  2056.     ERRORID                         vErrorCode; // last error id code
  2057.     HPS                             hPS;
  2058.  
  2059.  
  2060.     hPS = ::WinGetPS(GetHwnd());
  2061.  
  2062.     l = rString.Length();
  2063.     if (l > 0L)
  2064.     {
  2065.         pStr = (PCH)rString.c_str();
  2066.  
  2067.         //
  2068.         // In world coordinates.
  2069.         //
  2070.         bRc = ::GpiQueryTextBox( hPS
  2071.                                 ,l
  2072.                                 ,pStr
  2073.                                 ,TXTBOX_COUNT // return maximum information
  2074.                                 ,avPoint      // array of coordinates points
  2075.                                );
  2076.         if (bRc)
  2077.         {
  2078.             vPtMin.x = avPoint[0].x;
  2079.             vPtMax.x = avPoint[0].x;
  2080.             vPtMin.y = avPoint[0].y;
  2081.             vPtMax.y = avPoint[0].y;
  2082.             for (i = 1; i < 4; i++)
  2083.             {
  2084.                 if(vPtMin.x > avPoint[i].x) vPtMin.x = avPoint[i].x;
  2085.                 if(vPtMin.y > avPoint[i].y) vPtMin.y = avPoint[i].y;
  2086.                 if(vPtMax.x < avPoint[i].x) vPtMax.x = avPoint[i].x;
  2087.                 if(vPtMax.y < avPoint[i].y) vPtMax.y = avPoint[i].y;
  2088.             }
  2089.             bRc = ::GpiQueryFontMetrics( hPS
  2090.                                         ,sizeof(FONTMETRICS)
  2091.                                         ,&vFM
  2092.                                        );
  2093.             if (!bRc)
  2094.             {
  2095.                 vPtMin.x = 0;
  2096.                 vPtMin.y = 0;
  2097.                 vPtMax.x = 0;
  2098.                 vPtMax.y = 0;
  2099.             }
  2100.         }
  2101.         else
  2102.         {
  2103.             vPtMin.x = 0;
  2104.             vPtMin.y = 0;
  2105.             vPtMax.x = 0;
  2106.             vPtMax.y = 0;
  2107.         }
  2108.     }
  2109.     else
  2110.     {
  2111.         vPtMin.x = 0;
  2112.         vPtMin.y = 0;
  2113.         vPtMax.x = 0;
  2114.         vPtMax.y = 0;
  2115.     }
  2116.     if (pX)
  2117.         *pX = (vPtMax.x - vPtMin.x + 1);
  2118.     if (pY)
  2119.         *pY = (vPtMax.y - vPtMin.y + 1);
  2120.     if (pDescent)
  2121.     {
  2122.         if (bRc)
  2123.             *pDescent = vFM.lMaxDescender;
  2124.         else
  2125.             *pDescent = 0;
  2126.     }
  2127.     if (pExternalLeading)
  2128.     {
  2129.         if (bRc)
  2130.             *pExternalLeading = vFM.lExternalLeading;
  2131.         else
  2132.             *pExternalLeading = 0;
  2133.     }
  2134.     ::WinReleasePS(hPS);
  2135. } // end of wxWindow::GetTextExtent
  2136.  
  2137. bool wxWindowOS2::IsMouseInWindow() const
  2138. {
  2139.     //
  2140.     // Get the mouse position
  2141.     POINTL                          vPt;
  2142.  
  2143.     ::WinQueryPointerPos(HWND_DESKTOP, &vPt);
  2144.  
  2145.     //
  2146.     // Find the window which currently has the cursor and go up the window
  2147.     // chain until we find this window - or exhaust it
  2148.     //
  2149.     HWND                            hWnd = ::WinWindowFromPoint(HWND_DESKTOP, &vPt, TRUE);
  2150.  
  2151.     while (hWnd && (hWnd != GetHwnd()))
  2152.         hWnd = ::WinQueryWindow(hWnd, QW_PARENT);
  2153.  
  2154.     return hWnd != NULL;
  2155. } // end of wxWindowOS2::IsMouseInWindow
  2156.  
  2157. #if wxUSE_CARET && WXWIN_COMPATIBILITY
  2158. // ---------------------------------------------------------------------------
  2159. // Caret manipulation
  2160. // ---------------------------------------------------------------------------
  2161.  
  2162. void wxWindowOS2::CreateCaret(
  2163.   int                               nWidth
  2164. , int                               nHeight
  2165. )
  2166. {
  2167.     SetCaret(new wxCaret( this
  2168.                          ,nWidth
  2169.                          ,nHeight
  2170.                         ));
  2171. } // end of wxWindowOS2::CreateCaret
  2172.  
  2173. void wxWindowOS2::CreateCaret(
  2174.   const wxBitmap*                   pBitmap
  2175. )
  2176. {
  2177.     wxFAIL_MSG("not implemented");
  2178. } // end of wxWindowOS2::CreateCaret
  2179.  
  2180. void wxWindowOS2::ShowCaret(
  2181.   bool                              bShow
  2182. )
  2183. {
  2184.     wxCHECK_RET( m_caret, "no caret to show" );
  2185.  
  2186.     m_caret->Show(bShow);
  2187. } // end of wxWindowOS2::ShowCaret
  2188.  
  2189. void wxWindowOS2::DestroyCaret()
  2190. {
  2191.     SetCaret(NULL);
  2192. } // end of wxWindowOS2::DestroyCaret
  2193.  
  2194. void wxWindowOS2::SetCaretPos(
  2195.   int                               nX
  2196. , int                               nY)
  2197. {
  2198.     wxCHECK_RET( m_caret, "no caret to move" );
  2199.  
  2200.     m_caret->Move( nX
  2201.                   ,nY
  2202.                  );
  2203. } // end of wxWindowOS2::SetCaretPos
  2204.  
  2205. void wxWindowOS2::GetCaretPos(
  2206.   int*                              pX
  2207. , int*                              pY
  2208. ) const
  2209. {
  2210.     wxCHECK_RET( m_caret, "no caret to get position of" );
  2211.  
  2212.     m_caret->GetPosition( pX
  2213.                          ,pY
  2214.                         );
  2215. } // end of wxWindowOS2::GetCaretPos
  2216.  
  2217. #endif //wxUSE_CARET
  2218.  
  2219. // ---------------------------------------------------------------------------
  2220. // popup menu
  2221. // ---------------------------------------------------------------------------
  2222. //
  2223. #if wxUSE_MENUS_NATIVE
  2224. static void wxYieldForCommandsOnly()
  2225. {
  2226.     //
  2227.     // Peek all WM_COMMANDs (it will always return WM_QUIT too but we don't
  2228.     // want to process it here)
  2229.     //
  2230.     QMSG                            vMsg;
  2231.  
  2232.     while (::WinPeekMsg(vHabmain, &vMsg, (HWND)0, WM_COMMAND, WM_COMMAND, PM_REMOVE)
  2233.            && vMsg.msg != WM_QUIT)
  2234.     {
  2235.         wxTheApp->DoMessage((WXMSG*)&vMsg);
  2236.     }
  2237.     if (vMsg.msg == WM_QUIT)
  2238.         ::WinPostMsg(NULL, WM_QUIT, 0, 0);
  2239. }
  2240. #endif // wxUSE_MENUS_NATIVE
  2241.  
  2242. #if wxUSE_MENUS_NATIVE
  2243. bool wxWindowOS2::DoPopupMenu(
  2244.   wxMenu*                           pMenu
  2245. , int                               nX
  2246. , int                               nY
  2247. )
  2248. {
  2249.     HWND                            hWndOwner = GetHwnd();
  2250.     HWND                            hWndParent = GetHwnd();
  2251.     HWND                            hMenu = GetHmenuOf(pMenu);
  2252.     bool                            bIsWaiting = TRUE;
  2253.  
  2254.     pMenu->SetInvokingWindow(this);
  2255.     pMenu->UpdateUI();
  2256.  
  2257.     DoClientToScreen( &nX
  2258.                      ,&nY
  2259.                     );
  2260.     wxCurrentPopupMenu = pMenu;
  2261.  
  2262.     ::WinPopupMenu( hWndParent
  2263.                    ,hWndOwner
  2264.                    ,hMenu
  2265.                    ,nX
  2266.                    ,nY
  2267.                    ,0L
  2268.                    ,PU_HCONSTRAIN | PU_VCONSTRAIN | PU_MOUSEBUTTON1 | PU_KEYBOARD
  2269.                   );
  2270.  
  2271.     while(bIsWaiting)
  2272.     {
  2273.         QMSG                            vMsg;
  2274.         BOOL                            bRc = ::WinGetMsg(vHabmain, &vMsg, HWND(NULL), 0, 0);
  2275.  
  2276.         if (vMsg.msg == WM_MENUEND || vMsg.msg == WM_COMMAND)
  2277.         {
  2278.             bIsWaiting = FALSE;
  2279.         }
  2280.         ::WinDispatchMsg(vHabmain, (PQMSG)&vMsg);
  2281.  
  2282.     }
  2283.     wxCurrentPopupMenu = NULL;
  2284.     pMenu->SetInvokingWindow(NULL);
  2285.     return TRUE;
  2286. } // end of wxWindowOS2::DoPopupMenu
  2287. #endif // wxUSE_MENUS_NATIVE
  2288.  
  2289. // ===========================================================================
  2290. // pre/post message processing
  2291. // ===========================================================================
  2292.  
  2293. MRESULT wxWindowOS2::OS2DefWindowProc(
  2294.   WXUINT                            uMsg
  2295. , WXWPARAM                          wParam
  2296. , WXLPARAM                          lParam
  2297. )
  2298. {
  2299.     if (m_fnOldWndProc)
  2300.         return (MRESULT)m_fnOldWndProc(GetHWND(), uMsg, (MPARAM)wParam, (MPARAM)lParam);
  2301.     else
  2302.         return ::WinDefWindowProc(GetHWND(), uMsg, (MPARAM)wParam, (MPARAM)lParam);
  2303. } // end of wxWindowOS2::OS2DefWindowProc
  2304.  
  2305. bool wxWindowOS2::OS2ProcessMessage(
  2306.   WXMSG*                            pMsg
  2307. )
  2308. {
  2309. // wxUniversal implements tab traversal itself
  2310. #ifndef __WXUNIVERSAL__
  2311.     QMSG*                           pQMsg = (QMSG*)pMsg;
  2312.  
  2313.     if (m_hWnd != 0 && (GetWindowStyleFlag() & wxTAB_TRAVERSAL))
  2314.     {
  2315.         //
  2316.         // Intercept dialog navigation keys
  2317.         //
  2318.         bool                        bProcess = TRUE;
  2319.         USHORT                      uKeyFlags = SHORT1FROMMP(pQMsg->mp1);
  2320.  
  2321.         if (uKeyFlags & KC_KEYUP)
  2322.             bProcess = FALSE;
  2323.  
  2324.         if (uKeyFlags & KC_ALT)
  2325.             bProcess = FALSE;
  2326.  
  2327.         if (!(uKeyFlags & KC_VIRTUALKEY))
  2328.             bProcess = FALSE;
  2329.  
  2330.         if (bProcess)
  2331.         {
  2332.             bool                    bCtrlDown = IsCtrlDown();
  2333.             bool                    bShiftDown = IsShiftDown();
  2334.  
  2335.             //
  2336.             // WM_QUERYDLGCODE: ask the control if it wants the key for itself,
  2337.             // don't process it if it's the case (except for Ctrl-Tab/Enter
  2338.             // combinations which are always processed)
  2339.             //
  2340.             ULONG                   ulDlgCode = 0;
  2341.  
  2342.             if (!bCtrlDown)
  2343.             {
  2344.                 ulDlgCode = (ULONG)::WinSendMsg(pQMsg->hwnd, WM_QUERYDLGCODE, pQMsg, 0);
  2345.             }
  2346.  
  2347.             bool                    bForward = TRUE;
  2348.             bool                    bWindowChange = FALSE;
  2349.  
  2350.             switch (SHORT2FROMMP(pQMsg->mp2))
  2351.             {
  2352.                 //
  2353.                 // Going to make certain assumptions about specific types of controls
  2354.                 // here, so we may have to alter some things later if they prove invalid
  2355.                 //
  2356.                 case VK_TAB:
  2357.                     //
  2358.                     // Shift tabl will always be a nav-key but tabs may be wanted
  2359.                     //
  2360.                     if (!bShiftDown)
  2361.                     {
  2362.                         bProcess = FALSE;
  2363.                     }
  2364.                     else
  2365.                     {
  2366.                         //
  2367.                         // Entry Fields want tabs for themselve usually
  2368.                         //
  2369.                         switch (ulDlgCode)
  2370.                         {
  2371.                             case DLGC_ENTRYFIELD:
  2372.                             case DLGC_MLE:
  2373.                                 bProcess = TRUE;
  2374.                                 break;
  2375.  
  2376.                             default:
  2377.                                 bProcess = FALSE;
  2378.                         }
  2379.  
  2380.                         //
  2381.                         // Ctrl-Tab cycles thru notebook pages
  2382.                         //
  2383.                         bWindowChange = bCtrlDown;
  2384.                         bForward = !bShiftDown;
  2385.                     }
  2386.                     break;
  2387.  
  2388.                 case VK_UP:
  2389.                 case VK_LEFT:
  2390.                     if (bCtrlDown)
  2391.                         bProcess = FALSE;
  2392.                     else
  2393.                         bForward = FALSE;
  2394.                     break;
  2395.  
  2396.                 case VK_DOWN:
  2397.                 case VK_RIGHT:
  2398.                     if (bCtrlDown)
  2399.                         bProcess = FALSE;
  2400.                     break;
  2401.  
  2402.                 case VK_ENTER:
  2403.                     {
  2404.                         if (bCtrlDown)
  2405.                         {
  2406.                             //
  2407.                             // ctrl-enter is not processed
  2408.                             //
  2409.                             return FALSE;
  2410.                         }
  2411.                         else if (ulDlgCode & DLGC_BUTTON)
  2412.                         {
  2413.                             //
  2414.                             // buttons want process Enter themselevs
  2415.                             //
  2416.                             bProcess = FALSE;
  2417.                         }
  2418.                         else
  2419.                         {
  2420.                             wxButton*   pBtn = wxDynamicCast( GetDefaultItem()
  2421.                                                              ,wxButton
  2422.                                                             );
  2423.  
  2424.                             if (pBtn && pBtn->IsEnabled())
  2425.                             {
  2426.                                 //
  2427.                                 // If we do have a default button, do press it
  2428.                                 //
  2429.                                 pBtn->OS2Command(BN_CLICKED, 0 /* unused */);
  2430.                                 return TRUE;
  2431.                             }
  2432.                             else if (!IsTopLevel())
  2433.                             {
  2434.                                 //
  2435.                                 // if not a top level window, let parent
  2436.                                 // handle it
  2437.                                 //
  2438.                                 return FALSE;
  2439.                             }
  2440.                             // else: but if it does not it makes sense to make
  2441.                             //       it work like a TAB - and that's what we do.
  2442.                             //       Note that Ctrl-Enter always works this way.
  2443.                         }
  2444.                     }
  2445.                     break;
  2446.  
  2447.                 default:
  2448.                     bProcess = FALSE;
  2449.             }
  2450.  
  2451.             if (bProcess)
  2452.             {
  2453.                 wxNavigationKeyEvent    vEvent;
  2454.  
  2455.                 vEvent.SetDirection(bForward);
  2456.                 vEvent.SetWindowChange(bWindowChange);
  2457.                 vEvent.SetEventObject(this);
  2458.  
  2459.                 if (GetEventHandler()->ProcessEvent(vEvent))
  2460.                 {
  2461.                     wxButton*       pBtn = wxDynamicCast(FindFocus(), wxButton);
  2462.  
  2463.                     if (pBtn)
  2464.                     {
  2465.                         //
  2466.                         // The button which has focus should be default
  2467.                         //
  2468.                         pBtn->SetDefault();
  2469.                     }
  2470.                     return TRUE;
  2471.                 }
  2472.             }
  2473.         }
  2474.         //
  2475.         // Let Dialogs process
  2476.         //
  2477.         if (::WinSendMsg(pQMsg->hwnd, WM_QUERYDLGCODE, pQMsg, 0));
  2478.             return TRUE;
  2479.     }
  2480. #else
  2481.     pMsg = pMsg; // just shut up the compiler
  2482. #endif // __WXUNIVERSAL__
  2483.  
  2484.     return FALSE;
  2485. } // end of wxWindowOS2::OS2ProcessMessage
  2486.  
  2487. bool wxWindowOS2::OS2TranslateMessage(
  2488.   WXMSG*                            pMsg
  2489. )
  2490. {
  2491. #if wxUSE_ACCEL && !defined(__WXUNIVERSAL__)
  2492.   return m_acceleratorTable.Translate(m_hWnd, pMsg);
  2493. #else
  2494.   pMsg = pMsg;
  2495.   return FALSE;
  2496. #endif //wxUSE_ACCEL
  2497. } // end of wxWindowOS2::OS2TranslateMessage
  2498.  
  2499. bool wxWindowOS2::OS2ShouldPreProcessMessage(
  2500.   WXMSG*                            pMsg
  2501. )
  2502. {
  2503.     // preprocess all messages by default
  2504.     return TRUE;
  2505. } // end of wxWindowOS2::OS2ShouldPreProcessMessage
  2506.  
  2507. // ---------------------------------------------------------------------------
  2508. // message params unpackers
  2509. // ---------------------------------------------------------------------------
  2510.  
  2511. void wxWindowOS2::UnpackCommand(
  2512.   WXWPARAM                          wParam
  2513. , WXLPARAM                          lParam
  2514. , WORD*                             pId
  2515. , WXHWND*                           phWnd
  2516. , WORD*                             pCmd
  2517. )
  2518. {
  2519.     *pId = LOWORD(wParam);
  2520.     *phWnd = NULL;  // or may be GetHWND() ?
  2521.     *pCmd = LOWORD(lParam);
  2522. } // end of wxWindowOS2::UnpackCommand
  2523.  
  2524. void wxWindowOS2::UnpackActivate(
  2525.   WXWPARAM                          wParam
  2526. , WXLPARAM                          lParam
  2527. , WXWORD*                           pState
  2528. , WXHWND*                           phWnd
  2529. )
  2530. {
  2531.     *pState     = LOWORD(wParam);
  2532.     *phWnd      = (WXHWND)lParam;
  2533. } // end of wxWindowOS2::UnpackActivate
  2534.  
  2535. void wxWindowOS2::UnpackScroll(
  2536.   WXWPARAM                          wParam
  2537. , WXLPARAM                          lParam
  2538. , WXWORD*                           pCode
  2539. , WXWORD*                           pPos
  2540. , WXHWND*                           phWnd
  2541. )
  2542. {
  2543.     ULONG                           ulId;
  2544.     HWND                            hWnd;
  2545.  
  2546.     ulId    = (ULONG)LONGFROMMP(wParam);
  2547.     hWnd = ::WinWindowFromID(GetHwnd(), ulId);
  2548.     if (hWnd == m_hWndScrollBarHorz || hWnd == m_hWndScrollBarVert)
  2549.         *phWnd = NULLHANDLE;
  2550.     else
  2551.         *phWnd = hWnd;
  2552.  
  2553.     *pPos  = SHORT1FROMMP(lParam);
  2554.     *pCode = SHORT2FROMMP(lParam);
  2555. } // end of wxWindowOS2::UnpackScroll
  2556.  
  2557. void wxWindowOS2::UnpackMenuSelect(
  2558.   WXWPARAM                          wParam
  2559. , WXLPARAM                          lParam
  2560. , WXWORD*                           pItem
  2561. , WXWORD*                           pFlags
  2562. , WXHMENU*                          phMenu
  2563. )
  2564. {
  2565.     *pItem = (WXWORD)LOWORD(wParam);
  2566.     *pFlags = HIWORD(wParam);
  2567.     *phMenu = (WXHMENU)lParam;
  2568. } // end of wxWindowOS2::UnpackMenuSelect
  2569.  
  2570. // ---------------------------------------------------------------------------
  2571. // Main wxWindows window proc and the window proc for wxWindow
  2572. // ---------------------------------------------------------------------------
  2573.  
  2574. //
  2575. // Hook for new window just as it's being created, when the window isn't yet
  2576. // associated with the handle
  2577. //
  2578. wxWindowOS2*                         wxWndHook = NULL;
  2579.  
  2580. //
  2581. // Main window proc
  2582. //
  2583. MRESULT EXPENTRY wxWndProc(
  2584.   HWND                              hWnd
  2585. , ULONG                             ulMsg
  2586. , MPARAM                            wParam
  2587. , MPARAM                            lParam
  2588. )
  2589. {
  2590.     //
  2591.     // Trace all ulMsgs - useful for the debugging
  2592.     //
  2593. #ifdef __WXDEBUG__
  2594.     wxLogTrace(wxTraceMessages, wxT("Processing %s(wParam=%8lx, lParam=%8lx)"),
  2595.                wxGetMessageName(ulMsg), wParam, lParam);
  2596. #endif // __WXDEBUG__
  2597.  
  2598.     wxWindowOS2*                    pWnd = wxFindWinFromHandle((WXHWND)hWnd);
  2599.  
  2600.     //
  2601.     // When we get the first message for the HWND we just created, we associate
  2602.     // it with wxWindow stored in wxWndHook
  2603.     //
  2604.     if (!pWnd && wxWndHook)
  2605.     {
  2606.         wxAssociateWinWithHandle(hWnd, wxWndHook);
  2607.         pWnd = wxWndHook;
  2608.         wxWndHook = NULL;
  2609.         pWnd->SetHWND((WXHWND)hWnd);
  2610.     }
  2611.  
  2612.     MRESULT                         rc = (MRESULT)0;
  2613.  
  2614.  
  2615.     //
  2616.     // Stop right here if we don't have a valid handle in our wxWindow object.
  2617.     //
  2618.     if (pWnd && !pWnd->GetHWND())
  2619.     {
  2620.         pWnd->SetHWND((WXHWND) hWnd);
  2621.         rc = pWnd->OS2DefWindowProc(ulMsg, wParam, lParam );
  2622.         pWnd->SetHWND(0);
  2623.     }
  2624.     else
  2625.     {
  2626.         if (pWnd)
  2627.         {
  2628.             rc = pWnd->OS2WindowProc(ulMsg, wParam, lParam);
  2629.             if ( (pWnd->GetScrollBarHorz() != NULLHANDLE ||
  2630.                   pWnd->GetScrollBarVert() != NULLHANDLE) &&
  2631.                   ulMsg == WM_PAINT)
  2632.             {
  2633.                 if (pWnd->GetScrollBarHorz() != NULLHANDLE)
  2634.                     ::WinInvalidateRect(pWnd->GetScrollBarHorz(), NULL, TRUE);
  2635.                 if (pWnd->GetScrollBarVert() != NULLHANDLE)
  2636.                     ::WinInvalidateRect(pWnd->GetScrollBarVert(), NULL, TRUE);
  2637.             }
  2638.         }
  2639.         else
  2640.             rc = ::WinDefWindowProc(hWnd, ulMsg, wParam, lParam);
  2641.     }
  2642.  
  2643.     return rc;
  2644. } // end of wxWndProc
  2645.  
  2646. //
  2647. // We will add (or delete) messages we need to handle at this default
  2648. // level as we go
  2649. //
  2650. MRESULT wxWindowOS2::OS2WindowProc(
  2651.   WXUINT                            uMsg
  2652. , WXWPARAM                          wParam
  2653. , WXLPARAM                          lParam
  2654. )
  2655. {
  2656.     //
  2657.     // Did we process the uMsg?
  2658.     //
  2659.     bool                            bProcessed = FALSE;
  2660.     MRESULT                         mResult;
  2661.  
  2662.     //
  2663.     // For most messages we should return 0 when we do process the message
  2664.     //
  2665.     mResult = (MRESULT)0;
  2666.  
  2667.     switch (uMsg)
  2668.     {
  2669.         case WM_CREATE:
  2670.             {
  2671.                 bool                bMayCreate;
  2672.  
  2673.                 bProcessed = HandleCreate( (WXLPCREATESTRUCT)lParam
  2674.                                           ,&bMayCreate
  2675.                                          );
  2676.                 if (bProcessed)
  2677.                 {
  2678.                     //
  2679.                     // Return 0 to bAllow window creation
  2680.                     //
  2681.                     mResult = (MRESULT)(bMayCreate ? 0 : -1);
  2682.                 }
  2683.             }
  2684.             break;
  2685.  
  2686.         case WM_DESTROY:
  2687.              HandleDestroy();
  2688.              bProcessed = TRUE;
  2689.              break;
  2690.  
  2691.         case WM_MOVE:
  2692.             bProcessed = HandleMove( LOWORD(lParam)
  2693.                                     ,HIWORD(lParam)
  2694.                                    );
  2695.             break;
  2696.  
  2697.         case WM_SIZE:
  2698.             bProcessed = HandleSize( LOWORD(lParam)
  2699.                                     ,HIWORD(lParam)
  2700.                                     ,(WXUINT)wParam
  2701.                                    );
  2702.             break;
  2703.  
  2704.         case WM_WINDOWPOSCHANGED:
  2705.  
  2706.             //
  2707.             // Dialogs under OS/2 do not get WM_SIZE events at all.
  2708.             // Instead they get this, which can function much like WM_SIZE
  2709.             // PSWP contains the new sizes and positioning, PSWP+1 the old
  2710.             // We use this because ADJUSTWINDOWPOS comes BEFORE the new
  2711.             // position is added and our auto layout does a WinQueryWindowRect
  2712.             // to get the CURRENT client size.  That is the size used to position
  2713.             // child controls, so we need to already be sized
  2714.             // in order to get the child controls positoned properly.
  2715.             //
  2716.             if (IsKindOf(CLASSINFO(wxDialog)) || IsKindOf(CLASSINFO(wxFrame)))
  2717.             {
  2718.                 PSWP                pSwp = (PSWP)PVOIDFROMMP(wParam);
  2719.                 PSWP                pSwp2 = pSwp++;
  2720.  
  2721.                 if (!(pSwp->cx == pSwp2->cx &&
  2722.                       pSwp->cy == pSwp2->cy))
  2723.                     bProcessed = HandleSize( pSwp->cx
  2724.                                             ,pSwp->cy
  2725.                                             ,(WXUINT)lParam
  2726.                                            );
  2727.                 if (IsKindOf(CLASSINFO(wxFrame)))
  2728.                 {
  2729.                     wxFrame*            pFrame = wxDynamicCast(this, wxFrame);
  2730.  
  2731.                     if (pFrame)
  2732.                     {
  2733.                         if (pFrame->GetStatusBar())
  2734.                             pFrame->PositionStatusBar();
  2735.                         if (pFrame->GetToolBar())
  2736.                             pFrame->PositionToolBar();
  2737.                     }
  2738.                 }
  2739.             }
  2740.             break;
  2741.  
  2742.         case WM_ACTIVATE:
  2743.             {
  2744.                 WXWORD              wState;
  2745.                 WXHWND              hWnd;
  2746.  
  2747.                 UnpackActivate( wParam
  2748.                                ,lParam
  2749.                                ,&wState
  2750.                                ,&hWnd
  2751.                               );
  2752.  
  2753.                 bProcessed = HandleActivate( wState
  2754.                                             ,(WXHWND)hWnd
  2755.                                            );
  2756.                 bProcessed = FALSE;
  2757.             }
  2758.             break;
  2759.  
  2760.         case WM_SETFOCUS:
  2761.             if (SHORT1FROMMP((MPARAM)lParam) == TRUE)
  2762.                 bProcessed = HandleSetFocus((WXHWND)(HWND)wParam);
  2763.             else
  2764.                 bProcessed = HandleKillFocus((WXHWND)(HWND)wParam);
  2765.             break;
  2766.  
  2767.         case WM_PAINT:
  2768.             bProcessed = HandlePaint();
  2769.             break;
  2770.  
  2771.         case WM_CLOSE:
  2772.             //
  2773.             // Don't let the DefWindowProc() destroy our window - we'll do it
  2774.             // ourselves in ~wxWindow
  2775.             //
  2776.             bProcessed = TRUE;
  2777.             mResult = (MRESULT)TRUE;
  2778.             break;
  2779.  
  2780.         case WM_SHOW:
  2781.             bProcessed = HandleShow(wParam != 0, (int)lParam);
  2782.             break;
  2783.  
  2784.         //
  2785.         // Under OS2 PM Joysticks are treated just like mouse events
  2786.         // The "Motion" events will be prevelent in joysticks
  2787.         //
  2788.         case WM_MOUSEMOVE:
  2789.         case WM_BUTTON1DOWN:
  2790.         case WM_BUTTON1UP:
  2791.         case WM_BUTTON1DBLCLK:
  2792.         case WM_BUTTON1MOTIONEND:
  2793.         case WM_BUTTON1MOTIONSTART:
  2794.         case WM_BUTTON2DOWN:
  2795.         case WM_BUTTON2UP:
  2796.         case WM_BUTTON2DBLCLK:
  2797.         case WM_BUTTON2MOTIONEND:
  2798.         case WM_BUTTON2MOTIONSTART:
  2799.         case WM_BUTTON3DOWN:
  2800.         case WM_BUTTON3UP:
  2801.         case WM_BUTTON3DBLCLK:
  2802.         case WM_BUTTON3MOTIONEND:
  2803.         case WM_BUTTON3MOTIONSTART:
  2804.             {
  2805.                 if (uMsg == WM_BUTTON1DOWN && AcceptsFocus())
  2806.                     SetFocus();
  2807.  
  2808.                 short               nX = LOWORD(wParam);
  2809.                 short               nY = HIWORD(wParam);
  2810.  
  2811.                 //
  2812.                 // Redirect the event to a static control if necessary
  2813.                 //
  2814.                 if (this == GetCapture())
  2815.                 {
  2816.                     bProcessed = HandleMouseEvent( uMsg
  2817.                                                   ,nX
  2818.                                                   ,nY
  2819.                                                   ,(WXUINT)SHORT1FROMMP(wParam)
  2820.                                                  );
  2821.                 }
  2822.                 else
  2823.                 {
  2824.                     wxWindow*       pWin = FindWindowForMouseEvent( this
  2825.                                                                    ,&nX
  2826.                                                                    ,&nY
  2827.                                                                   );
  2828.                     if (!pWin->IsOfStandardClass())
  2829.                     {
  2830.                         if (uMsg == WM_BUTTON1DOWN && pWin->AcceptsFocus() )
  2831.                             pWin->SetFocus();
  2832.                     }
  2833.                     bProcessed = pWin->HandleMouseEvent( uMsg
  2834.                                                         ,nX
  2835.                                                         ,nY
  2836.                                                         ,(WXUINT)SHORT1FROMMP(wParam)
  2837.                                                        );
  2838.                 }
  2839.             }
  2840.             break;
  2841.  
  2842.         case WM_SYSCOMMAND:
  2843.             bProcessed = HandleSysCommand(wParam, lParam);
  2844.             break;
  2845.  
  2846.         case WM_COMMAND:
  2847.             {
  2848.                 WORD id, cmd;
  2849.                 WXHWND hwnd;
  2850.                 UnpackCommand(wParam, lParam, &id, &hwnd, &cmd);
  2851.  
  2852.                 bProcessed = HandleCommand(id, cmd, hwnd);
  2853.             }
  2854.             break;
  2855.  
  2856.             //
  2857.             // For these messages we must return TRUE if process the message
  2858.             //
  2859.         case WM_DRAWITEM:
  2860.         case WM_MEASUREITEM:
  2861.             {
  2862.                 int                 nIdCtrl = (UINT)wParam;
  2863.  
  2864.                 if ( uMsg == WM_DRAWITEM )
  2865.                 {
  2866.                     bProcessed = OS2OnDrawItem(nIdCtrl,
  2867.                                               (WXDRAWITEMSTRUCT *)lParam);
  2868.                 }
  2869.                 else
  2870.                 {
  2871.                     return MRFROMLONG(OS2OnMeasureItem( nIdCtrl
  2872.                                                        ,(WXMEASUREITEMSTRUCT *)lParam
  2873.                                                       ));
  2874.                 }
  2875.  
  2876.                 if ( bProcessed )
  2877.                     mResult = (MRESULT)TRUE;
  2878.             }
  2879.             break;
  2880.  
  2881.         case WM_QUERYDLGCODE:
  2882.             if (!IsOfStandardClass())
  2883.             {
  2884.                 if ( m_lDlgCode )
  2885.                 {
  2886.                     mResult = (MRESULT)m_lDlgCode;
  2887.                     bProcessed = TRUE;
  2888.                 }
  2889.             }
  2890.             //
  2891.             //else: get the dlg code from the DefWindowProc()
  2892.             //
  2893.             break;
  2894.  
  2895.         //
  2896.         // In OS/2 PM all keyboard events are of the WM_CHAR type.  Virtual key and key-up
  2897.         // and key-down events are obtained from the WM_CHAR params.
  2898.         //
  2899.         case WM_CHAR:
  2900.             {
  2901.                 USHORT                  uKeyFlags = SHORT1FROMMP((MPARAM)wParam);
  2902.  
  2903.                 if (uKeyFlags & KC_KEYUP)
  2904.                 {
  2905.                     //TODO: check if the cast to WXWORD isn't causing trouble
  2906.                     bProcessed = HandleKeyUp(wParam, lParam);
  2907.                     break;
  2908.                 }
  2909.                 else // keydown event
  2910.                 {
  2911.                     m_bLastKeydownProcessed = FALSE;
  2912.                     //
  2913.                     // If this has been processed by an event handler,
  2914.                     // return 0 now (we've handled it). DON't RETURN
  2915.                     // we still need to process further
  2916.                     //
  2917.                     m_bLastKeydownProcessed = HandleKeyDown(wParam, lParam);
  2918.                     if (uKeyFlags & KC_VIRTUALKEY)
  2919.                     {
  2920.                         USHORT          uVk = SHORT2FROMMP((MPARAM)lParam);
  2921.  
  2922.                         //
  2923.                         // We consider these message "not interesting" to OnChar
  2924.                         //
  2925.                         switch(uVk)
  2926.                         {
  2927.                             case VK_SHIFT:
  2928.                             case VK_CTRL:
  2929.                             case VK_MENU:
  2930.                             case VK_CAPSLOCK:
  2931.                             case VK_NUMLOCK:
  2932.                             case VK_SCRLLOCK:
  2933.                                 bProcessed = TRUE;
  2934.                                 break;
  2935.  
  2936.                             // Avoid duplicate messages to OnChar for these ASCII keys: they
  2937.                             // will be translated by TranslateMessage() and received in WM_CHAR
  2938.                             case VK_ESC:
  2939.                             case VK_ENTER:
  2940.                             case VK_BACKSPACE:
  2941.                             case VK_TAB:
  2942.                                 // But set processed to FALSE, not TRUE to still pass them to
  2943.                                 // the control's default window proc - otherwise built-in
  2944.                                 // keyboard handling won't work
  2945.                                 bProcessed = FALSE;
  2946.                                 break;
  2947.  
  2948.                             default:
  2949.                                 bProcessed = HandleChar(wParam, lParam);
  2950.                          }
  2951.                          break;
  2952.                     }
  2953.                     else // WM_CHAR -- Always an ASCII character
  2954.                     {
  2955.                         if (m_bLastKeydownProcessed)
  2956.                         {
  2957.                             //
  2958.                             // The key was handled in the EVT_KEY_DOWN and handling
  2959.                             // a key in an EVT_KEY_DOWN handler is meant, by
  2960.                             // design, to prevent EVT_CHARs from happening
  2961.                             //
  2962.                             m_bLastKeydownProcessed = FALSE;
  2963.                             bProcessed = TRUE;
  2964.                         }
  2965.                         else // do generate a CHAR event
  2966.                         {
  2967.                             bProcessed = HandleChar(wParam, lParam, TRUE);
  2968.                             break;
  2969.                         }
  2970.                     }
  2971.                 }
  2972.             }
  2973.  
  2974.         case WM_HSCROLL:
  2975.         case WM_VSCROLL:
  2976.             {
  2977.                 WXWORD              wCode;
  2978.                 WXWORD              wPos;
  2979.                 WXHWND              hWnd;
  2980.                 UnpackScroll( wParam
  2981.                              ,lParam
  2982.                              ,&wCode
  2983.                              ,&wPos
  2984.                              ,&hWnd
  2985.                             );
  2986.  
  2987.                 bProcessed = OS2OnScroll( uMsg == WM_HSCROLL ? wxHORIZONTAL
  2988.                                                              : wxVERTICAL
  2989.                                          ,wCode
  2990.                                          ,wPos
  2991.                                          ,hWnd
  2992.                                         );
  2993.             }
  2994.             break;
  2995.  
  2996.         case WM_CONTROL:
  2997.             switch(SHORT2FROMMP(wParam))
  2998.             {
  2999.                 case BN_PAINT:
  3000.                     {
  3001.                         HWND                hWnd = ::WinWindowFromID((HWND)GetHwnd(), SHORT1FROMMP(wParam));
  3002.                         wxWindowOS2*        pWin = wxFindWinFromHandle(hWnd);
  3003.  
  3004.                         if (!pWin)
  3005.                         {
  3006.                             bProcessed = FALSE;
  3007.                             break;
  3008.                         }
  3009.                         if (pWin->IsKindOf(CLASSINFO(wxBitmapButton)))
  3010.                         {
  3011.                             wxBitmapButton*     pBitmapButton = wxDynamicCast(pWin, wxBitmapButton);
  3012.  
  3013.                             pBitmapButton->OS2OnDraw((WXDRAWITEMSTRUCT *)lParam);
  3014.                         }
  3015.                         return 0;
  3016.                     }
  3017.                     break;
  3018.  
  3019.                 case BKN_PAGESELECTEDPENDING:
  3020.                     {
  3021.                         PPAGESELECTNOTIFY  pPage = (PPAGESELECTNOTIFY)lParam;
  3022.  
  3023.                         if ((pPage->ulPageIdNew != pPage->ulPageIdCur) &&
  3024.                             (pPage->ulPageIdNew > 0L && pPage->ulPageIdCur > 0L))
  3025.                         {
  3026.                             wxWindowOS2*        pWin = wxFindWinFromHandle(pPage->hwndBook);
  3027.                             wxNotebookEvent     vEvent( wxEVT_COMMAND_NOTEBOOK_PAGE_CHANGED
  3028.                                                        ,(int)SHORT1FROMMP(wParam)
  3029.                                                        ,(int)pPage->ulPageIdNew
  3030.                                                        ,(int)pPage->ulPageIdCur
  3031.                                                       );
  3032.                             if (!pWin)
  3033.                             {
  3034.                                 bProcessed = FALSE;
  3035.                                 break;
  3036.                             }
  3037.                             if (pWin->IsKindOf(CLASSINFO(wxNotebook)))
  3038.                             {
  3039.                                 wxNotebook*         pNotebook = wxDynamicCast(pWin, wxNotebook);
  3040.  
  3041.                                 vEvent.SetEventObject(pWin);
  3042.                                 pNotebook->OnSelChange(vEvent);
  3043.                                 bProcessed = TRUE;
  3044.                             }
  3045.                             else
  3046.                                 bProcessed = FALSE;
  3047.                         }
  3048.                         else
  3049.                             bProcessed = FALSE;
  3050.                     }
  3051.                     break;
  3052.  
  3053.                 case BN_CLICKED: // Dups as LN_SELECT and CBN_LBSELECT
  3054.                     {
  3055.                         HWND                hWnd = ::WinWindowFromID((HWND)GetHwnd(), SHORT1FROMMP(wParam));
  3056.                         wxWindowOS2*        pWin = wxFindWinFromHandle(hWnd);
  3057.  
  3058.                         if (!pWin)
  3059.                         {
  3060.                             bProcessed = FALSE;
  3061.                             break;
  3062.                         }
  3063.                         //
  3064.                         // Simulate a WM_COMMAND here, as wxWindows expects all control
  3065.                         // button clicks to generate WM_COMMAND msgs, not WM_CONTROL
  3066.                         //
  3067.                         if (pWin->IsKindOf(CLASSINFO(wxRadioBox)))
  3068.                         {
  3069.                             wxRadioBox*         pRadioBox = wxDynamicCast(pWin, wxRadioBox);
  3070.  
  3071.                             pRadioBox->OS2Command( (WXUINT)SHORT2FROMMP(wParam)
  3072.                                                   ,(WXUINT)SHORT1FROMMP(wParam)
  3073.                                                  );
  3074.                         }
  3075.                         if (pWin->IsKindOf(CLASSINFO(wxRadioButton)))
  3076.                         {
  3077.                             wxRadioButton*      pRadioButton = wxDynamicCast(pWin, wxRadioButton);
  3078.  
  3079.                             pRadioButton->OS2Command( (WXUINT)SHORT2FROMMP(wParam)
  3080.                                                      ,(WXUINT)SHORT1FROMMP(wParam)
  3081.                                                     );
  3082.                         }
  3083.                         if (pWin->IsKindOf(CLASSINFO(wxCheckBox)))
  3084.                         {
  3085.                             wxCheckBox*         pCheckBox = wxDynamicCast(pWin, wxCheckBox);
  3086.  
  3087.                             pCheckBox->OS2Command( (WXUINT)SHORT2FROMMP(wParam)
  3088.                                                   ,(WXUINT)SHORT1FROMMP(wParam)
  3089.                                                  );
  3090.                         }
  3091.                         if (pWin->IsKindOf(CLASSINFO(wxListBox)))
  3092.                         {
  3093.                             wxListBox*          pListBox = wxDynamicCast(pWin, wxListBox);
  3094.  
  3095.                             pListBox->OS2Command( (WXUINT)SHORT2FROMMP(wParam)
  3096.                                                  ,(WXUINT)SHORT1FROMMP(wParam)
  3097.                                                 );
  3098.                             if (pListBox->GetWindowStyle() & wxLB_OWNERDRAW)
  3099.                                 Refresh();
  3100.                         }
  3101.                         if (pWin->IsKindOf(CLASSINFO(wxComboBox)))
  3102.                         {
  3103.                             wxComboBox*          pComboBox = wxDynamicCast(pWin, wxComboBox);
  3104.  
  3105.                             pComboBox->OS2Command( (WXUINT)SHORT2FROMMP(wParam)
  3106.                                                   ,(WXUINT)SHORT1FROMMP(wParam)
  3107.                                                  );
  3108.                         }
  3109.                         return 0;
  3110.                     }
  3111.                     break;
  3112.  
  3113.                 case LN_ENTER:   /* dups as CBN_EFCHANGE */
  3114.                     {
  3115.                         HWND                hWnd = HWNDFROMMP(lParam);
  3116.                         wxWindowOS2*        pWin = wxFindWinFromHandle(hWnd);
  3117.  
  3118.                         if (!pWin)
  3119.                         {
  3120.                             bProcessed = FALSE;
  3121.                             break;
  3122.                         }
  3123.                         //
  3124.                         // Simulate a WM_COMMAND here, as wxWindows expects all control
  3125.                         // button clicks to generate WM_COMMAND msgs, not WM_CONTROL
  3126.                         //
  3127.                         if (pWin->IsKindOf(CLASSINFO(wxListBox)))
  3128.                         {
  3129.                             wxListBox*          pListBox = wxDynamicCast(pWin, wxListBox);
  3130.  
  3131.                             pListBox->OS2Command( (WXUINT)SHORT2FROMMP(wParam)
  3132.                                                  ,(WXUINT)SHORT1FROMMP(wParam)
  3133.                                                 );
  3134.                             if (pListBox->GetWindowStyle() & wxLB_OWNERDRAW)
  3135.                                 Refresh();
  3136.  
  3137.                         }
  3138.                         if (pWin->IsKindOf(CLASSINFO(wxComboBox)))
  3139.                         {
  3140.                             wxComboBox*          pComboBox = wxDynamicCast(pWin, wxComboBox);
  3141.  
  3142.                             pComboBox->OS2Command( (WXUINT)SHORT2FROMMP(wParam)
  3143.                                                   ,(WXUINT)SHORT1FROMMP(wParam)
  3144.                                                  );
  3145.                         }
  3146.                         return 0;
  3147.                     }
  3148.                     break;
  3149.  
  3150.                 case SPBN_UPARROW:
  3151.                 case SPBN_DOWNARROW:
  3152.                 case SPBN_CHANGE:
  3153.                     {
  3154.                         char        zVal[10];
  3155.                         long        lVal;
  3156.  
  3157.                         ::WinSendMsg( HWNDFROMMP(lParam)
  3158.                                      ,SPBM_QUERYVALUE
  3159.                                      ,&zVal
  3160.                                      ,MPFROM2SHORT( (USHORT)10
  3161.                                                    ,(USHORT)SPBQ_UPDATEIFVALID
  3162.                                                   )
  3163.                                     );
  3164.                         lVal = atol(zVal);
  3165.                         bProcessed = OS2OnScroll( wxVERTICAL
  3166.                                                  ,(int)SHORT2FROMMP(wParam)
  3167.                                                  ,(int)lVal
  3168.                                                  ,HWNDFROMMP(lParam)
  3169.                                                 );
  3170.                     }
  3171.                     break;
  3172.  
  3173.                 case SLN_SLIDERTRACK:
  3174.                     {
  3175.                         HWND                hWnd = ::WinWindowFromID(GetHWND(), SHORT1FROMMP(wParam));
  3176.                         wxWindowOS2*        pChild = wxFindWinFromHandle(hWnd);
  3177.  
  3178.                         if (!pChild)
  3179.                         {
  3180.                             bProcessed = FALSE;
  3181.                             break;
  3182.                         }
  3183.                         if (pChild->IsKindOf(CLASSINFO(wxSlider)))
  3184.                             bProcessed = OS2OnScroll( wxVERTICAL
  3185.                                                      ,(int)SHORT2FROMMP(wParam)
  3186.                                                      ,(int)LONGFROMMP(lParam)
  3187.                                                      ,hWnd
  3188.                                                     );
  3189.                     }
  3190.                     break;
  3191.             }
  3192.             break;
  3193.  
  3194. #if defined(__VISAGECPP__) && (__IBMCPP__ >= 400)
  3195.         case WM_CTLCOLORCHANGE:
  3196.             {
  3197.                 bProcessed = HandleCtlColor(&hBrush);
  3198.             }
  3199.             break;
  3200. #endif
  3201.         case WM_ERASEBACKGROUND:
  3202.             //
  3203.             // Returning TRUE to requestw PM to paint the window background
  3204.             // in SYSCLR_WINDOW. We don't really want that
  3205.             //
  3206.             bProcessed = HandleEraseBkgnd((WXHDC)(HPS)wParam);
  3207.             mResult = (MRESULT)(FALSE);
  3208.             break;
  3209.  
  3210.             // the return value for this message is ignored
  3211.         case WM_SYSCOLORCHANGE:
  3212.             bProcessed = HandleSysColorChange();
  3213.             break;
  3214.  
  3215.         case WM_REALIZEPALETTE:
  3216.             bProcessed = HandlePaletteChanged();
  3217.             break;
  3218.  
  3219.         // move all drag and drops to wxDrg
  3220.         case WM_ENDDRAG:
  3221.             bProcessed = HandleEndDrag(wParam);
  3222.             break;
  3223.  
  3224.         case WM_INITDLG:
  3225.             bProcessed = HandleInitDialog((WXHWND)(HWND)wParam);
  3226.  
  3227.             if ( bProcessed )
  3228.             {
  3229.                 // we never set focus from here
  3230.                 mResult = (MRESULT)FALSE;
  3231.             }
  3232.             break;
  3233.  
  3234.         // wxFrame specific message
  3235.         case WM_MINMAXFRAME:
  3236.             bProcessed = HandleGetMinMaxInfo((PSWP)wParam);
  3237.             break;
  3238.  
  3239.         case WM_SYSVALUECHANGED:
  3240.             // TODO: do something
  3241.             mResult = (MRESULT)TRUE;
  3242.             break;
  3243.  
  3244.         //
  3245.         // Comparable to WM_SETPOINTER for windows, only for just controls
  3246.         //
  3247.         case WM_CONTROLPOINTER:
  3248.             bProcessed = HandleSetCursor( SHORT1FROMMP(wParam) // Control ID
  3249.                                          ,(HWND)lParam         // Cursor Handle
  3250.                                         );
  3251.             if (bProcessed )
  3252.             {
  3253.                 //
  3254.                 // Returning TRUE stops the DefWindowProc() from further
  3255.                 // processing this message - exactly what we need because we've
  3256.                 // just set the cursor.
  3257.                 //
  3258.                 mResult = (MRESULT)TRUE;
  3259.             }
  3260.             break;
  3261.     }
  3262.     if (!bProcessed)
  3263.     {
  3264. #ifdef __WXDEBUG__
  3265.         wxLogTrace(wxTraceMessages, wxT("Forwarding %s to DefWindowProc."),
  3266.                    wxGetMessageName(uMsg));
  3267. #endif // __WXDEBUG__
  3268.         if (IsKindOf(CLASSINFO(wxFrame)))
  3269.             mResult = ::WinDefWindowProc(m_hWnd, uMsg, wParam, lParam);
  3270.         else if (IsKindOf(CLASSINFO(wxDialog)))
  3271.             mResult = ::WinDefDlgProc( m_hWnd, uMsg, wParam, lParam);
  3272.         else
  3273.             mResult = OS2DefWindowProc(uMsg, wParam, lParam);
  3274.     }
  3275.     return mResult;
  3276. } // end of wxWindowOS2::OS2WindowProc
  3277.  
  3278. #ifndef __EMX__
  3279. // clashes with wxDlgProc in toplevel.cpp?
  3280. //
  3281. // Dialog window proc
  3282. //
  3283. MRESULT wxDlgProc(
  3284.   HWND                              WXUNUSED(hWnd)
  3285. , UINT                              uMsg
  3286. , MPARAM                            WXUNUSED(wParam)
  3287. , MPARAM                            WXUNUSED(lParam))
  3288. {
  3289.     if (uMsg == WM_INITDLG)
  3290.     {
  3291.         //
  3292.         // For this message, returning TRUE tells system to set focus to the
  3293.         // first control in the dialog box
  3294.         //
  3295.         return (MRESULT)TRUE;
  3296.     }
  3297.     else
  3298.     {
  3299.         //
  3300.         // For all the other ones, FALSE means that we didn't process the
  3301.         // message
  3302.         //
  3303.         return (MRESULT)0;
  3304.     }
  3305. } // end of wxDlgProc
  3306. #endif
  3307.  
  3308. wxWindow* wxFindWinFromHandle(
  3309.   WXHWND                            hWnd
  3310. )
  3311. {
  3312.     wxNode*                         pNode = wxWinHandleList->Find((long)hWnd);
  3313.  
  3314.     if (!pNode)
  3315.         return NULL;
  3316.     return (wxWindow *)pNode->Data();
  3317. } // end of wxFindWinFromHandle
  3318.  
  3319. void wxAssociateWinWithHandle(
  3320.   HWND                              hWnd
  3321. , wxWindowOS2*                      pWin
  3322. )
  3323. {
  3324.     //
  3325.     // Adding NULL hWnd is (first) surely a result of an error and
  3326.     // (secondly) breaks menu command processing
  3327.     //
  3328.     wxCHECK_RET( hWnd != (HWND)NULL,
  3329.                  wxT("attempt to add a NULL hWnd to window list ignored") );
  3330.  
  3331.  
  3332.     wxWindow*                       pOldWin = wxFindWinFromHandle((WXHWND) hWnd);
  3333.  
  3334.     if (pOldWin && (pOldWin != pWin))
  3335.     {
  3336.         wxString                    str(pWin->GetClassInfo()->GetClassName());
  3337.         wxLogError( "Bug! Found existing HWND %X for new window of class %s"
  3338.                    ,(int)hWnd
  3339.                    ,(const char*)str
  3340.                   );
  3341.     }
  3342.     else if (!pOldWin)
  3343.     {
  3344.         wxWinHandleList->Append( (long)hWnd
  3345.                                 ,pWin
  3346.                                );
  3347.     }
  3348. } // end of wxAssociateWinWithHandle
  3349.  
  3350. void wxRemoveHandleAssociation(
  3351.   wxWindowOS2*                      pWin
  3352. )
  3353. {
  3354.     wxWinHandleList->DeleteObject(pWin);
  3355. } // end of wxRemoveHandleAssociation
  3356.  
  3357. //
  3358. // Default destroyer - override if you destroy it in some other way
  3359. // (e.g. with MDI child windows)
  3360. //
  3361. void wxWindowOS2::OS2DestroyWindow()
  3362. {
  3363. }
  3364.  
  3365. bool wxWindowOS2::OS2GetCreateWindowCoords(
  3366.   const wxPoint&                    rPos
  3367. , const wxSize&                     rSize
  3368. , int&                              rnX
  3369. , int&                              rnY
  3370. , int&                              rnWidth
  3371. , int&                              rnHeight
  3372. ) const
  3373. {
  3374.     bool                            bNonDefault = FALSE;
  3375.     static const int                DEFAULT_Y = 200;
  3376.     static const int                DEFAULT_H = 250;
  3377.  
  3378.     if (rPos.x == -1)
  3379.     {
  3380.         rnX = rnY = CW_USEDEFAULT;
  3381.     }
  3382.     else
  3383.     {
  3384.         rnX = rPos.x;
  3385.         rnY = rPos.y == -1 ? DEFAULT_Y : rPos.y;
  3386.         bNonDefault = TRUE;
  3387.     }
  3388.     if (rSize.x == -1)
  3389.     {
  3390.         rnWidth = rnHeight = CW_USEDEFAULT;
  3391.     }
  3392.     else
  3393.     {
  3394.         rnWidth  = rSize.x;
  3395.         rnHeight = rSize.y == -1 ? DEFAULT_H : rSize.y;
  3396.         bNonDefault = TRUE;
  3397.     }
  3398.     return bNonDefault;
  3399. } // end of wxWindowOS2::OS2GetCreateWindowCoords
  3400.  
  3401. WXHWND wxWindowOS2::OS2GetParent() const
  3402. {
  3403.     return m_parent ? m_parent->GetHWND() : NULL;
  3404. }
  3405.  
  3406. bool wxWindowOS2::OS2Create(
  3407.   PSZ                               zClass
  3408. , const char*                       zTitle
  3409. , WXDWORD                           dwStyle
  3410. , const wxPoint&                    rPos
  3411. , const wxSize&                     rSize
  3412. , void*                             pCtlData
  3413. , WXDWORD                           dwExStyle
  3414. , bool                              bIsChild
  3415. )
  3416. {
  3417.     ERRORID                         vError;
  3418.     wxString                        sError;
  3419.     int                             nX      = 0L;
  3420.     int                             nY      = 0L;
  3421.     int                             nWidth  = 0L;
  3422.     int                             nHeight = 0L;
  3423.     wxWindow*                       pParent = GetParent();
  3424.     HWND                            hWnd = NULLHANDLE;
  3425.     HWND                            hParent;
  3426.     long                            lControlId = 0L;
  3427.     wxWindowCreationHook            vHook(this);
  3428.     wxString                        sClassName((wxChar*)zClass);
  3429.  
  3430.     OS2GetCreateWindowCoords( rPos
  3431.                              ,rSize
  3432.                              ,nX
  3433.                              ,nY
  3434.                              ,nWidth
  3435.                              ,nHeight
  3436.                             );
  3437.  
  3438.     if (bIsChild)
  3439.     {
  3440.         lControlId = GetId();
  3441.         if (GetWindowStyleFlag() & wxCLIP_SIBLINGS)
  3442.         {
  3443.             dwStyle |= WS_CLIPSIBLINGS;
  3444.         }
  3445.     }
  3446.     //
  3447.     // For each class "Foo" we have we also have "FooNR" ("no repaint") class
  3448.     // which is the same but without CS_[HV]REDRAW class styles so using it
  3449.     // ensures that the window is not fully repainted on each resize
  3450.     //
  3451.     if (GetWindowStyleFlag() & wxNO_FULL_REPAINT_ON_RESIZE)
  3452.     {
  3453.         sClassName += wxT("NR");
  3454.     }
  3455.     m_hWnd = (WXHWND)::WinCreateWindow( (HWND)OS2GetParent()
  3456.                                        ,(PSZ)sClassName.c_str()
  3457.                                        ,(PSZ)zTitle ? zTitle : ""
  3458.                                        ,(ULONG)dwStyle
  3459.                                        ,(LONG)0L
  3460.                                        ,(LONG)0L
  3461.                                        ,(LONG)0L
  3462.                                        ,(LONG)0L
  3463.                                        ,NULLHANDLE
  3464.                                        ,HWND_TOP
  3465.                                        ,(ULONG)lControlId
  3466.                                        ,pCtlData
  3467.                                        ,NULL
  3468.                                       );
  3469.     if (!m_hWnd)
  3470.     {
  3471.         vError = ::WinGetLastError(wxGetInstance());
  3472.         sError = wxPMErrorToStr(vError);
  3473.         return FALSE;
  3474.     }
  3475.     SubclassWin(m_hWnd);
  3476.     SetFont(wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT));
  3477.  
  3478.     m_backgroundColour.Set(wxString("GREY"));
  3479.  
  3480.     LONG                            lColor = (LONG)m_backgroundColour.GetPixel();
  3481.  
  3482.     if (!::WinSetPresParam( m_hWnd
  3483.                            ,PP_BACKGROUNDCOLOR
  3484.                            ,sizeof(LONG)
  3485.                            ,(PVOID)&lColor
  3486.                           ))
  3487.     {
  3488.         vError = ::WinGetLastError(vHabmain);
  3489.         sError = wxPMErrorToStr(vError);
  3490.         wxLogError("Error creating frame. Error: %s\n", sError);
  3491.         return FALSE;
  3492.     }
  3493.     SetSize( nX
  3494.             ,nY
  3495.             ,nWidth
  3496.             ,nHeight
  3497.            );
  3498.     return TRUE;
  3499. } // end of WinGuiBase_Window::OS2Create
  3500.  
  3501. // ===========================================================================
  3502. // OS2 PM message handlers
  3503. // ===========================================================================
  3504.  
  3505. // ---------------------------------------------------------------------------
  3506. // window creation/destruction
  3507. // ---------------------------------------------------------------------------
  3508.  
  3509. bool wxWindowOS2::HandleCreate(
  3510.   WXLPCREATESTRUCT                  WXUNUSED(vCs)
  3511. , bool*                             pbMayCreate
  3512. )
  3513. {
  3514.     wxWindowCreateEvent             vEvent((wxWindow*)this);
  3515.  
  3516.     (void)GetEventHandler()->ProcessEvent(vEvent);
  3517.     *pbMayCreate = TRUE;
  3518.     return TRUE;
  3519. } // end of wxWindowOS2::HandleCreate
  3520.  
  3521. bool wxWindowOS2::HandleDestroy()
  3522. {
  3523.     wxWindowDestroyEvent            vEvent((wxWindow*)this);
  3524.  
  3525.     (void)GetEventHandler()->ProcessEvent(vEvent);
  3526.  
  3527.     //
  3528.     // Delete our drop target if we've got one
  3529.     //
  3530. #if wxUSE_DRAG_AND_DROP
  3531.     if (m_dropTarget != NULL)
  3532.     {
  3533.         m_dropTarget->Revoke(m_hWnd);
  3534.         delete m_dropTarget;
  3535.         m_dropTarget = NULL;
  3536.     }
  3537. #endif // wxUSE_DRAG_AND_DROP
  3538.  
  3539.     //
  3540.     // WM_DESTROY handled
  3541.     //
  3542.     return TRUE;
  3543. } // end of wxWindowOS2::HandleDestroy
  3544.  
  3545. // ---------------------------------------------------------------------------
  3546. // activation/focus
  3547. // ---------------------------------------------------------------------------
  3548. void wxWindowOS2::OnSetFocus(
  3549.   wxFocusEvent&                     rEvent
  3550. )
  3551. {
  3552.     rEvent.Skip();
  3553. } // end of wxWindowOS2::OnSetFocus
  3554.  
  3555. bool wxWindowOS2::HandleActivate(
  3556.   int                               nState
  3557. , WXHWND                            WXUNUSED(hActivate)
  3558. )
  3559. {
  3560.     wxActivateEvent                 vEvent( wxEVT_ACTIVATE
  3561.                                            ,(bool)nState
  3562.                                            ,m_windowId
  3563.                                           );
  3564.     vEvent.SetEventObject(this);
  3565.     return GetEventHandler()->ProcessEvent(vEvent);
  3566. } // end of wxWindowOS2::HandleActivate
  3567.  
  3568. bool wxWindowOS2::HandleSetFocus(
  3569.   WXHWND                            WXUNUSED(hWnd)
  3570. )
  3571. {
  3572.     //
  3573.     // Notify the parent keeping track of focus for the kbd navigation
  3574.     // purposes that we got it
  3575.     //
  3576.     wxChildFocusEvent               vEventFocus((wxWindow *)this);
  3577.     (void)GetEventHandler()->ProcessEvent(vEventFocus);
  3578.  
  3579. #if wxUSE_CARET
  3580.     //
  3581.     // Deal with caret
  3582.     //
  3583.     if (m_caret)
  3584.     {
  3585.         m_caret->OnSetFocus();
  3586.     }
  3587. #endif // wxUSE_CARET
  3588.  
  3589. #if wxUSE_TEXTCTRL
  3590.     // If it's a wxTextCtrl don't send the event as it will be done
  3591.     // after the control gets to process it from EN_FOCUS handler
  3592.     if ( wxDynamicCastThis(wxTextCtrl) )
  3593.     {
  3594.         return FALSE;
  3595.     }
  3596. #endif // wxUSE_TEXTCTRL
  3597.  
  3598.     wxFocusEvent                    vEvent(wxEVT_SET_FOCUS, m_windowId);
  3599.  
  3600.     vEvent.SetEventObject(this);
  3601.     return GetEventHandler()->ProcessEvent(vEvent);
  3602. } // end of wxWindowOS2::HandleSetFocus
  3603.  
  3604. bool wxWindowOS2::HandleKillFocus(
  3605.   WXHWND                            hWnd
  3606. )
  3607. {
  3608. #if wxUSE_CARET
  3609.     //
  3610.     // Deal with caret
  3611.     //
  3612.     if (m_caret)
  3613.     {
  3614.         m_caret->OnKillFocus();
  3615.     }
  3616. #endif // wxUSE_CARET
  3617.  
  3618. #if wxUSE_TEXTCTRL
  3619.     //
  3620.     // If it's a wxTextCtrl don't send the event as it will be done
  3621.     // after the control gets to process it.
  3622.     //
  3623.     wxTextCtrl*                     pCtrl = wxDynamicCastThis(wxTextCtrl);
  3624.  
  3625.     if (pCtrl)
  3626.     {
  3627.         return FALSE;
  3628.     }
  3629. #endif
  3630.  
  3631.     //
  3632.     // Don't send the event when in the process of being deleted.  This can
  3633.     // only cause problems if the event handler tries to access the object.
  3634.     //
  3635.     if ( m_isBeingDeleted )
  3636.     {
  3637.         return FALSE;
  3638.     }
  3639.  
  3640.     wxFocusEvent                    vEvent( wxEVT_KILL_FOCUS
  3641.                                            ,m_windowId
  3642.                                           );
  3643.  
  3644.     vEvent.SetEventObject(this);
  3645.  
  3646.     //
  3647.     // wxFindWinFromHandle() may return NULL, it is ok
  3648.     //
  3649.     vEvent.SetWindow(wxFindWinFromHandle(hWnd));
  3650.     return GetEventHandler()->ProcessEvent(vEvent);
  3651. } // end of wxWindowOS2::HandleKillFocus
  3652.  
  3653. // ---------------------------------------------------------------------------
  3654. // miscellaneous
  3655. // ---------------------------------------------------------------------------
  3656.  
  3657. bool wxWindowOS2::HandleShow(
  3658.   bool                              bShow
  3659. , int                               WXUNUSED(nStatus)
  3660. )
  3661. {
  3662.     wxShowEvent                     vEvent(GetId(), bShow);
  3663.  
  3664.     vEvent.m_eventObject = this;
  3665.     return GetEventHandler()->ProcessEvent(vEvent);
  3666. } // end of wxWindowOS2::HandleShow
  3667.  
  3668. bool wxWindowOS2::HandleInitDialog(
  3669.   WXHWND                            WXUNUSED(hWndFocus)
  3670. )
  3671. {
  3672.     wxInitDialogEvent               vEvent(GetId());
  3673.  
  3674.     vEvent.m_eventObject = this;
  3675.     return GetEventHandler()->ProcessEvent(vEvent);
  3676. } // end of wxWindowOS2::HandleInitDialog
  3677.  
  3678. bool wxWindowOS2::HandleEndDrag(WXWPARAM WXUNUSED(wParam))
  3679. {
  3680.    // TODO: We'll handle drag and drop later
  3681.     return FALSE;
  3682. }
  3683.  
  3684. bool wxWindowOS2::HandleSetCursor(
  3685.   USHORT                            WXUNUSED(vId)
  3686. , WXHWND                            hPointer
  3687. )
  3688. {
  3689.     //
  3690.     // Under OS/2 PM this allows the pointer to be changed
  3691.     // as it passes over a control
  3692.     //
  3693.     ::WinSetPointer(HWND_DESKTOP, (HPOINTER)hPointer);
  3694.     return TRUE;
  3695. } // end of wxWindowOS2::HandleSetCursor
  3696.  
  3697. // ---------------------------------------------------------------------------
  3698. // owner drawn stuff
  3699. // ---------------------------------------------------------------------------
  3700. bool wxWindowOS2::OS2OnDrawItem(
  3701.   int                               vId
  3702. , WXDRAWITEMSTRUCT*                 pItemStruct
  3703. )
  3704. {
  3705. #if wxUSE_OWNER_DRAWN
  3706.     wxDC                            vDc;
  3707.  
  3708. #if wxUSE_MENUS_NATIVE
  3709.     //
  3710.     // Is it a menu item?
  3711.     //
  3712.     if (vId == 0)
  3713.     {
  3714.         ERRORID                     vError;
  3715.         wxString                    sError;
  3716.         POWNERITEM                  pMeasureStruct = (POWNERITEM)pItemStruct;
  3717.         wxFrame*                    pFrame = (wxFrame*)this;
  3718.         wxMenuItem*                 pMenuItem = pFrame->GetMenuBar()->FindItem(pMeasureStruct->idItem, pMeasureStruct->hItem);
  3719.         HDC                         hDC = ::GpiQueryDevice(pMeasureStruct->hps);
  3720.         wxRect                      vRect( pMeasureStruct->rclItem.xLeft
  3721.                                           ,pMeasureStruct->rclItem.yBottom
  3722.                                           ,pMeasureStruct->rclItem.xRight - pMeasureStruct->rclItem.xLeft
  3723.                                           ,pMeasureStruct->rclItem.yTop - pMeasureStruct->rclItem.yBottom
  3724.                                          );
  3725.         vDc.SetHDC( hDC
  3726.                    ,FALSE
  3727.                   );
  3728.         vDc.SetHPS(pMeasureStruct->hps);
  3729.         //
  3730.         // Load the wxWindows Pallete and set to RGB mode
  3731.         //
  3732.         if (!::GpiCreateLogColorTable( pMeasureStruct->hps
  3733.                                       ,0L
  3734.                                       ,LCOLF_CONSECRGB
  3735.                                       ,0L
  3736.                                       ,(LONG)wxTheColourDatabase->m_nSize
  3737.                                       ,(PLONG)wxTheColourDatabase->m_palTable
  3738.                                      ))
  3739.         {
  3740.             vError = ::WinGetLastError(vHabmain);
  3741.             sError = wxPMErrorToStr(vError);
  3742.             wxLogError("Unable to set current color table. Error: %s\n", sError);
  3743.         }
  3744.         //
  3745.         // Set the color table to RGB mode
  3746.         //
  3747.         if (!::GpiCreateLogColorTable( pMeasureStruct->hps
  3748.                                       ,0L
  3749.                                       ,LCOLF_RGB
  3750.                                       ,0L
  3751.                                       ,0L
  3752.                                       ,NULL
  3753.                                      ))
  3754.         {
  3755.             vError = ::WinGetLastError(vHabmain);
  3756.             sError = wxPMErrorToStr(vError);
  3757.             wxLogError("Unable to set current color table. Error: %s\n", sError);
  3758.         }
  3759.  
  3760.         wxCHECK( pMenuItem->IsKindOf(CLASSINFO(wxMenuItem)), FALSE );
  3761.  
  3762.  
  3763.         int                         eAction = 0;
  3764.         int                         eStatus = 0;
  3765.  
  3766.         if (pMeasureStruct->fsAttribute == pMeasureStruct->fsAttributeOld)
  3767.         {
  3768.             //
  3769.             // Entire Item needs to be redrawn (either it has reappeared from
  3770.             // behind another window or is being displayed for the first time
  3771.             //
  3772.             eAction = wxOwnerDrawn::wxODDrawAll;
  3773.  
  3774.             if (pMeasureStruct->fsAttribute & MIA_HILITED)
  3775.             {
  3776.                 //
  3777.                 // If it is currently selected we let the system handle it
  3778.                 //
  3779.                 eStatus |= wxOwnerDrawn::wxODSelected;
  3780.             }
  3781.             if (pMeasureStruct->fsAttribute & MIA_CHECKED)
  3782.             {
  3783.                 //
  3784.                 // If it is currently checked we draw our own
  3785.                 //
  3786.                 eStatus |= wxOwnerDrawn::wxODChecked;
  3787.                 pMeasureStruct->fsAttributeOld = pMeasureStruct->fsAttribute &= ~MIA_CHECKED;
  3788.             }
  3789.             if (pMeasureStruct->fsAttribute & MIA_DISABLED)
  3790.             {
  3791.                 //
  3792.                 // If it is currently disabled we let the system handle it
  3793.                 //
  3794.                 eStatus |= wxOwnerDrawn::wxODDisabled;
  3795.             }
  3796.             //
  3797.             // Don't really care about framed (indicationg focus) or NoDismiss
  3798.             //
  3799.         }
  3800.         else
  3801.         {
  3802.             if (pMeasureStruct->fsAttribute & MIA_HILITED)
  3803.             {
  3804.                 eAction = wxOwnerDrawn::wxODDrawAll;
  3805.                 eStatus |= wxOwnerDrawn::wxODSelected;
  3806.                 //
  3807.                 // Keep the system from trying to highlight with its bogus colors
  3808.                 //
  3809.                 pMeasureStruct->fsAttributeOld = pMeasureStruct->fsAttribute &= ~MIA_HILITED;
  3810.             }
  3811.             else if (!(pMeasureStruct->fsAttribute & MIA_HILITED))
  3812.             {
  3813.                 eAction = wxOwnerDrawn::wxODDrawAll;
  3814.                 eStatus = 0;
  3815.                 //
  3816.                 // Keep the system from trying to highlight with its bogus colors
  3817.                 //
  3818.                 pMeasureStruct->fsAttribute = pMeasureStruct->fsAttributeOld &= ~MIA_HILITED;
  3819.             }
  3820.             else
  3821.             {
  3822.                 //
  3823.                 // For now we don't care about anything else
  3824.                 // just ignore the entire message!
  3825.                 //
  3826.                 return TRUE;
  3827.             }
  3828.         }
  3829.         //
  3830.         // Now redraw the item
  3831.         //
  3832.         return(pMenuItem->OnDrawItem( vDc
  3833.                                      ,vRect
  3834.                                      ,(wxOwnerDrawn::wxODAction)eAction
  3835.                                      ,(wxOwnerDrawn::wxODStatus)eStatus
  3836.                                     ));
  3837.         //
  3838.         // leave the fsAttribute and fsOldAttribute unchanged.  If different,
  3839.         // the system will do the highlight or fraeming or disabling for us,
  3840.         // otherwise, we'd have to do it ourselves.
  3841.         //
  3842.     }
  3843. #endif // wxUSE_MENUS_NATIVE
  3844.  
  3845.     wxWindow*                       pItem = FindItem(vId);
  3846.  
  3847.     if (pItem && pItem->IsKindOf(CLASSINFO(wxControl)))
  3848.     {
  3849.         return ((wxControl *)pItem)->OS2OnDraw(pItemStruct);
  3850.     }
  3851. #else
  3852.     vId = vId;
  3853.     pItemStruct = pItemStruct;
  3854. #endif
  3855.     return FALSE;
  3856. } // end of wxWindowOS2::OS2OnDrawItem
  3857.  
  3858. long wxWindowOS2::OS2OnMeasureItem(
  3859.   int                               lId
  3860. , WXMEASUREITEMSTRUCT*              pItemStruct
  3861. )
  3862. {
  3863. #if wxUSE_OWNER_DRAWN
  3864.     //
  3865.     // Is it a menu item?
  3866.     //
  3867.     if (lId == 65536) // I really don't like this...has to be a better indicator
  3868.     {
  3869.         if (IsKindOf(CLASSINFO(wxFrame))) // we'll assume if Frame then a menu
  3870.         {
  3871.             size_t                  nWidth;
  3872.             size_t                  nHeight;
  3873.             POWNERITEM              pMeasureStruct = (POWNERITEM)pItemStruct;
  3874.             wxFrame*                pFrame = (wxFrame*)this;
  3875.             wxMenuItem*             pMenuItem = pFrame->GetMenuBar()->FindItem(pMeasureStruct->idItem, pMeasureStruct->hItem);
  3876.  
  3877.             wxCHECK( pMenuItem->IsKindOf(CLASSINFO(wxMenuItem)), FALSE );
  3878.             nWidth  = 0L;
  3879.             nHeight = 0L;
  3880.             if (pMenuItem->OnMeasureItem( &nWidth
  3881.                                          ,&nHeight
  3882.                                         ))
  3883.             {
  3884.                 MRESULT             mRc;
  3885.  
  3886.                 pMeasureStruct->rclItem.xRight  = nWidth;
  3887.                 pMeasureStruct->rclItem.xLeft   = 0L;
  3888.                 pMeasureStruct->rclItem.yTop    = nHeight;
  3889.                 pMeasureStruct->rclItem.yBottom = 0L;
  3890.                 mRc = MRFROM2SHORT(nHeight, nWidth);
  3891.                 return LONGFROMMR(mRc);
  3892.             }
  3893.             return 0L;
  3894.         }
  3895.     }
  3896.     wxWindow*                      pItem = FindItem(lId);
  3897.  
  3898.     if (pItem && pItem->IsKindOf(CLASSINFO(wxControl)))
  3899.     {
  3900.         OWNERITEM                   vItem;
  3901.  
  3902.         vItem.idItem = (LONG)pItemStruct;
  3903.         return ((wxControl *)pItem)->OS2OnMeasure((WXMEASUREITEMSTRUCT*)&vItem);
  3904.     }
  3905. #else
  3906.     lId = lId;
  3907.     pItemStruct = pItemStruct;
  3908. #endif // wxUSE_OWNER_DRAWN
  3909.     return FALSE;
  3910. }
  3911.  
  3912. // ---------------------------------------------------------------------------
  3913. // colours and palettes
  3914. // ---------------------------------------------------------------------------
  3915.  
  3916. bool wxWindowOS2::HandleSysColorChange()
  3917. {
  3918.     wxSysColourChangedEvent         vEvent;
  3919.  
  3920.     vEvent.SetEventObject(this);
  3921.     return GetEventHandler()->ProcessEvent(vEvent);
  3922. } // end of wxWindowOS2::HandleSysColorChange
  3923.  
  3924. bool wxWindowOS2::HandleCtlColor(
  3925.   WXHBRUSH*                         WXUNUSED(phBrush)
  3926. )
  3927. {
  3928.     //
  3929.     // Not much provided with message. So not sure I can do anything with it
  3930.     //
  3931.     return TRUE;
  3932. } // end of wxWindowOS2::HandleCtlColor
  3933.  
  3934.  
  3935. // Define for each class of dialog and control
  3936. WXHBRUSH wxWindowOS2::OnCtlColor(WXHDC WXUNUSED(hDC),
  3937.                                  WXHWND WXUNUSED(hWnd),
  3938.                                  WXUINT WXUNUSED(nCtlColor),
  3939.                                  WXUINT WXUNUSED(message),
  3940.                                  WXWPARAM WXUNUSED(wParam),
  3941.                                  WXLPARAM WXUNUSED(lParam))
  3942. {
  3943.     return (WXHBRUSH)0;
  3944. }
  3945.  
  3946. bool wxWindowOS2::HandlePaletteChanged()
  3947. {
  3948.     // need to set this to something first
  3949.     WXHWND                          hWndPalChange = NULLHANDLE;
  3950.  
  3951.     wxPaletteChangedEvent           vEvent(GetId());
  3952.  
  3953.     vEvent.SetEventObject(this);
  3954.     vEvent.SetChangedWindow(wxFindWinFromHandle(hWndPalChange));
  3955.  
  3956.     return GetEventHandler()->ProcessEvent(vEvent);
  3957. } // end of wxWindowOS2::HandlePaletteChanged
  3958.  
  3959. //
  3960. // Responds to colour changes: passes event on to children.
  3961. //
  3962. void wxWindowOS2::OnSysColourChanged(
  3963.   wxSysColourChangedEvent&          rEvent
  3964. )
  3965. {
  3966.     wxNode*                         pNode = GetChildren().First();
  3967.  
  3968.     while (pNode)
  3969.     {
  3970.         //
  3971.         // Only propagate to non-top-level windows
  3972.         //
  3973.         wxWindow*                   pWin = (wxWindow *)pNode->Data();
  3974.  
  3975.         if (pWin->GetParent())
  3976.         {
  3977.             wxSysColourChangedEvent vEvent;
  3978.  
  3979.             rEvent.m_eventObject = pWin;
  3980.             pWin->GetEventHandler()->ProcessEvent(vEvent);
  3981.         }
  3982.         pNode = pNode->Next();
  3983.     }
  3984. } // end of wxWindowOS2::OnSysColourChanged
  3985.  
  3986. // ---------------------------------------------------------------------------
  3987. // painting
  3988. // ---------------------------------------------------------------------------
  3989.  
  3990. bool wxWindowOS2::HandlePaint()
  3991. {
  3992.     HRGN                            hRgn;
  3993.     wxPaintEvent                    vEvent(m_windowId);
  3994.     HPS                             hPS;
  3995.     RECTL                           vRect;
  3996.     bool                            bProcessed;
  3997.  
  3998.     // Create empty region
  3999.     // TODO: get HPS somewhere else if possible
  4000.     hPS  = ::WinGetPS(GetHwnd());
  4001.     hRgn = ::GpiCreateRegion(hPS, 0, NULL);
  4002.  
  4003.     if (::WinQueryUpdateRegion(GetHwnd(), hRgn) == RGN_ERROR)
  4004.     {
  4005.          wxLogLastError("CreateRectRgn");
  4006.          return FALSE;
  4007.     }
  4008.  
  4009.     m_updateRegion = wxRegion(hRgn, hPS);
  4010.  
  4011.     vEvent.SetEventObject(this);
  4012.     bProcessed = GetEventHandler()->ProcessEvent(vEvent);
  4013.  
  4014.     if (!bProcessed &&
  4015.          IsKindOf(CLASSINFO(wxPanel)) &&
  4016.          GetChildren().GetCount() == 0
  4017.        )
  4018.     {
  4019.         //
  4020.         // OS/2 needs to process this right here, not by the default proc
  4021.         // Window's default proc correctly paints everything, OS/2 does not.
  4022.         // For decorative panels that typically have no children, we draw
  4023.         // borders.
  4024.         //
  4025.         HPS                         hPS;
  4026.         RECTL                       vRect;
  4027.         wxFrame*                    pFrame;
  4028.         wxWindow*                   pParent;
  4029.  
  4030.         hPS = ::WinBeginPaint( GetHwnd()
  4031.                               ,NULLHANDLE
  4032.                               ,&vRect
  4033.                              );
  4034.         if(hPS)
  4035.         {
  4036.             ::GpiCreateLogColorTable( hPS
  4037.                                      ,0L
  4038.                                      ,LCOLF_CONSECRGB
  4039.                                      ,0L
  4040.                                      ,(LONG)wxTheColourDatabase->m_nSize
  4041.                                      ,(PLONG)wxTheColourDatabase->m_palTable
  4042.                                     );
  4043.             ::GpiCreateLogColorTable( hPS
  4044.                                      ,0L
  4045.                                      ,LCOLF_RGB
  4046.                                      ,0L
  4047.                                      ,0L
  4048.                                      ,NULL
  4049.                                     );
  4050.             if (::WinIsWindowVisible(GetHWND()))
  4051.                 ::WinFillRect(hPS, &vRect,  GetBackgroundColour().GetPixel());
  4052.             if (m_dwExStyle)
  4053.             {
  4054.                 LINEBUNDLE      vLineBundle;
  4055.  
  4056.                 vLineBundle.lColor     = 0x00000000; // Black
  4057.                 vLineBundle.usMixMode  = FM_OVERPAINT;
  4058.                 vLineBundle.fxWidth    = 1;
  4059.                 vLineBundle.lGeomWidth = 1;
  4060.                 vLineBundle.usType     = LINETYPE_SOLID;
  4061.                 vLineBundle.usEnd      = 0;
  4062.                 vLineBundle.usJoin     = 0;
  4063.                 ::GpiSetAttrs( hPS
  4064.                               ,PRIM_LINE
  4065.                               ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
  4066.                               ,0L
  4067.                               ,&vLineBundle
  4068.                              );
  4069.                 ::WinQueryWindowRect(GetHwnd(), &vRect);
  4070.                 wxDrawBorder( hPS
  4071.                              ,vRect
  4072.                              ,m_dwExStyle
  4073.                             );
  4074.             }
  4075.         }
  4076.         ::WinEndPaint(hPS);
  4077.         bProcessed = TRUE;
  4078.     }
  4079.     else if (!bProcessed &&
  4080.              IsKindOf(CLASSINFO(wxPanel))
  4081.             )
  4082.     {
  4083.         //
  4084.         // Panel with children, usually fills a frame client so no borders.
  4085.         //
  4086.         HPS                         hPS;
  4087.         RECTL                       vRect;
  4088.         wxFrame*                    pFrame;
  4089.         wxWindow*                   pParent;
  4090.  
  4091.         hPS = ::WinBeginPaint( GetHwnd()
  4092.                               ,NULLHANDLE
  4093.                               ,&vRect
  4094.                              );
  4095.         if(hPS)
  4096.         {
  4097.             ::GpiCreateLogColorTable( hPS
  4098.                                      ,0L
  4099.                                      ,LCOLF_CONSECRGB
  4100.                                      ,0L
  4101.                                      ,(LONG)wxTheColourDatabase->m_nSize
  4102.                                      ,(PLONG)wxTheColourDatabase->m_palTable
  4103.                                     );
  4104.             ::GpiCreateLogColorTable( hPS
  4105.                                      ,0L
  4106.                                      ,LCOLF_RGB
  4107.                                      ,0L
  4108.                                      ,0L
  4109.                                      ,NULL
  4110.                                     );
  4111.  
  4112.             if (::WinIsWindowVisible(GetHWND()))
  4113.                 ::WinFillRect(hPS, &vRect,  GetBackgroundColour().GetPixel());
  4114.         }
  4115.         ::WinEndPaint(hPS);
  4116.         bProcessed = TRUE;
  4117.     }
  4118.     return bProcessed;
  4119. } // end of wxWindowOS2::HandlePaint
  4120.  
  4121. bool wxWindowOS2::HandleEraseBkgnd(
  4122.   WXHDC                             hDC
  4123. )
  4124. {
  4125.     SWP                             vSwp;
  4126.     bool                            rc;
  4127.  
  4128.     ::WinQueryWindowPos(GetHwnd(), &vSwp);
  4129.     if (vSwp.fl & SWP_MINIMIZE)
  4130.         return TRUE;
  4131.  
  4132.     wxDC                            vDC;
  4133.  
  4134.     vDC.m_hPS = (HPS)hDC; // this is really a PS
  4135.     vDC.SetWindow((wxWindow*)this);
  4136.     vDC.BeginDrawing();
  4137.  
  4138.     wxEraseEvent                    vEvent(m_windowId, &vDC);
  4139.  
  4140.     vEvent.SetEventObject(this);
  4141.  
  4142.     rc = GetEventHandler()->ProcessEvent(vEvent);
  4143.  
  4144.     vDC.EndDrawing();
  4145.     vDC.m_hPS = NULLHANDLE;
  4146.     return TRUE;
  4147. } // end of wxWindowOS2::HandleEraseBkgnd
  4148.  
  4149. void wxWindowOS2::OnEraseBackground(
  4150.   wxEraseEvent&                     rEvent
  4151. )
  4152. {
  4153.     RECTL                           vRect;
  4154.     HPS                             hPS = rEvent.m_dc->m_hPS;
  4155.     APIRET                          rc;
  4156.     LONG                            lColor = m_backgroundColour.GetPixel();
  4157.  
  4158.     rc = ::WinQueryWindowRect(GetHwnd(), &vRect);
  4159.     rc = ::WinFillRect(hPS, &vRect, lColor);
  4160. }  // end of wxWindowOS2::OnEraseBackground
  4161.  
  4162. // ---------------------------------------------------------------------------
  4163. // moving and resizing
  4164. // ---------------------------------------------------------------------------
  4165.  
  4166. bool wxWindowOS2::HandleMinimize()
  4167. {
  4168.     wxIconizeEvent                  vEvent(m_windowId);
  4169.  
  4170.     vEvent.SetEventObject(this);
  4171.     return GetEventHandler()->ProcessEvent(vEvent);
  4172. } // end of wxWindowOS2::HandleMinimize
  4173.  
  4174. bool wxWindowOS2::HandleMaximize()
  4175. {
  4176.     wxMaximizeEvent                 vEvent(m_windowId);
  4177.  
  4178.     vEvent.SetEventObject(this);
  4179.     return GetEventHandler()->ProcessEvent(vEvent);
  4180. } // end of wxWindowOS2::HandleMaximize
  4181.  
  4182. bool wxWindowOS2::HandleMove(
  4183.   int                               nX
  4184. , int                               nY
  4185. )
  4186. {
  4187.     wxMoveEvent                     vEvent(wxPoint(nX, nY), m_windowId);
  4188.  
  4189.     vEvent.SetEventObject(this);
  4190.     return GetEventHandler()->ProcessEvent(vEvent);
  4191. }  // end of wxWindowOS2::HandleMove
  4192.  
  4193. bool wxWindowOS2::HandleSize(
  4194.   int                               nWidth
  4195. , int                               nHeight
  4196. , WXUINT                            WXUNUSED(nFlag)
  4197. )
  4198. {
  4199.     wxSizeEvent                     vEvent(wxSize(nWidth, nHeight), m_windowId);
  4200.  
  4201.     vEvent.SetEventObject(this);
  4202.     return GetEventHandler()->ProcessEvent(vEvent);
  4203. } // end of wxWindowOS2::HandleSize
  4204.  
  4205. bool wxWindowOS2::HandleGetMinMaxInfo(
  4206.   PSWP                              pSwp
  4207. )
  4208. {
  4209.     bool                            bRc = FALSE;
  4210.     POINTL                          vPoint;
  4211.  
  4212.     switch(pSwp->fl)
  4213.     {
  4214.         case SWP_MAXIMIZE:
  4215.             ::WinGetMaxPosition(GetHwnd(), pSwp);
  4216.             m_maxWidth = pSwp->cx;
  4217.             m_maxHeight = pSwp->cy;
  4218.             break;
  4219.  
  4220.         case SWP_MINIMIZE:
  4221.             ::WinGetMinPosition(GetHwnd(), pSwp, &vPoint);
  4222.             m_minWidth = pSwp->cx;
  4223.             m_minHeight = pSwp->cy;
  4224.             break;
  4225.  
  4226.         default:
  4227.             return FALSE;
  4228.     }
  4229.     return TRUE;
  4230. } // end of wxWindowOS2::HandleGetMinMaxInfo
  4231.  
  4232. // ---------------------------------------------------------------------------
  4233. // command messages
  4234. // ---------------------------------------------------------------------------
  4235. bool wxWindowOS2::HandleCommand(
  4236.   WXWORD                            wId
  4237. , WXWORD                            wCmd
  4238. , WXHWND                            hControl
  4239. )
  4240. {
  4241. #if wxUSE_MENUS_NATIVE
  4242.     if (wxCurrentPopupMenu)
  4243.     {
  4244.         wxMenu*                     pPopupMenu = wxCurrentPopupMenu;
  4245.  
  4246.         wxCurrentPopupMenu = NULL;
  4247.         return pPopupMenu->OS2Command(wCmd, wId);
  4248.     }
  4249. #endif // wxUSE_MENUS_NATIVE
  4250.  
  4251.     wxWindow*                       pWin = FindItem(wId);
  4252.  
  4253.     if (!pWin)
  4254.     {
  4255.         pWin = wxFindWinFromHandle(hControl);
  4256.     }
  4257.  
  4258.     if (pWin)
  4259.         return pWin->OS2Command(wCmd, wId);
  4260.  
  4261.     return FALSE;
  4262. } // end of wxWindowOS2::HandleCommand
  4263.  
  4264. bool wxWindowOS2::HandleSysCommand(
  4265.   WXWPARAM                          wParam
  4266. , WXLPARAM                          WXUNUSED(lParam)
  4267. )
  4268. {
  4269.     //
  4270.     // 4 bits are reserved
  4271.     //
  4272.     switch (SHORT1FROMMP(wParam))
  4273.     {
  4274.         case SC_MAXIMIZE:
  4275.             return HandleMaximize();
  4276.  
  4277.         case SC_MINIMIZE:
  4278.             return HandleMinimize();
  4279.     }
  4280.     return FALSE;
  4281. } // end of wxWindowOS2::HandleSysCommand
  4282.  
  4283. // ---------------------------------------------------------------------------
  4284. // mouse events
  4285. // ---------------------------------------------------------------------------
  4286. //TODO!!! check against MSW
  4287. void wxWindowOS2::InitMouseEvent(
  4288.   wxMouseEvent&                     rEvent
  4289. , int                               nX
  4290. , int                               nY
  4291. , WXUINT                            uFlags
  4292. )
  4293. {
  4294.     rEvent.m_x           = nX;
  4295.     rEvent.m_y           = nY;
  4296.     rEvent.m_shiftDown   = ((uFlags & VK_SHIFT) != 0);
  4297.     rEvent.m_controlDown = ((uFlags & VK_CTRL) != 0);
  4298.     rEvent.m_leftDown    = ((uFlags & VK_BUTTON1) != 0);
  4299.     rEvent.m_middleDown  = ((uFlags & VK_BUTTON3) != 0);
  4300.     rEvent.m_rightDown   = ((uFlags & VK_BUTTON2) != 0);
  4301.     rEvent.SetTimestamp(s_currentMsg.time);
  4302.     rEvent.m_eventObject = this;
  4303.     rEvent.SetId(GetId());
  4304.  
  4305. #if wxUSE_MOUSEEVENT_HACK
  4306.     m_lastMouseX = nX;
  4307.     m_lastMouseY = nY;
  4308.     m_lastMouseEvent = rEvent.GetEventType();
  4309. #endif // wxUSE_MOUSEEVENT_HACK
  4310. } // end of wxWindowOS2::InitMouseEvent
  4311.  
  4312. bool wxWindowOS2::HandleMouseEvent(
  4313.   WXUINT                            uMsg
  4314. , int                               nX
  4315. , int                               nY
  4316. , WXUINT                            uFlags
  4317. )
  4318. {
  4319.     bool                            bProcessed = FALSE;
  4320.  
  4321.     //
  4322.     // The mouse events take consecutive IDs from WM_MOUSEFIRST to
  4323.     // WM_MOUSELAST, so it's enough to substract WM_MOUSEMOVE == WM_MOUSEFIRST
  4324.     // from the message id and take the value in the table to get wxWin event
  4325.     // id
  4326.     //
  4327.     static const wxEventType eventsMouse[] =
  4328.     {
  4329.         wxEVT_MOTION,
  4330.         wxEVT_LEFT_DOWN,
  4331.         wxEVT_LEFT_UP,
  4332.         wxEVT_LEFT_DCLICK,
  4333.         wxEVT_RIGHT_DOWN,
  4334.         wxEVT_RIGHT_UP,
  4335.         wxEVT_RIGHT_DCLICK,
  4336.         wxEVT_MIDDLE_DOWN,
  4337.         wxEVT_MIDDLE_UP,
  4338.         wxEVT_MIDDLE_DCLICK
  4339.     };
  4340.  
  4341.     wxMouseEvent                    vEvent(eventsMouse[uMsg - WM_MOUSEMOVE]);
  4342.  
  4343.     InitMouseEvent( vEvent
  4344.                    ,nX
  4345.                    ,nY
  4346.                    ,uFlags
  4347.                   );
  4348.  
  4349.     bProcessed = GetEventHandler()->ProcessEvent(vEvent);
  4350.     if (!bProcessed)
  4351.     {
  4352.         HPOINTER                    hPtr = ::WinQuerySysPointer(HWND_DESKTOP, SPTR_WAIT, FALSE);
  4353.         HPOINTER                    hCursor = (HPOINTER)GetCursor().GetHCURSOR();
  4354.  
  4355.         if (hCursor != NULLHANDLE)
  4356.         {
  4357.             ::WinSetPointer(HWND_DESKTOP, hCursor);
  4358.             bProcessed = TRUE;
  4359.         }
  4360.     }
  4361.     return GetEventHandler()->ProcessEvent(vEvent);
  4362. } // end of wxWindowOS2::HandleMouseEvent
  4363.  
  4364. bool wxWindowOS2::HandleMouseMove(
  4365.   int                               nX
  4366. , int                               nY
  4367. , WXUINT                            uFlags
  4368. )
  4369. {
  4370.     if (!m_bMouseInWindow)
  4371.     {
  4372.         //
  4373.         // Generate an ENTER event
  4374.         //
  4375.         m_bMouseInWindow = TRUE;
  4376.  
  4377.         wxMouseEvent                vEvent(wxEVT_ENTER_WINDOW);
  4378.  
  4379.         InitMouseEvent( vEvent
  4380.                        ,nX
  4381.                        ,nY
  4382.                        ,uFlags
  4383.                       );
  4384.  
  4385.         (void)GetEventHandler()->ProcessEvent(vEvent);
  4386.     }
  4387.     return HandleMouseEvent( WM_MOUSEMOVE
  4388.                             ,nX
  4389.                             ,nY
  4390.                             ,uFlags
  4391.                            );
  4392. } // end of wxWindowOS2::HandleMouseMove
  4393.  
  4394. // ---------------------------------------------------------------------------
  4395. // keyboard handling
  4396. // ---------------------------------------------------------------------------
  4397.  
  4398. //
  4399. // Create the key event of the given type for the given key - used by
  4400. // HandleChar and HandleKeyDown/Up
  4401. //
  4402. wxKeyEvent wxWindowOS2::CreateKeyEvent(
  4403.   wxEventType                       eType
  4404. , int                               nId
  4405. , WXLPARAM                          lParam
  4406. , WXWPARAM                          wParam
  4407. ) const
  4408. {
  4409.     wxKeyEvent                      vEvent(eType);
  4410.  
  4411.     vEvent.SetId(GetId());
  4412.     vEvent.m_shiftDown   = IsShiftDown();
  4413.     vEvent.m_controlDown = IsCtrlDown();
  4414.     vEvent.m_altDown     = (HIWORD(lParam) & KC_ALT) == KC_ALT;
  4415.  
  4416.     vEvent.m_eventObject = (wxWindow *)this; // const_cast
  4417.     vEvent.m_keyCode     = nId;
  4418.     vEvent.m_rawCode = (wxUint32)wParam;
  4419.     vEvent.m_rawFlags = (wxUint32)lParam;
  4420.     vEvent.SetTimestamp(s_currentMsg.time);
  4421.  
  4422.     //
  4423.     // Translate the position to client coords
  4424.     //
  4425.     POINTL                          vPoint;
  4426.     RECTL                           vRect;
  4427.  
  4428.     ::WinQueryPointerPos(HWND_DESKTOP, &vPoint);
  4429.     ::WinQueryWindowRect( GetHwnd()
  4430.                          ,&vRect
  4431.                         );
  4432.  
  4433.     vPoint.x -= vRect.xLeft;
  4434.     vPoint.y -= vRect.yBottom;
  4435.  
  4436.     vEvent.m_x = vPoint.x;
  4437.     vEvent.m_y = vPoint.y;
  4438.  
  4439.     return vEvent;
  4440. } // end of wxWindowOS2::CreateKeyEvent
  4441.  
  4442. //
  4443. // isASCII is TRUE only when we're called from WM_CHAR handler and not from
  4444. // WM_KEYDOWN one
  4445. //
  4446. bool wxWindowOS2::HandleChar(
  4447.   WXWPARAM                          wParam
  4448. , WXLPARAM                          lParam
  4449. , bool                              isASCII
  4450. )
  4451. {
  4452.     bool                            bCtrlDown = FALSE;
  4453.     int                             vId;
  4454.  
  4455.     if (m_bLastKeydownProcessed)
  4456.     {
  4457.         //
  4458.         // The key was handled in the EVT_KEY_DOWN.  Handling a key in an
  4459.         // EVT_KEY_DOWN handler is meant, by design, to prevent EVT_CHARs
  4460.         // from happening, so just bail out at this point.
  4461.         //
  4462.         m_bLastKeydownProcessed = FALSE;
  4463.         return TRUE;
  4464.     }
  4465.     if (isASCII)
  4466.     {
  4467.         //
  4468.         // If 1 -> 26, translate to either special keycode or just set
  4469.         // ctrlDown.  IOW, Ctrl-C should result in keycode == 3 and
  4470.         // ControlDown() == TRUE.
  4471.         //
  4472.         vId = SHORT1FROMMP(lParam);
  4473.         if ((vId > 0) && (vId < 27))
  4474.         {
  4475.             switch (vId)
  4476.             {
  4477.                 case 13:
  4478.                     vId = WXK_RETURN;
  4479.                     break;
  4480.  
  4481.                 case 8:
  4482.                     vId = WXK_BACK;
  4483.                     break;
  4484.  
  4485.                 case 9:
  4486.                     vId = WXK_TAB;
  4487.                     break;
  4488.  
  4489.                 default:
  4490.                     bCtrlDown = TRUE;
  4491.                     break;
  4492.             }
  4493.         }
  4494.     }
  4495.     else  // we're called from WM_KEYDOWN
  4496.     {
  4497.         vId = wxCharCodeOS2ToWX((int)SHORT2FROMMP(lParam));
  4498.         if (vId == 0)
  4499.             return FALSE;
  4500.     }
  4501.  
  4502.     wxKeyEvent                      vEvent(CreateKeyEvent( wxEVT_CHAR
  4503.                                                           ,vId
  4504.                                                           ,lParam
  4505.                                                          ));
  4506.  
  4507.     if (bCtrlDown)
  4508.     {
  4509.         vEvent.m_controlDown = TRUE;
  4510.     }
  4511.     return (GetEventHandler()->ProcessEvent(vEvent));
  4512. }
  4513.  
  4514. bool wxWindowOS2::HandleKeyDown(
  4515.   WXWPARAM                          wParam
  4516. , WXLPARAM                          lParam
  4517. )
  4518. {
  4519.     int                             nId = wxCharCodeOS2ToWX((int)SHORT2FROMMP(lParam));
  4520.  
  4521.     if (!nId)
  4522.     {
  4523.         //
  4524.         // Normal ASCII char
  4525.         //
  4526.         nId = SHORT1FROMMP(lParam);
  4527.     }
  4528.  
  4529.     if (nId != -1)
  4530.     {
  4531.         wxKeyEvent                  vEvent(CreateKeyEvent( wxEVT_KEY_DOWN
  4532.                                                           ,nId
  4533.                                                           ,(MPARAM)lParam
  4534.                                                           ,(MPARAM)wParam
  4535.                                                          ));
  4536.  
  4537.         if (GetEventHandler()->ProcessEvent(vEvent))
  4538.         {
  4539.             return TRUE;
  4540.         }
  4541.     }
  4542.     return FALSE;
  4543. } // end of wxWindowOS2::HandleKeyDown
  4544.  
  4545. bool wxWindowOS2::HandleKeyUp(
  4546.   WXWPARAM                          wParam
  4547. , WXLPARAM                          lParam
  4548. )
  4549. {
  4550.     int                             nId = wxCharCodeOS2ToWX((int)SHORT2FROMMP(lParam));
  4551.  
  4552.     if (!nId)
  4553.     {
  4554.         //
  4555.         // Normal ASCII char
  4556.         //
  4557.         nId = (int)wParam;
  4558.     }
  4559.  
  4560.     if (nId != -1)
  4561.     {
  4562.         wxKeyEvent                  vEvent(CreateKeyEvent( wxEVT_KEY_UP
  4563.                                                           ,nId
  4564.                                                           ,lParam
  4565.                                                           ,wParam
  4566.                                                          ));
  4567.  
  4568.         if (GetEventHandler()->ProcessEvent(vEvent))
  4569.             return TRUE;
  4570.     }
  4571.     return FALSE;
  4572. } // end of wxWindowOS2::HandleKeyUp
  4573.  
  4574. // ---------------------------------------------------------------------------
  4575. // joystick
  4576. // ---------------------------------------------------------------------------
  4577.  
  4578. // ---------------------------------------------------------------------------
  4579. // scrolling
  4580. // ---------------------------------------------------------------------------
  4581.  
  4582. bool wxWindowOS2::OS2OnScroll(
  4583.   int                               nOrientation
  4584. , WXWORD                            wParam
  4585. , WXWORD                            wPos
  4586. , WXHWND                            hControl
  4587. )
  4588. {
  4589.     if (hControl)
  4590.     {
  4591.         wxWindow*                   pChild = wxFindWinFromHandle(hControl);
  4592.  
  4593.         if (pChild )
  4594.             return pChild->OS2OnScroll( nOrientation
  4595.                                        ,wParam
  4596.                                        ,wPos
  4597.                                        ,hControl
  4598.                                       );
  4599.     }
  4600.  
  4601.     wxScrollWinEvent                vEvent;
  4602.  
  4603.     vEvent.SetPosition(wPos);
  4604.     vEvent.SetOrientation(nOrientation);
  4605.     vEvent.m_eventObject = this;
  4606.  
  4607.     switch (wParam)
  4608.     {
  4609.         case SB_LINEUP:
  4610.             vEvent.m_eventType = wxEVT_SCROLLWIN_LINEUP;
  4611.             break;
  4612.  
  4613.         case SB_LINEDOWN:
  4614.             vEvent.m_eventType = wxEVT_SCROLLWIN_LINEDOWN;
  4615.             break;
  4616.  
  4617.         case SB_PAGEUP:
  4618.             vEvent.m_eventType = wxEVT_SCROLLWIN_PAGEUP;
  4619.             break;
  4620.  
  4621.         case SB_PAGEDOWN:
  4622.             vEvent.m_eventType = wxEVT_SCROLLWIN_PAGEDOWN;
  4623.             break;
  4624.  
  4625.         case SB_SLIDERPOSITION:
  4626.             vEvent.m_eventType = wxEVT_SCROLLWIN_THUMBRELEASE;
  4627.             break;
  4628.  
  4629.         case SB_SLIDERTRACK:
  4630.             vEvent.m_eventType = wxEVT_SCROLLWIN_THUMBTRACK;
  4631.             break;
  4632.  
  4633.         default:
  4634.             return FALSE;
  4635.     }
  4636.     return GetEventHandler()->ProcessEvent(vEvent);
  4637. } // end of wxWindowOS2::OS2OnScroll
  4638.  
  4639. void wxWindowOS2::MoveChildren(
  4640.   int                               nDiff
  4641. )
  4642. {
  4643.     //
  4644.     // We want to handle top levels ourself, manually
  4645.     //
  4646.     if (!IsTopLevel() && GetAutoLayout())
  4647.     {
  4648.         Layout();
  4649.     }
  4650.     else
  4651.     {
  4652.         SWP                         vSwp;
  4653.  
  4654.         for (wxWindowList::Node* pNode = GetChildren().GetFirst();
  4655.              pNode;
  4656.              pNode = pNode->GetNext())
  4657.         {
  4658.             wxWindow*               pWin = pNode->GetData();
  4659.  
  4660.             ::WinQueryWindowPos( GetHwndOf(pWin)
  4661.                                 ,&vSwp
  4662.                                );
  4663.             if (pWin->IsKindOf(CLASSINFO(wxControl)))
  4664.             {
  4665.                 wxControl*          pCtrl;
  4666.  
  4667.                 //
  4668.                 // Must deal with controls that have margins like ENTRYFIELD.  The SWP
  4669.                 // struct of such a control will have and origin offset from its intended
  4670.                 // position by the width of the margins.
  4671.                 //
  4672.                 pCtrl = wxDynamicCast(pWin, wxControl);
  4673.                 vSwp.y -= pCtrl->GetYComp();
  4674.                 vSwp.x -= pCtrl->GetXComp();
  4675.             }
  4676.             ::WinSetWindowPos( GetHwndOf(pWin)
  4677.                               ,HWND_TOP
  4678.                               ,vSwp.x
  4679.                               ,vSwp.y - nDiff
  4680.                               ,vSwp.cx
  4681.                               ,vSwp.cy
  4682.                               ,SWP_MOVE | SWP_SHOW | SWP_ZORDER
  4683.                              );
  4684.             ::WinQueryWindowPos(GetHwndOf(pWin), pWin->GetSwp());
  4685.             if (pWin->IsKindOf(CLASSINFO(wxRadioBox)))
  4686.             {
  4687.                 wxRadioBox*     pRadioBox;
  4688.  
  4689.                 pRadioBox = wxDynamicCast(pWin, wxRadioBox);
  4690.                 pRadioBox->AdjustButtons( (int)vSwp.x
  4691.                                          ,(int)vSwp.y - nDiff
  4692.                                          ,(int)vSwp.cx
  4693.                                          ,(int)vSwp.cy
  4694.                                          ,pRadioBox->GetSizeFlags()
  4695.                                         );
  4696.             }
  4697.             if (pWin->IsKindOf(CLASSINFO(wxSlider)))
  4698.             {
  4699.                 wxSlider*           pSlider;
  4700.  
  4701.                 pSlider = wxDynamicCast(pWin, wxSlider);
  4702.                 pSlider->AdjustSubControls( (int)vSwp.x
  4703.                                            ,(int)vSwp.y - nDiff
  4704.                                            ,(int)vSwp.cx
  4705.                                            ,(int)vSwp.cy
  4706.                                            ,(int)pSlider->GetSizeFlags()
  4707.                                           );
  4708.             }
  4709.         }
  4710.     }
  4711.     Refresh();
  4712. } // end of wxWindowOS2::MoveChildren
  4713.  
  4714. //
  4715. //  Getting the Y position for a window, like a control, is a real
  4716. //  pain.  There are three sitatuions we must deal with in determining
  4717. //  the OS2 to wxWindows Y coordinate.
  4718. //
  4719. //  1)  The controls are created in a dialog.
  4720. //      This is the easiest since a dialog is created with its original
  4721. //      size so the standard: Y = ParentHeight - (Y + ControlHeight);
  4722. //
  4723. //  2)  The controls are direct children of a frame
  4724. //      In this instance the controls are actually children of the Frame's
  4725. //      client.  During creation the frame's client resizes several times
  4726. //      during creation of the status bar and toolbars.  The CFrame class
  4727. //      will take care of this using its AlterChildPos proc.
  4728. //
  4729. //  3)  The controls are children of a panel, which in turn is a child of
  4730. //      a frame.
  4731. //      The panel may be one of many, in which case the same treatment
  4732. //      as 1 applies. It may be the only child, though.
  4733. //      This is the nastiest case.  A panel is created as the only child of
  4734. //      the frame and as such, when a frame has only one child, the child is
  4735. //      expanded to fit the entire client area of the frame.  Because the
  4736. //      controls are created BEFORE this occurs their positions are totally
  4737. //      whacked and any call to WinQueryWindowPos will return invalid
  4738. //      coordinates.  So for this situation we have to compare the size of
  4739. //      the panel at control creation time with that of the frame client.  If
  4740. //      they are the same we can use the standard Y position equation.  If
  4741. //      not, then we must use the Frame Client's dimensions to position them
  4742. //      as that will be the eventual size of the panel after the frame resizes
  4743. //      it!
  4744. //
  4745. int wxWindowOS2::GetOS2ParentHeight(
  4746.   wxWindowOS2*               pParent
  4747. )
  4748. {
  4749.     wxWindowOS2*             pGrandParent = NULL;
  4750.  
  4751.     //
  4752.     // Case 1
  4753.     //
  4754.     if (pParent->IsKindOf(CLASSINFO(wxDialog)))
  4755.         return(pParent->GetClientSize().y);
  4756.  
  4757.     //
  4758.     // Case 2 -- if we are one of the separately built standard Frame
  4759.     //           children, like a statusbar, menubar, or toolbar we want to
  4760.     //           use the frame, itself, for positioning.  Otherwise we are
  4761.     //           child window and want to use the Frame's client.
  4762.     //
  4763.     else if (pParent->IsKindOf(CLASSINFO(wxFrame)))
  4764.     {
  4765.         if (IsKindOf(CLASSINFO(wxStatusBar)) ||
  4766.             IsKindOf(CLASSINFO(wxMenuBar))   ||
  4767.             IsKindOf(CLASSINFO(wxToolBar))
  4768.            )
  4769.         {
  4770.             if (IsKindOf(CLASSINFO(wxToolBar)))
  4771.             {
  4772.                 wxFrame*            pFrame = wxDynamicCast(GetParent(), wxFrame);
  4773.  
  4774.                 if (pFrame->GetToolBar() == this)
  4775.                     return(pParent->GetSize().y);
  4776.                 else
  4777.                     return(pParent->GetClientSize().y);
  4778.             }
  4779.             else
  4780.                 return(pParent->GetSize().y);
  4781.         }
  4782.         else
  4783.             return(pParent->GetClientSize().y);
  4784.     }
  4785.     //
  4786.     // Case -- this is for any window that is the sole child of a Frame.
  4787.     //         The grandparent must exist and it must be of type CFrame
  4788.     //         and it's height must be different. Otherwise the standard
  4789.     //         applies.
  4790.     //
  4791.     else
  4792.     {
  4793.         return(pParent->GetClientSize().y);
  4794.     }
  4795.     return(0L);
  4796. } // end of wxWindowOS2::GetOS2ParentHeight
  4797.  
  4798. //
  4799. // OS/2 needs a lot extra manipulation to deal with layouts
  4800. // for canvas windows, particularly scrolled ones.
  4801. //
  4802. wxWindowCreationHook::wxWindowCreationHook(
  4803.   wxWindow*                         pWinBeingCreated
  4804. )
  4805. {
  4806.     gpWinBeingCreated = pWinBeingCreated;
  4807. } // end of wxWindowCreationHook::wxWindowCreationHook
  4808.  
  4809. wxWindowCreationHook::~wxWindowCreationHook()
  4810. {
  4811.     gpWinBeingCreated = NULL;
  4812. } // end of wxWindowCreationHook::~wxWindowCreationHook
  4813.  
  4814. // ===========================================================================
  4815. // global functions
  4816. // ===========================================================================
  4817.  
  4818. void wxGetCharSize(
  4819.   WXHWND                            hWnd
  4820. , int*                              pX
  4821. , int*                              pY
  4822. ,wxFont*                            WXUNUSED(pTheFont)
  4823. )
  4824. {
  4825.     FONTMETRICS                     vFM;
  4826.     HPS                             hPS;
  4827.     BOOL                            rc;
  4828.  
  4829.     hPS =::WinGetPS(hWnd);
  4830.  
  4831.     rc = ::GpiQueryFontMetrics(hPS, sizeof(FONTMETRICS), &vFM);
  4832.     if (rc)
  4833.     {
  4834.         if (pX)
  4835.             *pX = vFM.lAveCharWidth;
  4836.         if (pY)
  4837.             *pY = vFM.lEmHeight + vFM.lExternalLeading;
  4838.     }
  4839.     else
  4840.     {
  4841.         if (pX)
  4842.             *pX = 10;
  4843.         if (pY)
  4844.             *pY = 15;
  4845.     }
  4846.     ::WinReleasePS(hPS);
  4847. } // end of wxGetCharSize
  4848.  
  4849. //
  4850. // Returns 0 if was a normal ASCII value, not a special key. This indicates that
  4851. // the key should be ignored by WM_KEYDOWN and processed by WM_CHAR instead.
  4852. //
  4853. int wxCharCodeOS2ToWX(
  4854.   int                               nKeySym
  4855. )
  4856. {
  4857.     int                             nId = 0;
  4858.  
  4859.     switch (nKeySym)
  4860.     {
  4861.         case VK_BACKTAB:    nId = WXK_BACK; break;
  4862.         case VK_TAB:        nId = WXK_TAB; break;
  4863.         case VK_CLEAR:      nId = WXK_CLEAR; break;
  4864.         case VK_ENTER:      nId = WXK_RETURN; break;
  4865.         case VK_SHIFT:      nId = WXK_SHIFT; break;
  4866.         case VK_CTRL:       nId = WXK_CONTROL; break;
  4867.         case VK_PAUSE:      nId = WXK_PAUSE; break;
  4868.         case VK_SPACE:      nId = WXK_SPACE; break;
  4869.         case VK_ESC:        nId = WXK_ESCAPE; break;
  4870.         case VK_END:        nId = WXK_END; break;
  4871.         case VK_HOME :      nId = WXK_HOME; break;
  4872.         case VK_LEFT :      nId = WXK_LEFT; break;
  4873.         case VK_UP:         nId = WXK_UP; break;
  4874.         case VK_RIGHT:      nId = WXK_RIGHT; break;
  4875.         case VK_DOWN :      nId = WXK_DOWN; break;
  4876.         case VK_PRINTSCRN:  nId = WXK_PRINT; break;
  4877.         case VK_INSERT:     nId = WXK_INSERT; break;
  4878.         case VK_DELETE:     nId = WXK_DELETE; break;
  4879.         case VK_CAPSLOCK:   nId = WXK_CAPITAL; break;
  4880.         case VK_F1:         nId = WXK_F1; break;
  4881.         case VK_F2:         nId = WXK_F2; break;
  4882.         case VK_F3:         nId = WXK_F3; break;
  4883.         case VK_F4:         nId = WXK_F4; break;
  4884.         case VK_F5:         nId = WXK_F5; break;
  4885.         case VK_F6:         nId = WXK_F6; break;
  4886.         case VK_F7:         nId = WXK_F7; break;
  4887.         case VK_F8:         nId = WXK_F8; break;
  4888.         case VK_F9:         nId = WXK_F9; break;
  4889.         case VK_F10:        nId = WXK_F10; break;
  4890.         case VK_F11:        nId = WXK_F11; break;
  4891.         case VK_F12:        nId = WXK_F12; break;
  4892.         case VK_F13:        nId = WXK_F13; break;
  4893.         case VK_F14:        nId = WXK_F14; break;
  4894.         case VK_F15:        nId = WXK_F15; break;
  4895.         case VK_F16:        nId = WXK_F16; break;
  4896.         case VK_F17:        nId = WXK_F17; break;
  4897.         case VK_F18:        nId = WXK_F18; break;
  4898.         case VK_F19:        nId = WXK_F19; break;
  4899.         case VK_F20:        nId = WXK_F20; break;
  4900.         case VK_F21:        nId = WXK_F21; break;
  4901.         case VK_F22:        nId = WXK_F22; break;
  4902.         case VK_F23:        nId = WXK_F23; break;
  4903.         case VK_F24:        nId = WXK_F24; break;
  4904.         case VK_OEM_1:      nId = ';'; break;
  4905.         case VK_OEM_PLUS:   nId = '+'; break;
  4906.         case VK_OEM_COMMA:  nId = ','; break;
  4907.         case VK_OEM_MINUS:  nId = '-'; break;
  4908.         case VK_OEM_PERIOD: nId = '.'; break;
  4909.         case VK_OEM_2:      nId = '/'; break;
  4910.         case VK_OEM_3:      nId = '~'; break;
  4911.         case VK_OEM_4:      nId = '['; break;
  4912.         case VK_OEM_5:      nId = '\\'; break;
  4913.         case VK_OEM_6:      nId = ']'; break;
  4914.         case VK_OEM_7:      nId = '\''; break;
  4915.         case VK_NUMLOCK:    nId = WXK_NUMLOCK; break;
  4916.         case VK_SCRLLOCK:   nId = WXK_SCROLL; break;
  4917.         default:
  4918.         {
  4919.             return 0;
  4920.         }
  4921.     }
  4922.     return nId;
  4923. } // end of wxCharCodeOS2ToWX
  4924.  
  4925. int wxCharCodeWXToOS2(
  4926.   int                               nId
  4927. , bool*                             bIsVirtual
  4928. )
  4929. {
  4930.     int                             nKeySym = 0;
  4931.  
  4932.     *bIsVirtual = TRUE;
  4933.     switch (nId)
  4934.     {
  4935.         case WXK_CLEAR:     nKeySym = VK_CLEAR; break;
  4936.         case WXK_SHIFT:     nKeySym = VK_SHIFT; break;
  4937.         case WXK_CONTROL:   nKeySym = VK_CTRL; break;
  4938.         case WXK_PAUSE:     nKeySym = VK_PAUSE; break;
  4939.         case WXK_END:       nKeySym = VK_END; break;
  4940.         case WXK_HOME :     nKeySym = VK_HOME; break;
  4941.         case WXK_LEFT :     nKeySym = VK_LEFT; break;
  4942.         case WXK_UP:        nKeySym = VK_UP; break;
  4943.         case WXK_RIGHT:     nKeySym = VK_RIGHT; break;
  4944.         case WXK_DOWN :     nKeySym = VK_DOWN; break;
  4945.         case WXK_PRINT:     nKeySym = VK_PRINTSCRN; break;
  4946.         case WXK_INSERT:    nKeySym = VK_INSERT; break;
  4947.         case WXK_DELETE:    nKeySym = VK_DELETE; break;
  4948.         case WXK_F1:        nKeySym = VK_F1; break;
  4949.         case WXK_F2:        nKeySym = VK_F2; break;
  4950.         case WXK_F3:        nKeySym = VK_F3; break;
  4951.         case WXK_F4:        nKeySym = VK_F4; break;
  4952.         case WXK_F5:        nKeySym = VK_F5; break;
  4953.         case WXK_F6:        nKeySym = VK_F6; break;
  4954.         case WXK_F7:        nKeySym = VK_F7; break;
  4955.         case WXK_F8:        nKeySym = VK_F8; break;
  4956.         case WXK_F9:        nKeySym = VK_F9; break;
  4957.         case WXK_F10:       nKeySym = VK_F10; break;
  4958.         case WXK_F11:       nKeySym = VK_F11; break;
  4959.         case WXK_F12:       nKeySym = VK_F12; break;
  4960.         case WXK_F13:       nKeySym = VK_F13; break;
  4961.         case WXK_F14:       nKeySym = VK_F14; break;
  4962.         case WXK_F15:       nKeySym = VK_F15; break;
  4963.         case WXK_F16:       nKeySym = VK_F16; break;
  4964.         case WXK_F17:       nKeySym = VK_F17; break;
  4965.         case WXK_F18:       nKeySym = VK_F18; break;
  4966.         case WXK_F19:       nKeySym = VK_F19; break;
  4967.         case WXK_F20:       nKeySym = VK_F20; break;
  4968.         case WXK_F21:       nKeySym = VK_F21; break;
  4969.         case WXK_F22:       nKeySym = VK_F22; break;
  4970.         case WXK_F23:       nKeySym = VK_F23; break;
  4971.         case WXK_F24:       nKeySym = VK_F24; break;
  4972.         case WXK_NUMLOCK:   nKeySym = VK_NUMLOCK; break;
  4973.         case WXK_SCROLL:    nKeySym = VK_SCRLLOCK; break;
  4974.         default:
  4975.         {
  4976.             *bIsVirtual = FALSE;
  4977.             nKeySym = nId;
  4978.             break;
  4979.         }
  4980.     }
  4981.     return nKeySym;
  4982. } // end of wxCharCodeWXToOS2
  4983.  
  4984. wxWindow* wxGetActiveWindow()
  4985. {
  4986.     HWND                            hWnd = ::WinQueryActiveWindow(HWND_DESKTOP);
  4987.  
  4988.     if (hWnd != 0)
  4989.     {
  4990.         return wxFindWinFromHandle((WXHWND)hWnd);
  4991.     }
  4992.     return NULL;
  4993. } // end of wxGetActiveWindow
  4994.  
  4995. #ifdef __WXDEBUG__
  4996. const char* wxGetMessageName(
  4997.   int                               nMessage)
  4998. {
  4999.     switch (nMessage)
  5000.     {
  5001.         case 0x0000: return "WM_NULL";
  5002.         case 0x0001: return "WM_CREATE";
  5003.         case 0x0002: return "WM_DESTROY";
  5004.         case 0x0004: return "WM_ENABLE";
  5005.         case 0x0005: return "WM_SHOW";
  5006.         case 0x0006: return "WM_MOVE";
  5007.         case 0x0007: return "WM_SIZE";
  5008.         case 0x0008: return "WM_ADJUSTWINDOWPOS";
  5009.         case 0x0009: return "WM_CALCVALIDRECTS";
  5010.         case 0x000A: return "WM_SETWINDOWPARAMS";
  5011.         case 0x000B: return "WM_QUERYWINDOWPARAMS";
  5012.         case 0x000C: return "WM_HITTEST";
  5013.         case 0x000D: return "WM_ACTIVATE";
  5014.         case 0x000F: return "WM_SETFOCUS";
  5015.         case 0x0010: return "WM_SETSELECTION";
  5016.         case 0x0011: return "WM_PPAINT";
  5017.         case 0x0012: return "WM_PSETFOCUS";
  5018.         case 0x0013: return "WM_PSYSCOLORCHANGE";
  5019.         case 0x0014: return "WM_PSIZE";
  5020.         case 0x0015: return "WM_PACTIVATE";
  5021.         case 0x0016: return "WM_PCONTROL";
  5022.         case 0x0020: return "WM_COMMAND";
  5023.         case 0x0021: return "WM_SYSCOMMAND";
  5024.         case 0x0022: return "WM_HELP";
  5025.         case 0x0023: return "WM_PAINT";
  5026.         case 0x0024: return "WM_TIMER";
  5027.         case 0x0025: return "WM_SEM1";
  5028.         case 0x0026: return "WM_SEM2";
  5029.         case 0x0027: return "WM_SEM3";
  5030.         case 0x0028: return "WM_SEM4";
  5031.         case 0x0029: return "WM_CLOSE";
  5032.         case 0x002A: return "WM_QUIT";
  5033.         case 0x002B: return "WM_SYSCOLORCHANGE";
  5034.         case 0x002D: return "WM_SYSVALUECHANGE";
  5035.         case 0x002E: return "WM_APPTERMINATENOTIFY";
  5036.         case 0x002F: return "WM_PRESPARAMCHANGED";
  5037.         // Control notification messages
  5038.         case 0x0030: return "WM_CONTROL";
  5039.         case 0x0031: return "WM_VSCROLL";
  5040.         case 0x0032: return "WM_HSCROLL";
  5041.         case 0x0033: return "WM_INITMENU";
  5042.         case 0x0034: return "WM_MENUSELECT";
  5043.         case 0x0035: return "WM_MENUSEND";
  5044.         case 0x0036: return "WM_DRAWITEM";
  5045.         case 0x0037: return "WM_MEASUREITEM";
  5046.         case 0x0038: return "WM_CONTROLPOINTER";
  5047.         case 0x003A: return "WM_QUERYDLGCODE";
  5048.         case 0x003B: return "WM_INITDLG";
  5049.         case 0x003C: return "WM_SUBSTITUTESTRING";
  5050.         case 0x003D: return "WM_MATCHMNEMONIC";
  5051.         case 0x003E: return "WM_SAVEAPPLICATION";
  5052.         case 0x0129: return "WM_CTLCOLORCHANGE";
  5053.         case 0x0130: return "WM_QUERYCTLTYPE";
  5054.         // Frame messages
  5055.         case 0x0040: return "WM_FLASHWINDOW";
  5056.         case 0x0041: return "WM_FORMATFRAME";
  5057.         case 0x0042: return "WM_UPDATEFRAME";
  5058.         case 0x0043: return "WM_FOCUSCHANGE";
  5059.         case 0x0044: return "WM_SETBORDERSIZE";
  5060.         case 0x0045: return "WM_TRACKFRAME";
  5061.         case 0x0046: return "WM_MINMAXFRAME";
  5062.         case 0x0047: return "WM_SETICON";
  5063.         case 0x0048: return "WM_QUERYICON";
  5064.         case 0x0049: return "WM_SETACCELTABLE";
  5065.         case 0x004A: return "WM_QUERYACCELTABLE";
  5066.         case 0x004B: return "WM_TRANSLATEACCEL";
  5067.         case 0x004C: return "WM_QUERYTRACKINFO";
  5068.         case 0x004D: return "WM_QUERYBORDERSIZE";
  5069.         case 0x004E: return "WM_NEXTMENU";
  5070.         case 0x004F: return "WM_ERASEBACKGROUND";
  5071.         case 0x0050: return "WM_QUERYFRAMEINFO";
  5072.         case 0x0051: return "WM_QUERYFOCUSCHAIN";
  5073.         case 0x0052: return "WM_OWNERPOSCHANGE";
  5074.         case 0x0053: return "WM_CACLFRAMERECT";
  5075.         case 0x0055: return "WM_WINDOWPOSCHANGED";
  5076.         case 0x0056: return "WM_ADJUSTFRAMEPOS";
  5077.         case 0x0059: return "WM_QUERYFRAMECTLCOUNT";
  5078.         case 0x005B: return "WM_QUERYHELPINFO";
  5079.         case 0x005C: return "WM_SETHELPINFO";
  5080.         case 0x005D: return "WM_ERROR";
  5081.         case 0x005E: return "WM_REALIZEPALETTE";
  5082.         // Clipboard messages
  5083.         case 0x0060: return "WM_RENDERFMT";
  5084.         case 0x0061: return "WM_RENDERALLFMTS";
  5085.         case 0x0062: return "WM_DESTROYCLIPBOARD";
  5086.         case 0x0063: return "WM_PAINTCLIPBOARD";
  5087.         case 0x0064: return "WM_SIZECLIPBOARD";
  5088.         case 0x0065: return "WM_HSCROLLCLIPBOARD";
  5089.         case 0x0066: return "WM_VSCROLLCLIPBOARD";
  5090.         case 0x0067: return "WM_DRAWCLIPBOARD";
  5091.         // mouse messages
  5092.         case 0x0070: return "WM_MOUSEMOVE";
  5093.         case 0x0071: return "WM_BUTTON1DOWN";
  5094.         case 0x0072: return "WM_BUTTON1UP";
  5095.         case 0x0073: return "WM_BUTTON1DBLCLK";
  5096.         case 0x0074: return "WM_BUTTON2DOWN";
  5097.         case 0x0075: return "WM_BUTTON2UP";
  5098.         case 0x0076: return "WM_BUTTON2DBLCLK";
  5099.         case 0x0077: return "WM_BUTTON3DOWN";
  5100.         case 0x0078: return "WM_BUTTON3UP";
  5101.         case 0x0079: return "WM_BUTTON3DBLCLK";
  5102.         case 0x007D: return "WM_MOUSEMAP";
  5103.         case 0x007E: return "WM_VRNDISABLED";
  5104.         case 0x007F: return "WM_VRNENABLED";
  5105.         case 0x0410: return "WM_CHORD";
  5106.         case 0x0411: return "WM_BUTTON1MOTIONSTART";
  5107.         case 0x0412: return "WM_BUTTON1MOTIONEND";
  5108.         case 0x0413: return "WM_BUTTON1CLICK";
  5109.         case 0x0414: return "WM_BUTTON2MOTIONSTART";
  5110.         case 0x0415: return "WM_BUTTON2MOTIONEND";
  5111.         case 0x0416: return "WM_BUTTON2CLICK";
  5112.         case 0x0417: return "WM_BUTTON3MOTIONSTART";
  5113.         case 0x0418: return "WM_BUTTON3MOTIONEND";
  5114.         case 0x0419: return "WM_BUTTON3CLICK";
  5115.         case 0x0420: return "WM_BEGINDRAG";
  5116.         case 0x0421: return "WM_ENDDRAG";
  5117.         case 0x0422: return "WM_SINGLESELECT";
  5118.         case 0x0423: return "WM_OPEN";
  5119.         case 0x0424: return "WM_CONTEXTMENU";
  5120.         case 0x0425: return "WM_CONTEXTHELP";
  5121.         case 0x0426: return "WM_TEXTEDIT";
  5122.         case 0x0427: return "WM_BEGINSELECT";
  5123.         case 0x0228: return "WM_ENDSELECT";
  5124.         case 0x0429: return "WM_PICKUP";
  5125.         case 0x04C0: return "WM_PENFIRST";
  5126.         case 0x04FF: return "WM_PENLAST";
  5127.         case 0x0500: return "WM_MMPMFIRST";
  5128.         case 0x05FF: return "WM_MMPMLAST";
  5129.         case 0x0600: return "WM_STDDLGFIRST";
  5130.         case 0x06FF: return "WM_STDDLGLAST";
  5131.         case 0x0BD0: return "WM_BIDI_FIRST";
  5132.         case 0x0BFF: return "WM_BIDI_LAST";
  5133.         // keyboard input
  5134.         case 0x007A: return "WM_CHAR";
  5135.         case 0x007B: return "WM_VIOCHAR";
  5136.         // DDE messages
  5137.         case 0x00A0: return "WM_DDE_INITIATE";
  5138.         case 0x00A1: return "WM_DDE_REQUEST";
  5139.         case 0x00A2: return "WM_DDE_ACK";
  5140.         case 0x00A3: return "WM_DDE_DATA";
  5141.         case 0x00A4: return "WM_DDE_ADVISE";
  5142.         case 0x00A5: return "WM_DDE_UNADVISE";
  5143.         case 0x00A6: return "WM_DDE_POKE";
  5144.         case 0x00A7: return "WM_DDE_EXECUTE";
  5145.         case 0x00A8: return "WM_DDE_TERMINATE";
  5146.         case 0x00A9: return "WM_DDE_INITIATEACK";
  5147.         case 0x00AF: return "WM_DDE_LAST";
  5148.         // Buttons
  5149.         case 0x0120: return "BM_CLICK";
  5150.         case 0x0121: return "BM_QUERYCHECKINDEX";
  5151.         case 0x0122: return "BM_QUERYHILITE";
  5152.         case 0x0123: return "BM_SETHILITE";
  5153.         case 0x0124: return "BM_QUERYCHECK";
  5154.         case 0x0125: return "BM_SETCHECK";
  5155.         case 0x0126: return "BM_SETDEFAULT";
  5156.         case 0x0128: return "BM_AUTOSIZE";
  5157.         // Combo boxes
  5158.         case 0x029A: return "CBID_LIST";
  5159.         case 0x029B: return "CBID_EDIT";
  5160.         case 0x0170: return "CBM_SHOWLIST";
  5161.         case 0x0171: return "CBM_HILITE";
  5162.         case 0x0172: return "CBM_ISLISTSHOWING";
  5163.         // Edit fields
  5164.         case 0x0140: return "EM_QUERYCHANGED";
  5165.         case 0x0141: return "EM_QUERYSEL";
  5166.         case 0x0142: return "EM_SETSEL";
  5167.         case 0x0143: return "EM_SETTEXTLIMIT";
  5168.         case 0x0144: return "EM_CUT";
  5169.         case 0x0145: return "EM_COPY";
  5170.         case 0x0146: return "EM_CLEAR";
  5171.         case 0x0147: return "EM_PASTE";
  5172.         case 0x0148: return "EM_QUERYFIRSTCHAR";
  5173.         case 0x0149: return "EM_SETFIRSTCHAR";
  5174.         case 0x014A: return "EM_QUERYREADONLY";
  5175.         case 0x014B: return "EM_SETREADONLY";
  5176.         case 0x014C: return "EM_SETINSERTMODE";
  5177.         // Listboxes
  5178.         case 0x0160: return "LM_QUERYITEMCOUNT";
  5179.         case 0x0161: return "LM_INSERTITEM";
  5180.         case 0x0162: return "LM_SETOPENINDEX";
  5181.         case 0x0163: return "LM_DELETEITEM";
  5182.         case 0x0164: return "LM_SELECTITEM";
  5183.         case 0x0165: return "LM_QUERYSELECTION";
  5184.         case 0x0166: return "LM_SETITEMTEXT";
  5185.         case 0x0167: return "LM_QUERYITEMTEXTLENGTH";
  5186.         case 0x0168: return "LM_QUERYITEMTEXT";
  5187.         case 0x0169: return "LM_SETITEMHANDLE";
  5188.         case 0x016A: return "LM_QUERYITEMHANDLE";
  5189.         case 0x016B: return "LM_SEARCHSTRING";
  5190.         case 0x016C: return "LM_SETITEMHEIGHT";
  5191.         case 0x016D: return "LM_QUERYTOPINDEX";
  5192.         case 0x016E: return "LM_DELETEALL";
  5193.         case 0x016F: return "LM_INSERTMULITEMS";
  5194.         case 0x0660: return "LM_SETITEMWIDTH";
  5195.         // Menus
  5196.         case 0x0180: return "MM_INSERTITEM";
  5197.         case 0x0181: return "MM_DELETEITEM";
  5198.         case 0x0182: return "MM_QUERYITEM";
  5199.         case 0x0183: return "MM_SETITEM";
  5200.         case 0x0184: return "MM_QUERYITEMCOUNT";
  5201.         case 0x0185: return "MM_STARTMENUMODE";
  5202.         case 0x0186: return "MM_ENDMENUMODE";
  5203.         case 0x0188: return "MM_REMOVEITEM";
  5204.         case 0x0189: return "MM_SELECTITEM";
  5205.         case 0x018A: return "MM_QUERYSELITEMID";
  5206.         case 0x018B: return "MM_QUERYITEMTEXT";
  5207.         case 0x018C: return "MM_QUERYITEMTEXTLENGTH";
  5208.         case 0x018D: return "MM_SETITEMHANDLE";
  5209.         case 0x018E: return "MM_SETITEMTEXT";
  5210.         case 0x018F: return "MM_ITEMPOSITIONFROMID";
  5211.         case 0x0190: return "MM_ITEMIDFROMPOSITION";
  5212.         case 0x0191: return "MM_QUERYITEMATTR";
  5213.         case 0x0192: return "MM_SETITEMATTR";
  5214.         case 0x0193: return "MM_ISITEMVALID";
  5215.         case 0x0194: return "MM_QUERYITEMRECT";
  5216.         case 0x0431: return "MM_QUERYDEFAULTITEMID";
  5217.         case 0x0432: return "MM_SETDEFAULTITEMID";
  5218.         // Scrollbars
  5219.         case 0x01A0: return "SBM_SETSCROLLBAR";
  5220.         case 0x01A1: return "SBM_SETPOS";
  5221.         case 0x01A2: return "SBM_QUERYPOS";
  5222.         case 0x01A3: return "SBM_QUERYRANGE";
  5223.         case 0x01A6: return "SBM_SETTHUMBSIZE";
  5224.  
  5225.         // Help messages
  5226.         case 0x0F00: return "WM_HELPBASE";
  5227.         case 0x0FFF: return "WM_HELPTOP";
  5228.         // Beginning of user defined messages
  5229.         case 0x1000: return "WM_USER";
  5230.  
  5231.         // wxWindows user defined types
  5232.  
  5233.         // listview
  5234.         // case 0x1000 + 0: return "LVM_GETBKCOLOR";
  5235.         case 0x1000 + 1: return "LVM_SETBKCOLOR";
  5236.         case 0x1000 + 2: return "LVM_GETIMAGELIST";
  5237.         case 0x1000 + 3: return "LVM_SETIMAGELIST";
  5238.         case 0x1000 + 4: return "LVM_GETITEMCOUNT";
  5239.         case 0x1000 + 5: return "LVM_GETITEMA";
  5240.         case 0x1000 + 75: return "LVM_GETITEMW";
  5241.         case 0x1000 + 6: return "LVM_SETITEMA";
  5242.         case 0x1000 + 76: return "LVM_SETITEMW";
  5243.         case 0x1000 + 7: return "LVM_INSERTITEMA";
  5244.         case 0x1000 + 77: return "LVM_INSERTITEMW";
  5245.         case 0x1000 + 8: return "LVM_DELETEITEM";
  5246.         case 0x1000 + 9: return "LVM_DELETEALLITEMS";
  5247.         case 0x1000 + 10: return "LVM_GETCALLBACKMASK";
  5248.         case 0x1000 + 11: return "LVM_SETCALLBACKMASK";
  5249.         case 0x1000 + 12: return "LVM_GETNEXTITEM";
  5250.         case 0x1000 + 13: return "LVM_FINDITEMA";
  5251.         case 0x1000 + 83: return "LVM_FINDITEMW";
  5252.         case 0x1000 + 14: return "LVM_GETITEMRECT";
  5253.         case 0x1000 + 15: return "LVM_SETITEMPOSITION";
  5254.         case 0x1000 + 16: return "LVM_GETITEMPOSITION";
  5255.         case 0x1000 + 17: return "LVM_GETSTRINGWIDTHA";
  5256.         case 0x1000 + 87: return "LVM_GETSTRINGWIDTHW";
  5257.         case 0x1000 + 18: return "LVM_HITTEST";
  5258.         case 0x1000 + 19: return "LVM_ENSUREVISIBLE";
  5259.         case 0x1000 + 20: return "LVM_SCROLL";
  5260.         case 0x1000 + 21: return "LVM_REDRAWITEMS";
  5261.         case 0x1000 + 22: return "LVM_ARRANGE";
  5262.         case 0x1000 + 23: return "LVM_EDITLABELA";
  5263.         case 0x1000 + 118: return "LVM_EDITLABELW";
  5264.         case 0x1000 + 24: return "LVM_GETEDITCONTROL";
  5265.         case 0x1000 + 25: return "LVM_GETCOLUMNA";
  5266.         case 0x1000 + 95: return "LVM_GETCOLUMNW";
  5267.         case 0x1000 + 26: return "LVM_SETCOLUMNA";
  5268.         case 0x1000 + 96: return "LVM_SETCOLUMNW";
  5269.         case 0x1000 + 27: return "LVM_INSERTCOLUMNA";
  5270.         case 0x1000 + 97: return "LVM_INSERTCOLUMNW";
  5271.         case 0x1000 + 28: return "LVM_DELETECOLUMN";
  5272.         case 0x1000 + 29: return "LVM_GETCOLUMNWIDTH";
  5273.         case 0x1000 + 30: return "LVM_SETCOLUMNWIDTH";
  5274.         case 0x1000 + 31: return "LVM_GETHEADER";
  5275.         case 0x1000 + 33: return "LVM_CREATEDRAGIMAGE";
  5276.         case 0x1000 + 34: return "LVM_GETVIEWRECT";
  5277.         case 0x1000 + 35: return "LVM_GETTEXTCOLOR";
  5278.         case 0x1000 + 36: return "LVM_SETTEXTCOLOR";
  5279.         case 0x1000 + 37: return "LVM_GETTEXTBKCOLOR";
  5280.         case 0x1000 + 38: return "LVM_SETTEXTBKCOLOR";
  5281.         case 0x1000 + 39: return "LVM_GETTOPINDEX";
  5282.         case 0x1000 + 40: return "LVM_GETCOUNTPERPAGE";
  5283.         case 0x1000 + 41: return "LVM_GETORIGIN";
  5284.         case 0x1000 + 42: return "LVM_UPDATE";
  5285.         case 0x1000 + 43: return "LVM_SETITEMSTATE";
  5286.         case 0x1000 + 44: return "LVM_GETITEMSTATE";
  5287.         case 0x1000 + 45: return "LVM_GETITEMTEXTA";
  5288.         case 0x1000 + 115: return "LVM_GETITEMTEXTW";
  5289.         case 0x1000 + 46: return "LVM_SETITEMTEXTA";
  5290.         case 0x1000 + 116: return "LVM_SETITEMTEXTW";
  5291.         case 0x1000 + 47: return "LVM_SETITEMCOUNT";
  5292.         case 0x1000 + 48: return "LVM_SORTITEMS";
  5293.         case 0x1000 + 49: return "LVM_SETITEMPOSITION32";
  5294.         case 0x1000 + 50: return "LVM_GETSELECTEDCOUNT";
  5295.         case 0x1000 + 51: return "LVM_GETITEMSPACING";
  5296.         case 0x1000 + 52: return "LVM_GETISEARCHSTRINGA";
  5297.         case 0x1000 + 117: return "LVM_GETISEARCHSTRINGW";
  5298.         case 0x1000 + 53: return "LVM_SETICONSPACING";
  5299.         case 0x1000 + 54: return "LVM_SETEXTENDEDLISTVIEWSTYLE";
  5300.         case 0x1000 + 55: return "LVM_GETEXTENDEDLISTVIEWSTYLE";
  5301.         case 0x1000 + 56: return "LVM_GETSUBITEMRECT";
  5302.         case 0x1000 + 57: return "LVM_SUBITEMHITTEST";
  5303.         case 0x1000 + 58: return "LVM_SETCOLUMNORDERARRAY";
  5304.         case 0x1000 + 59: return "LVM_GETCOLUMNORDERARRAY";
  5305.         case 0x1000 + 60: return "LVM_SETHOTITEM";
  5306.         case 0x1000 + 61: return "LVM_GETHOTITEM";
  5307.         case 0x1000 + 62: return "LVM_SETHOTCURSOR";
  5308.         case 0x1000 + 63: return "LVM_GETHOTCURSOR";
  5309.         case 0x1000 + 64: return "LVM_APPROXIMATEVIEWRECT";
  5310.         case 0x1000 + 65: return "LVM_SETWORKAREA";
  5311.  
  5312.         // tree view
  5313.         case 0x1100 + 0: return "TVM_INSERTITEMA";
  5314.         case 0x1100 + 50: return "TVM_INSERTITEMW";
  5315.         case 0x1100 + 1: return "TVM_DELETEITEM";
  5316.         case 0x1100 + 2: return "TVM_EXPAND";
  5317.         case 0x1100 + 4: return "TVM_GETITEMRECT";
  5318.         case 0x1100 + 5: return "TVM_GETCOUNT";
  5319.         case 0x1100 + 6: return "TVM_GETINDENT";
  5320.         case 0x1100 + 7: return "TVM_SETINDENT";
  5321.         case 0x1100 + 8: return "TVM_GETIMAGELIST";
  5322.         case 0x1100 + 9: return "TVM_SETIMAGELIST";
  5323.         case 0x1100 + 10: return "TVM_GETNEXTITEM";
  5324.         case 0x1100 + 11: return "TVM_SELECTITEM";
  5325.         case 0x1100 + 12: return "TVM_GETITEMA";
  5326.         case 0x1100 + 62: return "TVM_GETITEMW";
  5327.         case 0x1100 + 13: return "TVM_SETITEMA";
  5328.         case 0x1100 + 63: return "TVM_SETITEMW";
  5329.         case 0x1100 + 14: return "TVM_EDITLABELA";
  5330.         case 0x1100 + 65: return "TVM_EDITLABELW";
  5331.         case 0x1100 + 15: return "TVM_GETEDITCONTROL";
  5332.         case 0x1100 + 16: return "TVM_GETVISIBLECOUNT";
  5333.         case 0x1100 + 17: return "TVM_HITTEST";
  5334.         case 0x1100 + 18: return "TVM_CREATEDRAGIMAGE";
  5335.         case 0x1100 + 19: return "TVM_SORTCHILDREN";
  5336.         case 0x1100 + 20: return "TVM_ENSUREVISIBLE";
  5337.         case 0x1100 + 21: return "TVM_SORTCHILDRENCB";
  5338.         case 0x1100 + 22: return "TVM_ENDEDITLABELNOW";
  5339.         case 0x1100 + 23: return "TVM_GETISEARCHSTRINGA";
  5340.         case 0x1100 + 64: return "TVM_GETISEARCHSTRINGW";
  5341.         case 0x1100 + 24: return "TVM_SETTOOLTIPS";
  5342.         case 0x1100 + 25: return "TVM_GETTOOLTIPS";
  5343.  
  5344.         // header
  5345.         case 0x1200 + 0: return "HDM_GETITEMCOUNT";
  5346.         case 0x1200 + 1: return "HDM_INSERTITEMA";
  5347.         case 0x1200 + 10: return "HDM_INSERTITEMW";
  5348.         case 0x1200 + 2: return "HDM_DELETEITEM";
  5349.         case 0x1200 + 3: return "HDM_GETITEMA";
  5350.         case 0x1200 + 11: return "HDM_GETITEMW";
  5351.         case 0x1200 + 4: return "HDM_SETITEMA";
  5352.         case 0x1200 + 12: return "HDM_SETITEMW";
  5353.         case 0x1200 + 5: return "HDM_LAYOUT";
  5354.         case 0x1200 + 6: return "HDM_HITTEST";
  5355.         case 0x1200 + 7: return "HDM_GETITEMRECT";
  5356.         case 0x1200 + 8: return "HDM_SETIMAGELIST";
  5357.         case 0x1200 + 9: return "HDM_GETIMAGELIST";
  5358.         case 0x1200 + 15: return "HDM_ORDERTOINDEX";
  5359.         case 0x1200 + 16: return "HDM_CREATEDRAGIMAGE";
  5360.         case 0x1200 + 17: return "HDM_GETORDERARRAY";
  5361.         case 0x1200 + 18: return "HDM_SETORDERARRAY";
  5362.         case 0x1200 + 19: return "HDM_SETHOTDIVIDER";
  5363.  
  5364.         // tab control
  5365.         case 0x1300 + 2: return "TCM_GETIMAGELIST";
  5366.         case 0x1300 + 3: return "TCM_SETIMAGELIST";
  5367.         case 0x1300 + 4: return "TCM_GETITEMCOUNT";
  5368.         case 0x1300 + 5: return "TCM_GETITEMA";
  5369.         case 0x1300 + 60: return "TCM_GETITEMW";
  5370.         case 0x1300 + 6: return "TCM_SETITEMA";
  5371.         case 0x1300 + 61: return "TCM_SETITEMW";
  5372.         case 0x1300 + 7: return "TCM_INSERTITEMA";
  5373.         case 0x1300 + 62: return "TCM_INSERTITEMW";
  5374.         case 0x1300 + 8: return "TCM_DELETEITEM";
  5375.         case 0x1300 + 9: return "TCM_DELETEALLITEMS";
  5376.         case 0x1300 + 10: return "TCM_GETITEMRECT";
  5377.         case 0x1300 + 11: return "TCM_GETCURSEL";
  5378.         case 0x1300 + 12: return "TCM_SETCURSEL";
  5379.         case 0x1300 + 13: return "TCM_HITTEST";
  5380.         case 0x1300 + 14: return "TCM_SETITEMEXTRA";
  5381.         case 0x1300 + 40: return "TCM_ADJUSTRECT";
  5382.         case 0x1300 + 41: return "TCM_SETITEMSIZE";
  5383.         case 0x1300 + 42: return "TCM_REMOVEIMAGE";
  5384.         case 0x1300 + 43: return "TCM_SETPADDING";
  5385.         case 0x1300 + 44: return "TCM_GETROWCOUNT";
  5386.         case 0x1300 + 45: return "TCM_GETTOOLTIPS";
  5387.         case 0x1300 + 46: return "TCM_SETTOOLTIPS";
  5388.         case 0x1300 + 47: return "TCM_GETCURFOCUS";
  5389.         case 0x1300 + 48: return "TCM_SETCURFOCUS";
  5390.         case 0x1300 + 49: return "TCM_SETMINTABWIDTH";
  5391.         case 0x1300 + 50: return "TCM_DESELECTALL";
  5392.  
  5393.         // toolbar
  5394.         case WM_USER+1000+1: return "TB_ENABLEBUTTON";
  5395.         case WM_USER+1000+2: return "TB_CHECKBUTTON";
  5396.         case WM_USER+1000+3: return "TB_PRESSBUTTON";
  5397.         case WM_USER+1000+4: return "TB_HIDEBUTTON";
  5398.         case WM_USER+1000+5: return "TB_INDETERMINATE";
  5399.         case WM_USER+1000+9: return "TB_ISBUTTONENABLED";
  5400.         case WM_USER+1000+10: return "TB_ISBUTTONCHECKED";
  5401.         case WM_USER+1000+11: return "TB_ISBUTTONPRESSED";
  5402.         case WM_USER+1000+12: return "TB_ISBUTTONHIDDEN";
  5403.         case WM_USER+1000+13: return "TB_ISBUTTONINDETERMINATE";
  5404.         case WM_USER+1000+17: return "TB_SETSTATE";
  5405.         case WM_USER+1000+18: return "TB_GETSTATE";
  5406.         case WM_USER+1000+19: return "TB_ADDBITMAP";
  5407.         case WM_USER+1000+20: return "TB_ADDBUTTONS";
  5408.         case WM_USER+1000+21: return "TB_INSERTBUTTON";
  5409.         case WM_USER+1000+22: return "TB_DELETEBUTTON";
  5410.         case WM_USER+1000+23: return "TB_GETBUTTON";
  5411.         case WM_USER+1000+24: return "TB_BUTTONCOUNT";
  5412.         case WM_USER+1000+25: return "TB_COMMANDTOINDEX";
  5413.         case WM_USER+1000+26: return "TB_SAVERESTOREA";
  5414.         case WM_USER+1000+76: return "TB_SAVERESTOREW";
  5415.         case WM_USER+1000+27: return "TB_CUSTOMIZE";
  5416.         case WM_USER+1000+28: return "TB_ADDSTRINGA";
  5417.         case WM_USER+1000+77: return "TB_ADDSTRINGW";
  5418.         case WM_USER+1000+29: return "TB_GETITEMRECT";
  5419.         case WM_USER+1000+30: return "TB_BUTTONSTRUCTSIZE";
  5420.         case WM_USER+1000+31: return "TB_SETBUTTONSIZE";
  5421.         case WM_USER+1000+32: return "TB_SETBITMAPSIZE";
  5422.         case WM_USER+1000+33: return "TB_AUTOSIZE";
  5423.         case WM_USER+1000+35: return "TB_GETTOOLTIPS";
  5424.         case WM_USER+1000+36: return "TB_SETTOOLTIPS";
  5425.         case WM_USER+1000+37: return "TB_SETPARENT";
  5426.         case WM_USER+1000+39: return "TB_SETROWS";
  5427.         case WM_USER+1000+40: return "TB_GETROWS";
  5428.         case WM_USER+1000+42: return "TB_SETCMDID";
  5429.         case WM_USER+1000+43: return "TB_CHANGEBITMAP";
  5430.         case WM_USER+1000+44: return "TB_GETBITMAP";
  5431.         case WM_USER+1000+45: return "TB_GETBUTTONTEXTA";
  5432.         case WM_USER+1000+75: return "TB_GETBUTTONTEXTW";
  5433.         case WM_USER+1000+46: return "TB_REPLACEBITMAP";
  5434.         case WM_USER+1000+47: return "TB_SETINDENT";
  5435.         case WM_USER+1000+48: return "TB_SETIMAGELIST";
  5436.         case WM_USER+1000+49: return "TB_GETIMAGELIST";
  5437.         case WM_USER+1000+50: return "TB_LOADIMAGES";
  5438.         case WM_USER+1000+51: return "TB_GETRECT";
  5439.         case WM_USER+1000+52: return "TB_SETHOTIMAGELIST";
  5440.         case WM_USER+1000+53: return "TB_GETHOTIMAGELIST";
  5441.         case WM_USER+1000+54: return "TB_SETDISABLEDIMAGELIST";
  5442.         case WM_USER+1000+55: return "TB_GETDISABLEDIMAGELIST";
  5443.         case WM_USER+1000+56: return "TB_SETSTYLE";
  5444.         case WM_USER+1000+57: return "TB_GETSTYLE";
  5445.         case WM_USER+1000+58: return "TB_GETBUTTONSIZE";
  5446.         case WM_USER+1000+59: return "TB_SETBUTTONWIDTH";
  5447.         case WM_USER+1000+60: return "TB_SETMAXTEXTROWS";
  5448.         case WM_USER+1000+61: return "TB_GETTEXTROWS";
  5449.         case WM_USER+1000+41: return "TB_GETBITMAPFLAGS";
  5450.  
  5451.         default:
  5452.             static char s_szBuf[128];
  5453.             sprintf(s_szBuf, "<unknown message = %d>", nMessage);
  5454.             return s_szBuf;
  5455.     }
  5456.    return NULL;
  5457. } // end of wxGetMessageName
  5458.  
  5459. #endif // __WXDEBUG__
  5460.  
  5461. // Unused?
  5462. #if 0
  5463. static void TranslateKbdEventToMouse(
  5464.   wxWindow*                         pWin
  5465. , int*                              pX
  5466. , int*                              pY
  5467. , ULONG*                            pFlags
  5468. )
  5469. {
  5470.     //
  5471.     // Construct the key mask
  5472.     ULONG&                          fwKeys = *pFlags;
  5473.  
  5474.     fwKeys = VK_BUTTON2;
  5475.     if ((::WinGetKeyState(HWND_DESKTOP, VK_CTRL) & 0x100) != 0)
  5476.         fwKeys |= VK_CTRL;
  5477.     if ((::WinGetKeyState(HWND_DESKTOP, VK_SHIFT) & 0x100) != 0)
  5478.         fwKeys |= VK_SHIFT;
  5479.  
  5480.     //
  5481.     // Simulate right mouse button click
  5482.     //
  5483.     POINTL                          vPoint;
  5484.  
  5485.     ::WinQueryMsgPos(vHabmain, &vPoint);
  5486.     *pX = vPoint.x;
  5487.     *pY = vPoint.y;
  5488.  
  5489.     pWin->ScreenToClient(pX, pY);
  5490. } // end of TranslateKbdEventToMouse
  5491. #endif
  5492.  
  5493. // Find the wxWindow at the current mouse position, returning the mouse
  5494. // position.
  5495. wxWindow* wxFindWindowAtPointer(
  5496.   wxPoint&                          WXUNUSED(rPt)
  5497. )
  5498. {
  5499.     return wxFindWindowAtPoint(wxGetMousePosition());
  5500. }
  5501.  
  5502. wxWindow* wxFindWindowAtPoint(
  5503.   const wxPoint&                    rPt
  5504. )
  5505. {
  5506.     POINTL                          vPt2;
  5507.  
  5508.     vPt2.x = rPt.x;
  5509.     vPt2.y = rPt.y;
  5510.  
  5511.     HWND                            hWndHit = ::WinWindowFromPoint(HWND_DESKTOP, &vPt2, FALSE);
  5512.     wxWindow*                       pWin = wxFindWinFromHandle((WXHWND)hWndHit) ;
  5513.     HWND                            hWnd = hWndHit;
  5514.  
  5515.     //
  5516.     // Try to find a window with a wxWindow associated with it
  5517.     //
  5518.     while (!pWin && (hWnd != 0))
  5519.     {
  5520.         hWnd = ::WinQueryWindow(hWnd, QW_PARENT);
  5521.         pWin = wxFindWinFromHandle((WXHWND)hWnd) ;
  5522.     }
  5523.     return pWin;
  5524. }
  5525.  
  5526. // Get the current mouse position.
  5527. wxPoint wxGetMousePosition()
  5528. {
  5529.     POINTL                          vPt;
  5530.  
  5531.     ::WinQueryPointerPos(HWND_DESKTOP, &vPt);
  5532.     return wxPoint(vPt.x, vPt.y);
  5533. }
  5534.  
  5535. wxWindowOS2* FindWindowForMouseEvent(
  5536.   wxWindow*                         pWin
  5537. , short*                            pnX
  5538. , short*                            pnY
  5539. )
  5540. {
  5541.     HWND                            hWnd = GetHwndOf(pWin);
  5542.     HWND                            hWndUnderMouse;
  5543.     POINTL                          vPoint;
  5544.     BOOL                            rcEnabled = FALSE;
  5545.     BOOL                            rcVisible = FALSE;
  5546.     HWND                            hWndDesktop = HWND_DESKTOP;
  5547.  
  5548.     ::WinQueryPointerPos(HWND_DESKTOP, &vPoint);
  5549.     hWndUnderMouse = ::WinWindowFromPoint(HWND_DESKTOP, &vPoint, TRUE);
  5550.     if (hWndUnderMouse != HWND_DESKTOP)
  5551.     {
  5552.         wxWindow*                   pWinUnderMouse = wxFindWinFromHandle((WXHWND)hWndUnderMouse);
  5553.  
  5554.         if (pWinUnderMouse)
  5555.         {
  5556.             wxWindowList::Node*     pCurrent = pWinUnderMouse->GetChildren().GetFirst();
  5557.             wxWindow*               pChild = NULL;
  5558.             wxWindow*               pGrandChild = NULL;
  5559.             RECTL                   vRect;
  5560.             POINTL                  vPoint2;
  5561.  
  5562.             ::WinMapWindowPoints(HWND_DESKTOP, hWndUnderMouse, &vPoint, 1);
  5563.             //
  5564.             // Find a child window mouse might be under
  5565.             //
  5566.             while (pCurrent)
  5567.             {
  5568.                 wxWindow*                   pChild = pCurrent->GetData();
  5569.  
  5570.                 vPoint2.x = vPoint.x;
  5571.                 vPoint2.y = vPoint.y;
  5572.                 ::WinMapWindowPoints(hWndUnderMouse, pChild->GetHWND(), &vPoint2, 1);
  5573.                 ::WinQueryWindowRect(pChild->GetHWND(), &vRect);
  5574.                 if (::WinPtInRect(vHabmain, &vRect, &vPoint2))
  5575.                 {
  5576.                     if (pChild->IsTopLevel())
  5577.                     {
  5578.                         POINTL                  vPoint3;
  5579.                         wxWindowList::Node*     pCurrent2 =pChild->GetChildren().GetFirst();
  5580.  
  5581.                         while (pCurrent2)
  5582.                         {
  5583.                             wxWindow*           pGrandChild = pCurrent2->GetData();
  5584.  
  5585.                             vPoint3.x = vPoint2.x;
  5586.                             vPoint3.y = vPoint2.y;
  5587.                             ::WinMapWindowPoints( pChild->GetHWND()
  5588.                                                  ,pGrandChild->GetHWND()
  5589.                                                  ,&vPoint3
  5590.                                                  ,1
  5591.                                                 );
  5592.                             ::WinQueryWindowRect(pGrandChild->GetHWND(), &vRect);
  5593.                             if (::WinPtInRect(vHabmain, &vRect, &vPoint3))
  5594.                             {
  5595.                                 hWndUnderMouse = GetHwndOf(pGrandChild);
  5596.                                 pWinUnderMouse = pGrandChild;
  5597.                                 break;
  5598.                             }
  5599.                             pCurrent2 = pCurrent2->GetNext();
  5600.                         }
  5601.                         if (pGrandChild)
  5602.                             break;
  5603.                     }
  5604.                     hWndUnderMouse = GetHwndOf(pChild);
  5605.                     pWinUnderMouse = pChild;
  5606.                     rcVisible = ::WinIsWindowVisible(hWndUnderMouse);
  5607.                     rcEnabled = ::WinIsWindowEnabled(hWndUnderMouse);
  5608.                     if (rcVisible && rcEnabled)
  5609.                         break;
  5610.                 }
  5611.                 pCurrent = pCurrent->GetNext();
  5612.             }
  5613.         }
  5614.     }
  5615.     rcVisible = ::WinIsWindowVisible(hWndUnderMouse);
  5616.     rcEnabled = ::WinIsWindowEnabled(hWndUnderMouse);
  5617.  
  5618.  
  5619.     //
  5620.     // Check that we have a child window which is susceptible to receive mouse
  5621.     // events: for this it must be shown and enabled
  5622.     //
  5623.     if ( hWndUnderMouse &&
  5624.          hWndUnderMouse != hWnd &&
  5625.          rcVisible && rcEnabled)
  5626.     {
  5627.         wxWindow*                       pWinUnderMouse = wxFindWinFromHandle((WXHWND)hWndUnderMouse);
  5628.  
  5629.         if (pWinUnderMouse)
  5630.         {
  5631.             //
  5632.             // Translate the mouse coords to the other window coords
  5633.             //
  5634.             pWin = pWinUnderMouse;
  5635.         }
  5636.     }
  5637.     return pWin;
  5638. } // end of FindWindowForMouseEvent
  5639.  
  5640.