- if (!ProcessMessage((WXMSG *)&svCurrentMsg))
- {
- ::WinDispatchMsg(vHabmain, (PQMSG)&svCurrentMsg);
- }
-} // end of wxApp::DoMessage
-
-//////////////////////////////////////////////////////////////////////////////
-//
-// Keep trying to process messages until WM_QUIT
-// received.
-//
-// If there are messages to be processed, they will all be
-// processed and OnIdle will not be called.
-// When there are no more messages, OnIdle is called.
-// If OnIdle requests more time,
-// it will be repeatedly called so long as there are no pending messages.
-// A 'feature' of this is that once OnIdle has decided that no more processing
-// is required, then it won't get processing time until further messages
-// are processed (it'll sit in DoMessage).
-//
-//////////////////////////////////////////////////////////////////////////////
-int wxApp::MainLoop()
-{
- m_bKeepGoing = TRUE;
-
- while (m_bKeepGoing)
- {
-#if wxUSE_THREADS
- wxMutexGuiLeaveOrEnter();
-#endif // wxUSE_THREADS
- while (!Pending() && ProcessIdle())
- {
- HandleSockets();
- wxUsleep(10000);
- }
- HandleSockets();
- if (Pending())
- DoMessage();
- else
- wxUsleep(10000);
-
- }
- return (int)svCurrentMsg.mp1;
-} // end of wxApp::MainLoop
-
-//
-// Returns TRUE if more time is needed.
-//
-bool wxApp::ProcessIdle()
-{
- wxIdleEvent vEvent;
-
- vEvent.SetEventObject(this);
- ProcessEvent(vEvent);
- return vEvent.MoreRequested();
-} // end of wxApp::ProcessIdle
-
-void wxApp::ExitMainLoop()
-{
- ::WinPostMsg(NULL, WM_QUIT, 0, 0);
-} // end of wxApp::ExitMainLoop
-
-bool wxApp::Pending()
-{
- return (::WinPeekMsg(vHabmain, (PQMSG)&svCurrentMsg, (HWND)NULL, 0, 0, PM_NOREMOVE) != 0);
-} // end of wxApp::Pending
-
-void wxApp::Dispatch()
-{
- DoMessage();
-}
-
-//////////////////////////////////////////////////////////////////////////////
-//
-// Give all windows a chance to preprocess
-// the message. Some may have accelerator tables, or have
-// MDI complications.
-//
-//////////////////////////////////////////////////////////////////////////////
-bool wxApp::ProcessMessage(
- WXMSG* pWxmsg
-)
-{
- QMSG* pMsg = (PQMSG)pWxmsg;
- HWND hWnd = pMsg->hwnd;
- wxWindow* pWndThis = wxFindWinFromHandle((WXHWND)hWnd);
- wxWindow* pWnd;
-
- //
- // Pass non-system timer messages to the wxTimerProc
- //
- if (pMsg->msg == WM_TIMER &&
- (SHORT1FROMMP(pMsg->mp1) != TID_CURSOR &&
- SHORT1FROMMP(pMsg->mp1) != TID_FLASHWINDOW &&
- SHORT1FROMMP(pMsg->mp1) != TID_SCROLL &&
- SHORT1FROMMP(pMsg->mp1) != 0x0000
- ))
- wxTimerProc(NULL, 0, (int)pMsg->mp1, 0);
-
- //
- // Allow the window to prevent certain messages from being
- // translated/processed (this is currently used by wxTextCtrl to always
- // grab Ctrl-C/V/X, even if they are also accelerators in some parent)
- //
- if (pWndThis && !pWndThis->OS2ShouldPreProcessMessage(pWxmsg))
- {
- return FALSE;
- }
-
- //
- // For some composite controls (like a combobox), wndThis might be NULL
- // because the subcontrol is not a wxWindow, but only the control itself
- // is - try to catch this case
- //
- while (hWnd && !pWndThis)
- {
- hWnd = ::WinQueryWindow(hWnd, QW_PARENT);
- pWndThis = wxFindWinFromHandle((WXHWND)hWnd);
- }
-
- //
- // Try translations first; find the youngest window with
- // a translation table. OS/2 has case sensative accels, so
- // this block, coded by BK, removes that and helps make them
- // case insensative.
- //
- if(pMsg->msg == WM_CHAR)
- {
- PBYTE pChmsg = (PBYTE)&(pMsg->msg);
- USHORT uSch = CHARMSG(pChmsg)->chr;
- bool bRc;
-
- //
- // Do not process keyup events
- //
- if(!(CHARMSG(pChmsg)->fs & KC_KEYUP))
- {
- if((CHARMSG(pChmsg)->fs & (KC_ALT | KC_CTRL)) && CHARMSG(pChmsg)->chr != 0)
- CHARMSG(pChmsg)->chr = (USHORT)wxToupper((UCHAR)uSch);
-
-
- for(pWnd = pWndThis; pWnd; pWnd = pWnd->GetParent() )
- {
- if((bRc = pWnd->OS2TranslateMessage(pWxmsg)) == TRUE)
- break;
- }
-
- if(!bRc) // untranslated, should restore original value
- CHARMSG(pChmsg)->chr = uSch;
- }
- }
- //
- // Anyone for a non-translation message? Try youngest descendants first.
- //
-// for (pWnd = pWndThis; pWnd; pWnd = pWnd->GetParent())
-// {
-// if (pWnd->OS2ProcessMessage(pWxmsg))
-// return TRUE;
-// }
- return FALSE;
-} // end of wxApp::ProcessMessage
-
-bool gbInOnIdle = FALSE;
-
-void wxApp::OnIdle(
- wxIdleEvent& rEvent
-)
-{
-
projects / wxWidgets.git / blobdiff