X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/0cf6acbf261c5d47f97d280700b1203f3d8d8047..5767e836997b965b9d936f1d65244bb886c39025:/src/os2/frame.cpp diff --git a/src/os2/frame.cpp b/src/os2/frame.cpp index bc13037ef5..8a8545f7c8 100644 --- a/src/os2/frame.cpp +++ b/src/os2/frame.cpp @@ -30,6 +30,7 @@ #include "wx/dialog.h" #include "wx/settings.h" #include "wx/dcclient.h" + #include "wx/mdi.h" #endif // WX_PRECOMP #include "wx/os2/private.h" @@ -50,9 +51,7 @@ // globals // ---------------------------------------------------------------------------- -extern wxWindowList wxModelessWindows; extern wxList WXDLLEXPORT wxPendingDelete; -extern wxChar wxFrameClassName[]; #if wxUSE_MENUS_NATIVE extern wxMenu *wxCurrentPopupMenu; @@ -67,7 +66,6 @@ extern void wxAssociateWinWithHandle( HWND hWnd // ---------------------------------------------------------------------------- BEGIN_EVENT_TABLE(wxFrame, wxFrameBase) - EVT_ACTIVATE(wxFrame::OnActivate) EVT_SYS_COLOUR_CHANGED(wxFrame::OnSysColourChanged) END_EVENT_TABLE() @@ -96,39 +94,32 @@ IMPLEMENT_DYNAMIC_CLASS(wxFrame, wxWindow) void wxFrame::Init() { - m_bIconized = FALSE; - -#if wxUSE_TOOLTIPS - m_hWndToolTip = 0; -#endif - // Data to save/restore when calling ShowFullScreen - m_lFsStyle = 0L; - m_lFsOldWindowStyle = 0L; m_nFsStatusBarFields = 0; m_nFsStatusBarHeight = 0; m_nFsToolBarHeight = 0; - m_bFsIsMaximized = FALSE; + m_hWndToolTip = 0L; m_bWasMinimized = FALSE; - m_bFsIsShowing = FALSE; - m_bIsShown = FALSE; - m_pWinLastFocused = (wxWindow *)NULL; - m_hFrame = NULL; - m_hTitleBar = NULL; - m_hHScroll = NULL; - m_hVScroll = NULL; + + m_frameMenuBar = NULL; + m_frameToolBar = NULL; + m_frameStatusBar = NULL; + + m_hTitleBar = NULLHANDLE; + m_hHScroll = NULLHANDLE; + m_hVScroll = NULLHANDLE; // // Initialize SWP's // - memset(&m_vSwp, 0, sizeof(SWP)); - memset(&m_vSwpClient, 0, sizeof(SWP)); memset(&m_vSwpTitleBar, 0, sizeof(SWP)); memset(&m_vSwpMenuBar, 0, sizeof(SWP)); memset(&m_vSwpHScroll, 0, sizeof(SWP)); memset(&m_vSwpVScroll, 0, sizeof(SWP)); memset(&m_vSwpStatusBar, 0, sizeof(SWP)); memset(&m_vSwpToolBar, 0, sizeof(SWP)); + m_bIconized = FALSE; + } // end of wxFrame::Init bool wxFrame::Create( @@ -137,153 +128,28 @@ bool wxFrame::Create( , const wxString& rsTitle , const wxPoint& rPos , const wxSize& rSize -, long lulStyle +, long lStyle , const wxString& rsName ) { - int nX = rPos.x; - int nY = rPos.y; - int nWidth = rSize.x; - int nHeight = rSize.y; - bool bOk = FALSE; - - SetName(rsName); - m_windowStyle = lulStyle; - m_frameMenuBar = NULL; -#if wxUSE_TOOLBAR - m_frameToolBar = NULL; -#endif //wxUSE_TOOLBAR - -#if wxUSE_STATUSBAR - m_frameStatusBar = NULL; -#endif //wxUSE_STATUSBAR - - SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_APPWORKSPACE)); - - if (vId > -1 ) - m_windowId = vId; - else - m_windowId = (int)NewControlId(); - - if (pParent) - pParent->AddChild(this); - - m_bIconized = FALSE; - - if ((m_windowStyle & wxFRAME_FLOAT_ON_PARENT) == 0) - pParent = NULL; - - bOk = OS2Create( m_windowId - ,pParent - ,wxFrameClassName - ,this - ,rsTitle - ,nX - ,nY - ,nWidth - ,nHeight - ,lulStyle - ); - if (bOk) - { - if (!pParent) - wxTopLevelWindows.Append(this); - wxModelessWindows.Append(this); - } - return(bOk); + if (!wxTopLevelWindow::Create( pParent + ,vId + ,rsTitle + ,rPos + ,rSize + ,lStyle + ,rsName + )) + return FALSE; + return TRUE; } // end of wxFrame::Create wxFrame::~wxFrame() { m_isBeingDeleted = TRUE; - - wxTopLevelWindows.DeleteObject(this); - DeleteAllBars(); - - if (wxTheApp && (wxTopLevelWindows.Number() == 0)) - { - wxTheApp->SetTopWindow(NULL); - - if (wxTheApp->GetExitOnFrameDelete()) - { - ::WinPostMsg(NULL, WM_QUIT, 0, 0); - } - } - - wxModelessWindows.DeleteObject(this); - - // - // For some reason, wxWindows can activate another task altogether - // when a frame is destroyed after a modal dialog has been invoked. - // Try to bring the parent to the top. - // - // MT:Only do this if this frame is currently the active window, else weird - // things start to happen. - // - if (wxGetActiveWindow() == this) - { - if (GetParent() && GetParent()->GetHWND()) - { - ::WinSetWindowPos( (HWND) GetParent()->GetHWND() - ,HWND_TOP - ,0 - ,0 - ,0 - ,0 - ,SWP_ZORDER - ); - } - } } // end of wxFrame::~wxFrame -// -// IF we have child controls in the Frame's client we need to alter -// the y position, because, OS/2 controls are positioned relative to -// wxWindows orgin (top left) not the OS/2 origin (bottom left) -void wxFrame::AlterChildPos() -{ - // - // OS/2 is the only OS concerned about this - // - wxWindow* pChild = NULL; - wxControl* pCtrl = NULL; - RECTL vRect; - SWP vSwp; - - ::WinQueryWindowRect(GetHwnd(), &vRect); - for (wxWindowList::Node* pNode = GetChildren().GetFirst(); - pNode; - pNode = pNode->GetNext()) - { - wxWindow* pChild = pNode->GetData(); - - ::WinQueryWindowPos(pChild->GetHWND(), &vSwp); - vSwp.y += (vRect.yTop - m_vSwpClient.cy); - if (pChild->IsKindOf(CLASSINFO(wxControl))) - { - pCtrl = wxDynamicCast(pChild, wxControl); - // - // Must deal with controls that have margins like ENTRYFIELD. The SWP - // struct of such a control will have and origin offset from its intended - // position by the width of the margins. - // - vSwp.y -= pCtrl->GetYComp(); - vSwp.x -= pCtrl->GetXComp(); - } - ::WinSetWindowPos( pChild->GetHWND() - ,HWND_TOP - ,vSwp.x - ,vSwp.y - ,vSwp.cx - ,vSwp.cy - ,SWP_MOVE - ); - ::WinQueryWindowPos(pChild->GetHWND(), &vSwp); - pChild = NULL; - } -} // end of wxFrame::AlterChildPos - // // Get size *available for subwindows* i.e. excluding menu bar, toolbar etc. // @@ -292,238 +158,51 @@ void wxFrame::DoGetClientSize( , int* pY ) const { - RECTL vRect; - ::WinQueryWindowRect(GetHwnd(), &vRect); - + wxTopLevelWindow::DoGetClientSize( pX + ,pY + ); // // No need to use statusbar code as in WIN32 as the FORMATFRAME // window procedure ensures PM knows about the new frame client - // size internally. A ::WinQueryWindowRect is all that is needed! + // size internally. A ::WinQueryWindowRect (that is called in + // wxWindow's GetClient size from above) is all that is needed! // - - if (pX) - *pX = vRect.xRight - vRect.xLeft; - if (pY) - *pY = vRect.yTop - vRect.yBottom; } // end of wxFrame::DoGetClientSize // // Set the client size (i.e. leave the calculation of borders etc. -// to wxWindows) +// to wxWidgets) // void wxFrame::DoSetClientSize( int nWidth , int nHeight ) { - HWND hWnd = GetHwnd(); - RECTL vRect; - RECTL vRect2; - - ::WinQueryWindowRect(GetHwnd(), &vRect); - ::WinQueryWindowRect(GetHwnd(), &vRect2); - // - // Find the difference between the entire window (title bar and all) - // and the client area; add this to the new client size to move the - // window. Remember OS/2's backwards y coord system! + // Statusbars are not part of the OS/2 Client but parent frame + // so no statusbar consideration // - int nActualWidth = vRect2.xRight - vRect2.xLeft - vRect.xRight; - int nActualHeight = vRect2.yTop + vRect2.yTop - vRect.yTop; - -#if wxUSE_STATUSBAR - wxStatusBar* pStatusBar = GetStatusBar(); - - if (pStatusBar && pStatusBar->IsShown()) - { - nActualHeight += pStatusBar->GetSize().y; - } - -#endif // wxUSE_STATUSBAR - - wxPoint vPoint(GetClientAreaOrigin()); - - nActualWidth += vPoint.x; - nActualHeight += vPoint.y; - - POINTL vPointl; - - vPointl.x = vRect2.xLeft; - vPointl.y = vRect2.yTop; - - ::WinSetWindowPos( hWnd - ,HWND_TOP - ,vPointl.x - ,vPointl.y - ,nActualWidth - ,nActualHeight - ,SWP_MOVE | SWP_SIZE | SWP_SHOW - ); - - wxSizeEvent vEvent( wxSize( nWidth - ,nHeight - ) - ,m_windowId - ); - vEvent.SetEventObject(this); - GetEventHandler()->ProcessEvent(vEvent); + wxTopLevelWindow::DoSetClientSize( nWidth + ,nHeight + ); } // end of wxFrame::DoSetClientSize -void wxFrame::DoGetSize( - int* pWidth -, int* pHeight -) const -{ - RECTL vRect; - - ::WinQueryWindowRect(m_hFrame, &vRect); - *pWidth = vRect.xRight - vRect.xLeft; - *pHeight = vRect.yTop - vRect.yBottom; -} // end of wxFrame::DoGetSize - -void wxFrame::DoGetPosition( - int* pX -, int* pY -) const -{ - RECTL vRect; - POINTL vPoint; - - ::WinQueryWindowRect(m_hFrame, &vRect); - - *pX = vRect.xRight - vRect.xLeft; - *pY = vRect.yTop - vRect.yBottom; -} // end of wxFrame::DoGetPosition - // ---------------------------------------------------------------------------- -// variations around ::ShowWindow() +// wxFrame: various geometry-related functions // ---------------------------------------------------------------------------- -void wxFrame::DoShowWindow( - int bShowCmd -) -{ - ::WinShowWindow(m_hFrame, (BOOL)bShowCmd); - m_bIconized = bShowCmd == SWP_MINIMIZE; -} // end of wxFrame::DoShowWindow - -bool wxFrame::Show( - bool bShow -) -{ - int nShowCmd; - SWP vSwp; - - if (bShow) - { - nShowCmd = SWP_SHOW; - } - else // hide - { - nShowCmd = SWP_HIDE; - } - - DoShowWindow(nShowCmd); - - if (bShow) - { - wxActivateEvent vEvent(wxEVT_ACTIVATE, TRUE, m_windowId); - - ::WinQueryWindowPos(m_hFrame, &vSwp); - m_bIconized = vSwp.fl & SWP_MINIMIZE; - ::WinQueryWindowPos(m_hWnd, &m_vSwpClient); - ::WinSendMsg(m_hFrame, WM_UPDATEFRAME, (MPARAM)~0, 0); - ::WinEnableWindow(m_hFrame, TRUE); - vEvent.SetEventObject(this); - GetEventHandler()->ProcessEvent(vEvent); - } - else - { - // - // Try to highlight the correct window (the parent) - // - if (GetParent()) - { - HWND hWndParent = GetHwndOf(GetParent()); - - ::WinQueryWindowPos(hWndParent, &vSwp); - m_bIconized = vSwp.fl & SWP_MINIMIZE; - if (hWndParent) - ::WinSetWindowPos( hWndParent - ,HWND_TOP - ,vSwp.x - ,vSwp.y - ,vSwp.cx - ,vSwp.cy - ,SWP_ZORDER | SWP_ACTIVATE | SWP_SHOW | SWP_MOVE - ); - ::WinEnableWindow(hWndParent, TRUE); - } - } - return TRUE; -} // end of wxFrame::Show - -void wxFrame::Iconize( - bool bIconize -) -{ - DoShowWindow(bIconize ? SWP_MINIMIZE : SWP_RESTORE); -} // end of wxFrame::Iconize - -void wxFrame::Maximize( - bool bMaximize) -{ - DoShowWindow(bMaximize ? SWP_MAXIMIZE : SWP_RESTORE); -} // end of wxFrame::Maximize - -void wxFrame::Restore() -{ - DoShowWindow(SWP_RESTORE); -} // end of wxFrame::Restore - -bool wxFrame::IsIconized() const -{ - SWP vSwp; - - ::WinQueryWindowPos(m_hFrame, &vSwp); - - if (vSwp.fl & SWP_MINIMIZE) - ((wxFrame*)this)->m_bIconized = TRUE; - else - ((wxFrame*)this)->m_bIconized = FALSE; - return m_bIconized; -} // end of wxFrame::IsIconized - -// Is it maximized? -bool wxFrame::IsMaximized() const -{ - SWP vSwp; - bool bIconic; - - ::WinQueryWindowPos(m_hFrame, &vSwp); - return (vSwp.fl & SWP_MAXIMIZE); -} // end of wxFrame::IsMaximized - -void wxFrame::SetIcon( - const wxIcon& rIcon -) +void wxFrame::Raise() { - wxFrameBase::SetIcon(rIcon); - - if ((m_icon.GetHICON()) != NULLHANDLE) - { - ::WinSendMsg( m_hFrame - ,WM_SETICON - ,(MPARAM)((HPOINTER)m_icon.GetHICON()) - ,NULL - ); - ::WinSendMsg( m_hFrame - ,WM_UPDATEFRAME - ,(MPARAM)FCF_ICON - ,(MPARAM)0 - ); - } -} // end of wxFrame::SetIcon + wxFrameBase::Raise(); + ::WinSetWindowPos( (HWND) GetParent()->GetHWND() + ,HWND_TOP + ,0 + ,0 + ,0 + ,0 + ,SWP_ZORDER + ); +} #if wxUSE_STATUSBAR wxStatusBar* wxFrame::OnCreateStatusBar( @@ -534,8 +213,6 @@ wxStatusBar* wxFrame::OnCreateStatusBar( ) { wxStatusBar* pStatusBar = NULL; - SWP vSwp; - ERRORID vError; wxString sError; pStatusBar = wxFrameBase::OnCreateStatusBar( nNumber @@ -547,6 +224,26 @@ wxStatusBar* wxFrame::OnCreateStatusBar( if( !pStatusBar ) return NULL; + wxClientDC vDC(pStatusBar); + int nY; + + // + // Set the height according to the font and the border size + // + vDC.SetFont(pStatusBar->GetFont()); // Screws up the menues for some reason + vDC.GetTextExtent( "X" + ,NULL + ,&nY + ); + + int nHeight = ((11 * nY) / 10 + 2 * pStatusBar->GetBorderY()); + + pStatusBar->SetSize( -1 + ,-1 + ,-1 + ,nHeight + ); + ::WinSetParent( pStatusBar->GetHWND() ,m_hFrame ,FALSE @@ -578,7 +275,6 @@ void wxFrame::PositionStatusBar() int nY; int nStatbarWidth; int nStatbarHeight; - HWND hWndClient; RECTL vRect; RECTL vFRect; @@ -608,13 +304,36 @@ void wxFrame::PositionStatusBar() { vError = ::WinGetLastError(vHabmain); sError = wxPMErrorToStr(vError); - wxLogError("Error setting parent for StautsBar. Error: %s\n", sError); + wxLogError("Error setting parent for StautsBar. Error: %s\n", sError.c_str()); return; } } } // end of wxFrame::PositionStatusBar #endif // wxUSE_STATUSBAR +#if wxUSE_TOOLBAR +wxToolBar* wxFrame::OnCreateToolBar( + long lStyle +, wxWindowID vId +, const wxString& rsName +) +{ + wxToolBar* pToolBar = wxFrameBase::OnCreateToolBar( lStyle + ,vId + ,rsName + ); + + ::WinSetParent( pToolBar->GetHWND() + ,m_hFrame + ,FALSE + ); + ::WinSetOwner( pToolBar->GetHWND() + ,m_hFrame + ); + return pToolBar; +} // end of WinGuiBase_CFrame::OnCreateToolBar +#endif + #if wxUSE_MENUS_NATIVE void wxFrame::DetachMenuBar() { @@ -629,17 +348,7 @@ void wxFrame::SetMenuBar( wxMenuBar* pMenuBar ) { - ERRORID vError; wxString sError; - HWND hTitlebar = NULLHANDLE; - HWND hHScroll = NULLHANDLE; - HWND hVScroll = NULLHANDLE; - HWND hMenuBar = NULLHANDLE; - SWP vSwp; - SWP vSwpTitlebar; - SWP vSwpVScroll; - SWP vSwpHScroll; - SWP vSwpMenu; if (!pMenuBar) { @@ -658,7 +367,7 @@ void wxFrame::SetMenuBar( // // Can set a menubar several times. // TODO: how to prevent a memory leak if you have a currently-unattached - // menubar? wxWindows assumes that the frame will delete the menu (otherwise + // menubar? wxWidgets assumes that the frame will delete the menu (otherwise // there are problems for MDI). // if (pMenuBar->GetHMenu()) @@ -728,14 +437,14 @@ void wxFrame::InternalSetMenuBar() { vError = ::WinGetLastError(vHabmain); sError = wxPMErrorToStr(vError); - wxLogError("Error setting parent for submenu. Error: %s\n", sError); + wxLogError("Error setting parent for submenu. Error: %s\n", sError.c_str()); } if (!::WinSetOwner(m_hMenu, m_hFrame)) { vError = ::WinGetLastError(vHabmain); sError = wxPMErrorToStr(vError); - wxLogError("Error setting parent for submenu. Error: %s\n", sError); + wxLogError("Error setting parent for submenu. Error: %s\n", sError.c_str()); } ::WinSendMsg(m_hFrame, WM_UPDATEFRAME, (MPARAM)FCF_MENU, (MPARAM)0); } // end of wxFrame::InternalSetMenuBar @@ -748,7 +457,7 @@ void wxFrame::OnSysColourChanged( wxSysColourChangedEvent& rEvent ) { - SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_APPWORKSPACE)); + SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_APPWORKSPACE)); Refresh(); #if wxUSE_STATUSBAR @@ -953,255 +662,13 @@ bool wxFrame::ShowFullScreen( ,m_vFsOldSize.height ,SWP_SIZE | SWP_SHOW ); - return TRUE; } + return wxFrameBase::ShowFullScreen(bShow, lStyle); } // end of wxFrame::ShowFullScreen // // Frame window // -bool wxFrame::OS2Create( - int nId -, wxWindow* pParent -, const wxChar* zWclass -, wxWindow* pWxWin -, const wxChar* zTitle -, int nX -, int nY -, int nWidth -, int nHeight -, long ulStyle -) -{ - ULONG ulCreateFlags = 0L; - ULONG ulStyleFlags = 0L; - ULONG ulExtraFlags = 0L; - FRAMECDATA vFrameCtlData; - HWND hParent = NULLHANDLE; - HWND hTitlebar = NULLHANDLE; - HWND hHScroll = NULLHANDLE; - HWND hVScroll = NULLHANDLE; - HWND hFrame = NULLHANDLE; - HWND hClient = NULLHANDLE; - SWP vSwp[10]; - RECTL vRect[10]; - USHORT uCtlCount; - ERRORID vError; - wxString sError; - - m_hDefaultIcon = (WXHICON) (wxSTD_FRAME_ICON ? wxSTD_FRAME_ICON : wxDEFAULT_FRAME_ICON); - - if (pParent) - hParent = GetWinHwnd(pParent); - else - hParent = HWND_DESKTOP; - - if (ulStyle == wxDEFAULT_FRAME_STYLE) - ulCreateFlags = FCF_SIZEBORDER | FCF_TITLEBAR | FCF_SYSMENU | - FCF_MINMAX | FCF_TASKLIST; - else - { - if ((ulStyle & wxCAPTION) == wxCAPTION) - ulCreateFlags = FCF_TASKLIST; - else - ulCreateFlags = FCF_NOMOVEWITHOWNER; - - if ((ulStyle & wxVSCROLL) == wxVSCROLL) - ulCreateFlags |= FCF_VERTSCROLL; - if ((ulStyle & wxHSCROLL) == wxHSCROLL) - ulCreateFlags |= FCF_HORZSCROLL; - if (ulStyle & wxMINIMIZE_BOX) - ulCreateFlags |= FCF_MINBUTTON; - if (ulStyle & wxMAXIMIZE_BOX) - ulCreateFlags |= FCF_MAXBUTTON; - if (ulStyle & wxTHICK_FRAME) - ulCreateFlags |= FCF_DLGBORDER; - if (ulStyle & wxSYSTEM_MENU) - ulCreateFlags |= FCF_SYSMENU; - if (ulStyle & wxCAPTION) - ulCreateFlags |= FCF_TASKLIST; - if (ulStyle & wxCLIP_CHILDREN) - { - // Invalid for frame windows under PM - } - - if (ulStyle & wxTINY_CAPTION_VERT) - ulCreateFlags |= FCF_TASKLIST; - if (ulStyle & wxTINY_CAPTION_HORIZ) - ulCreateFlags |= FCF_TASKLIST; - - if ((ulStyle & wxTHICK_FRAME) == 0) - ulCreateFlags |= FCF_BORDER; - if (ulStyle & wxFRAME_TOOL_WINDOW) - ulExtraFlags = kFrameToolWindow; - - if (ulStyle & wxSTAY_ON_TOP) - ulCreateFlags |= FCF_SYSMODAL; - } - if ((ulStyle & wxMINIMIZE) || (ulStyle & wxICONIZE)) - ulStyleFlags |= WS_MINIMIZED; - if (ulStyle & wxMAXIMIZE) - ulStyleFlags |= WS_MAXIMIZED; - - // - // Clear the visible flag, we always call show - // - ulStyleFlags &= (unsigned long)~WS_VISIBLE; - m_bIconized = FALSE; - - // - // Set the frame control block - // - vFrameCtlData.cb = sizeof(vFrameCtlData); - vFrameCtlData.flCreateFlags = ulCreateFlags; - vFrameCtlData.hmodResources = 0L; - vFrameCtlData.idResources = 0; - - // - // Create the frame window: We break ranks with other ports now - // and instead of calling down into the base wxWindow class' OS2Create - // we do all our own stuff here. We will set the needed pieces - // of wxWindow manually, here. - // - - hFrame = ::WinCreateStdWindow( hParent - ,ulStyleFlags // frame-window style - ,&ulCreateFlags // window style - ,(PSZ)zWclass // class name - ,(PSZ)zTitle // window title - ,0L // default client style - ,NULLHANDLE // resource in executable file - ,0 // resource id - ,&hClient // receives client window handle - ); - if (!hFrame) - { - vError = ::WinGetLastError(vHabmain); - sError = wxPMErrorToStr(vError); - wxLogError("Error creating frame. Error: %s\n", sError); - return FALSE; - } - - // - // wxWindow class' m_hWnd set here and needed associations - // - m_hFrame = hFrame; - m_hWnd = hClient; - wxAssociateWinWithHandle(m_hWnd, this); - wxAssociateWinWithHandle(m_hFrame, this); - - m_backgroundColour.Set(wxString("GREY")); - - LONG lColor = (LONG)m_backgroundColour.GetPixel(); - - if (!::WinSetPresParam( m_hWnd - ,PP_BACKGROUNDCOLOR - ,sizeof(LONG) - ,(PVOID)&lColor - )) - { - vError = ::WinGetLastError(vHabmain); - sError = wxPMErrorToStr(vError); - wxLogError("Error creating frame. Error: %s\n", sError); - return FALSE; - } - - // - // Now need to subclass window. Instead of calling the SubClassWin in wxWindow - // we manually subclass here because we don't want to use the main wxWndProc - // by default - // - m_fnOldWndProc = (WXFARPROC) ::WinSubclassWindow(m_hFrame, (PFNWP)wxFrameMainWndProc); - - // - // Now size everything. If adding a menu the client will need to be resized. - // - - if (pParent) - { - nY = pParent->GetSize().y - (nY + nHeight); - } - else - { - RECTL vRect; - - ::WinQueryWindowRect(HWND_DESKTOP, &vRect); - nY = vRect.yTop - (nY + nHeight); - } - if (!::WinSetWindowPos( m_hFrame - ,HWND_TOP - ,nX - ,nY - ,nWidth - ,nHeight - ,SWP_SIZE | SWP_MOVE | SWP_ACTIVATE | SWP_ZORDER - )) - { - vError = ::WinGetLastError(vHabmain); - sError = wxPMErrorToStr(vError); - wxLogError("Error sizing frame. Error: %s\n", sError); - return FALSE; - } - return TRUE; -} // end of wxFrame::OS2Create - -// -// Default activation behaviour - set the focus for the first child -// subwindow found. -// -void wxFrame::OnActivate( - wxActivateEvent& rEvent -) -{ - if ( rEvent.GetActive() ) - { - // restore focus to the child which was last focused - wxLogTrace(_T("focus"), _T("wxFrame %08x activated."), m_hWnd); - - wxWindow* pParent = m_pWinLastFocused ? m_pWinLastFocused->GetParent() - : NULL; - if (!pParent) - { - pParent = this; - } - - wxSetFocusToChild( pParent - ,&m_pWinLastFocused - ); - } - else // deactivating - { - // - // Remember the last focused child if it is our child - // - m_pWinLastFocused = FindFocus(); - - for (wxWindowList::Node* pNode = GetChildren().GetFirst(); - pNode; - pNode = pNode->GetNext()) - { - // FIXME all this is totally bogus - we need to do the same as wxPanel, - // but how to do it without duplicating the code? - - // restore focus - wxWindow* pChild = pNode->GetData(); - - if (!pChild->IsTopLevel() -#if wxUSE_TOOLBAR - && !wxDynamicCast(pChild, wxToolBar) -#endif // wxUSE_TOOLBAR -#if wxUSE_STATUSBAR - && !wxDynamicCast(pChild, wxStatusBar) -#endif // wxUSE_STATUSBAR - ) - { - pChild->SetFocus(); - return; - } - } - } -} // end of wxFrame::OnActivate - // ---------------------------------------------------------------------------- // wxFrame size management: we exclude the areas taken by menu/status/toolbars // from the client area, so the client area is what's really available for the @@ -1211,29 +678,13 @@ void wxFrame::OnActivate( // Checks if there is a toolbar, and returns the first free client position wxPoint wxFrame::GetClientAreaOrigin() const { - wxPoint vPoint(0, 0); + wxPoint vPoint = wxTopLevelWindow::GetClientAreaOrigin(); -#if wxUSE_TOOLBAR - if (GetToolBar()) - { - int nWidth; - int nHeight; - - GetToolBar()->GetSize( &nWidth - ,&nHeight - ); - - if (GetToolBar()->GetWindowStyleFlag() & wxTB_VERTICAL) - { - vPoint.x += nWidth; - } - else - { - // PM is backwards from windows - vPoint.y += nHeight; - } - } -#endif //wxUSE_TOOLBAR + // + // In OS/2 the toolbar and statusbar are frame extensions so there is no + // adjustment. The client is supposedly resized for a toolbar in OS/2 + // as it is for the status bar. + // return vPoint; } // end of wxFrame::GetClientAreaOrigin @@ -1261,53 +712,57 @@ wxToolBar* wxFrame::CreateToolBar( void wxFrame::PositionToolBar() { - HWND hWndClient; + wxToolBar* pToolBar = GetToolBar(); + wxCoord vWidth; + wxCoord vHeight; + wxCoord vTWidth; + wxCoord vTHeight; + + if (!pToolBar) + return; + RECTL vRect; + RECTL vFRect; + wxPoint vPos; - ::WinQueryWindowRect(GetHwnd(), &vRect); + ::WinQueryWindowRect(m_hFrame, &vRect); + vPos.y = (wxCoord)vRect.yTop; + ::WinMapWindowPoints(m_hFrame, HWND_DESKTOP, (PPOINTL)&vRect, 2); + vFRect = vRect; + ::WinCalcFrameRect(m_hFrame, &vRect, TRUE); + + vPos.y = (wxCoord)(vFRect.yTop - vRect.yTop); + pToolBar->GetSize( &vTWidth + ,&vTHeight + ); -#if wxUSE_STATUSBAR - if (GetStatusBar()) + if (pToolBar->GetWindowStyleFlag() & wxTB_HORIZONTAL) { - int nStatusX; - int nStatusY; - - GetStatusBar()->GetClientSize( &nStatusX - ,&nStatusY - ); - // PM is backwards from windows - vRect.yBottom += nStatusY; + vWidth = (wxCoord)(vRect.xRight - vRect.xLeft); + pToolBar->SetSize( vRect.xLeft - vFRect.xLeft + ,vPos.y + ,vWidth + ,vTHeight + ); } -#endif // wxUSE_STATUSBAR - - if ( m_frameToolBar ) + else { - int nToolbarWidth; - int nToolbarHeight; - - m_frameToolBar->GetSize( &nToolbarWidth - ,&nToolbarHeight - ); - - if (GetToolBar()->GetWindowStyleFlag() & wxTB_VERTICAL) - { - nToolbarHeight = vRect.yBottom; - } - else - { - nToolbarWidth = vRect.xRight; - } + wxCoord vSwidth = 0; + wxCoord vSheight = 0; - // - // Use the 'real' PM position here - // - GetToolBar()->SetSize( 0 - ,0 - ,nToolbarWidth - ,nToolbarHeight - ,wxSIZE_NO_ADJUSTMENTS - ); + if (m_frameStatusBar) + m_frameStatusBar->GetSize( &vSwidth + ,&vSheight + ); + vHeight = (wxCoord)(vRect.yTop - vRect.yBottom); + pToolBar->SetSize( vRect.xLeft - vFRect.xLeft + ,vPos.y + ,vTWidth + ,vHeight - vSheight + ); } + if( ::WinIsWindowShowing(m_hFrame) ) + ::WinSendMsg(m_hFrame, WM_UPDATEFRAME, (MPARAM)~0, 0); } // end of wxFrame::PositionToolBar #endif // wxUSE_TOOLBAR @@ -1324,6 +779,10 @@ void wxFrame::IconizeChildFrames( bool bIconize ) { + // FIXME: Generic MDI does not use Frames for the Childs, so this does _not_ + // work. Possibly, the right thing is simply to eliminate this + // functions and all the calls to it from within this file. +#if 0 for (wxWindowList::Node* pNode = GetChildren().GetFirst(); pNode; pNode = pNode->GetNext() ) @@ -1355,8 +814,14 @@ void wxFrame::IconizeChildFrames( pFrame->Iconize(bIconize); } } +#endif } // end of wxFrame::IconizeChildFrames +WXHICON wxFrame::GetDefaultIcon() const +{ + return (WXHICON)(wxSTD_FRAME_ICON ? wxSTD_FRAME_ICON + : wxDEFAULT_FRAME_ICON); +} // =========================================================================== // message processing // =========================================================================== @@ -1398,9 +863,10 @@ bool wxFrame::HandlePaint() // // Icons in PM are the same as "pointers" // + const wxIcon& vIcon = GetIcon(); HPOINTER hIcon; - if (m_icon.Ok()) + if (vIcon.Ok()) hIcon = (HPOINTER)::WinSendMsg(m_hFrame, WM_QUERYICON, 0L, 0L); else hIcon = (HPOINTER)m_hDefaultIcon; @@ -1419,7 +885,6 @@ bool wxFrame::HandlePaint() if (hIcon) { - HWND hWndClient; RECTL vRect3; ::WinQueryWindowRect(GetHwnd(), &vRect3); @@ -1546,15 +1011,10 @@ bool wxFrame::HandleSize( PositionToolBar(); #endif // wxUSE_TOOLBAR - wxSizeEvent vEvent( wxSize( nX - ,nY - ) - ,m_windowId - ); - - vEvent.SetEventObject(this); - bProcessed = GetEventHandler()->ProcessEvent(vEvent); - AlterChildPos(); + bProcessed = wxWindow::HandleSize( nX + ,nY + ,nId + ); } return bProcessed; } // end of wxFrame::HandleSize @@ -1625,6 +1085,11 @@ bool wxFrame::HandleMenuSelect( vEvent.SetEventObject(this); GetEventHandler()->ProcessEvent(vEvent); // return value would be ignored by PM } + else + { + DoGiveHelp(wxEmptyString, FALSE); + return FALSE; + } } return TRUE; } // end of wxFrame::HandleMenuSelect @@ -1666,10 +1131,12 @@ MRESULT EXPENTRY wxFrameMainWndProc( int nItemCount; int i; PSWP pSWP = NULL; - SWP vSwpStb; RECTL vRectl; RECTL vRstb; - int nHeight=0; + RECTL vRtlb; + int nHeight = 0; + int nHeight2 = 0; + int nWidth = 0; pSWP = (PSWP)PVOIDFROMMP(wParam); nItemCount = SHORT1FROMMR(pWnd->m_fnOldWndProc(hWnd, ulMsg, wParam, lParam)); @@ -1677,18 +1144,11 @@ MRESULT EXPENTRY wxFrameMainWndProc( { ::WinQueryWindowRect(pWnd->m_frameStatusBar->GetHWND(), &vRstb); pWnd->m_frameStatusBar->GetSize(NULL, &nHeight); - ::WinQueryWindowRect(pWnd->m_hFrame, &vRectl); - ::WinMapWindowPoints(pWnd->m_hFrame, HWND_DESKTOP, (PPOINTL)&vRectl, 2); - vRstb = vRectl; - ::WinCalcFrameRect(pWnd->m_hFrame, &vRectl, TRUE); - - vSwpStb.x = vRectl.xLeft - vRstb.xLeft; - vSwpStb.y = vRectl.yBottom - vRstb.yBottom; - vSwpStb.cx = vRectl.xRight - vRectl.xLeft - 1; //?? -1 ?? - vSwpStb.cy = nHeight; - vSwpStb.fl = SWP_SIZE |SWP_MOVE | SWP_SHOW; - vSwpStb.hwnd = pWnd->m_frameStatusBar->GetHWND(); - vSwpStb.hwndInsertBehind = HWND_TOP; + } + if(pWnd->m_frameToolBar) + { + ::WinQueryWindowRect(pWnd->m_frameToolBar->GetHWND(), &vRtlb); + pWnd->m_frameToolBar->GetSize(&nWidth, &nHeight2); } ::WinQueryWindowRect(pWnd->m_hFrame, &vRectl); ::WinMapWindowPoints(pWnd->m_hFrame, HWND_DESKTOP, (PPOINTL)&vRectl, 2); @@ -1698,10 +1158,20 @@ MRESULT EXPENTRY wxFrameMainWndProc( { if(pWnd->m_hWnd && pSWP[i].hwnd == pWnd->m_hWnd) { - pSWP[i].x = vRectl.xLeft; - pSWP[i].y = vRectl.yBottom + nHeight; - pSWP[i].cx = vRectl.xRight - vRectl.xLeft; - pSWP[i].cy = vRectl.yTop - vRectl.yBottom - nHeight; + if (pWnd->m_frameToolBar && pWnd->m_frameToolBar->GetWindowStyleFlag() & wxTB_HORIZONTAL) + { + pSWP[i].x = vRectl.xLeft; + pSWP[i].y = vRectl.yBottom + nHeight; + pSWP[i].cx = vRectl.xRight - vRectl.xLeft; + pSWP[i].cy = vRectl.yTop - vRectl.yBottom - (nHeight + nHeight2); + } + else + { + pSWP[i].x = vRectl.xLeft + nWidth; + pSWP[i].y = vRectl.yBottom + nHeight; + pSWP[i].cx = vRectl.xRight - (vRectl.xLeft + nWidth); + pSWP[i].cy = vRectl.yTop - vRectl.yBottom - nHeight; + } pSWP[i].fl = SWP_SIZE | SWP_MOVE | SWP_SHOW; pSWP[i].hwndInsertBehind = HWND_TOP; } @@ -1742,7 +1212,6 @@ MRESULT EXPENTRY wxFrameWndProc( // MRESULT rc = (MRESULT)0; - bool bProcessed = FALSE; // // Stop right here if we don't have a valid handle in our wxWindow object. @@ -1840,8 +1309,6 @@ MRESULT wxFrame::OS2WindowProc( case WM_SIZE: { - SHORT nScxold = SHORT1FROMMP(wParam); // Old horizontal size. - SHORT nScyold = SHORT2FROMMP(wParam); // Old vertical size. SHORT nScxnew = SHORT1FROMMP(lParam); // New horizontal size. SHORT nScynew = SHORT2FROMMP(lParam); // New vertical size. @@ -1855,9 +1322,10 @@ MRESULT wxFrame::OS2WindowProc( case CM_QUERYDRAGIMAGE: { + const wxIcon& vIcon = GetIcon(); HPOINTER hIcon; - if (m_icon.Ok()) + if (vIcon.Ok()) hIcon = (HPOINTER)::WinSendMsg(GetHWND(), WM_QUERYICON, 0L, 0L); else hIcon = (HPOINTER)m_hDefaultIcon; @@ -1934,3 +1402,22 @@ wxWindow* wxFrame::GetClient() { return wxFindWinFromHandle((WXHWND)::WinWindowFromID(m_hFrame, FID_CLIENT)); } + +void wxFrame::SendSizeEvent() +{ + if (!m_bIconized) + { + RECTL vRect = wxGetWindowRect(GetHwnd()); + + ::WinPostMsg( GetHwnd() + ,WM_SIZE + ,MPFROM2SHORT( vRect.xRight - vRect.xLeft + ,vRect.xRight - vRect.xLeft + ) + ,MPFROM2SHORT( vRect.yTop - vRect.yBottom + ,vRect.yTop - vRect.yBottom + ) + ); + } +} +