X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/0093fe11c5f581abbc37447b191903e871112f46..84f6927eca931441abec9b6d21c0e412841eaab9:/src/os2/control.cpp?ds=sidebyside

diff --git a/src/os2/control.cpp b/src/os2/control.cpp
index 324ea885b2..f390b9c38b 100644
--- a/src/os2/control.cpp
+++ b/src/os2/control.cpp
@@ -161,9 +161,14 @@ bool wxControl::OS2CreateControl(
     SubclassWin(m_hWnd);
 
     //
-    // Controls use the same font and colours as their parent dialog by default
+    // Controls use the same colours as their parent dialog by default
     //
     InheritAttributes();
+    //
+    // All OS/2 ctrls use the small font
+    //
+    SetFont(*wxSMALL_FONT);
+
     SetXComp(0);
     SetYComp(0);
     SetSize( rPos.x
@@ -240,6 +245,15 @@ WXDWORD wxControl::OS2GetStyle(
     return dwStyle;
 } // end of wxControl::OS2GetStyle
 
+void wxControl::SetLabel(
+  const wxString&                   rsLabel
+)
+{
+    wxString                        sLabel = ::wxPMTextToLabel(rsLabel);
+
+    ::WinSetWindowText(GetHwnd(), sLabel.c_str());
+} // end of wxControl::SetLabel
+
 // ---------------------------------------------------------------------------
 // global functions
 // ---------------------------------------------------------------------------