+void wxRadioButton::SetLabel(
+ const wxString& rsLabel
+)
+{
+ ::WinSetWindowText((HWND)GetHWND(), (const char *)rsLabel.c_str());
+} // end of wxRadioButton::SetLabel
+
+void wxRadioButton::SetValue(
+ bool bValue
+)
+{
+ ::WinSendMsg((HWND)GetHWND(), BM_SETCHECK, (MPARAM)bValue, (MPARAM)0);
+ if (bValue)
+ {
+ const wxWindowList& rSiblings = GetParent()->GetChildren();
+ wxWindowList::Node* pNodeThis = rSiblings.Find(this);
+
+ wxCHECK_RET(pNodeThis, _T("radio button not a child of its parent?"));
+
+ //
+ // If it's not the first item of the group ...
+ //
+ if ( !HasFlag(wxRB_GROUP) )
+ {
+ //
+ // ...turn off all radio buttons before this one
+ //
+ for ( wxWindowList::Node* pNodeBefore = pNodeThis->GetPrevious();
+ pNodeBefore;
+ pNodeBefore = pNodeBefore->GetPrevious() )
+ {
+ wxRadioButton* pBtn = wxDynamicCast( pNodeBefore->GetData()
+ ,wxRadioButton
+ );
+ if (!pBtn)
+ {
+ //
+ // The radio buttons in a group must be consecutive, so there
+ // are no more of them
+ //
+ break;
+ }
+ pBtn->SetValue(FALSE);
+ if (pBtn->HasFlag(wxRB_GROUP))
+ {
+ //
+ // Even if there are other radio buttons before this one,
+ // they're not in the same group with us
+ //
+ break;
+ }
+ }
+ }
+
+ //
+ // ... and all after this one
+ //
+ for (wxWindowList::Node* pNodeAfter = pNodeThis->GetNext();
+ pNodeAfter;
+ pNodeAfter = pNodeAfter->GetNext())
+ {
+ wxRadioButton* pBtn = wxDynamicCast( pNodeAfter->GetData()
+ ,wxRadioButton
+ );
+
+ if (!pBtn || pBtn->HasFlag(wxRB_GROUP) )
+ {
+ //
+ // No more buttons or the first button of the next group
+ //
+ break;
+ }
+ pBtn->SetValue(FALSE);
+ }
+ }
+} // end of wxRadioButton::SetValue
+
+MRESULT wxRadioButton::OS2WindowProc(
+ WXUINT uMsg
+, WXWPARAM wParam
+, WXLPARAM lParam
+)
+{
+ if (uMsg == WM_SETFOCUS)
+ {
+ m_bFocusJustSet = TRUE;
+
+ MRESULT mRc = wxControl::OS2WindowProc( uMsg
+ ,wParam
+ ,lParam
+ );