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