]> git.saurik.com Git - wxWidgets.git/blobdiff - src/msw/radiobox.cpp
work around probable bug in GTK+ 2.18 when calling WriteText on a new, empty control...
[wxWidgets.git] / src / msw / radiobox.cpp
index f49f7a857d7fb9ed4993c01763537644c150e9f2..8c8b20415876e413d3ce850eef4b39cd98d374c3 100644 (file)
 /////////////////////////////////////////////////////////////////////////////
-// Name:        radiobox.cpp
-// Purpose:     wxRadioBox
+// Name:        src/msw/radiobox.cpp
+// Purpose:     wxRadioBox implementation
 // Author:      Julian Smart
 // Modified by:
 // Created:     04/01/98
 // RCS-ID:      $Id$
-// Copyright:   (c) Julian Smart and Markus Holzem
-// Licence:     wxWindows license
+// Copyright:   (c) Julian Smart
+// Licence:     wxWindows licence
 /////////////////////////////////////////////////////////////////////////////
 
-#ifdef __GNUG__
-#pragma implementation "radiobox.h"
-#endif
+// ===========================================================================
+// declarations
+// ===========================================================================
+
+// ---------------------------------------------------------------------------
+// headers
+// ---------------------------------------------------------------------------
 
 // For compilers that support precompilation, includes "wx.h".
 #include "wx/wxprec.h"
 
 #ifdef __BORLANDC__
-#pragma hdrstop
+    #pragma hdrstop
 #endif
 
-#ifndef WX_PRECOMP
-#include <stdio.h>
-#include "wx/setup.h"
+#if wxUSE_RADIOBOX
+
 #include "wx/radiobox.h"
+
+#ifndef WX_PRECOMP
+    #include "wx/bitmap.h"
+    #include "wx/brush.h"
+    #include "wx/settings.h"
+    #include "wx/log.h"
 #endif
 
-#include "wx/msw/private.h"
+#include "wx/msw/subwin.h"
+
+#if wxUSE_TOOLTIPS
+    #include "wx/tooltip.h"
+#endif // wxUSE_TOOLTIPS
+
+// TODO: wxCONSTRUCTOR
+#if 0 // wxUSE_EXTENDED_RTTI
+WX_DEFINE_FLAGS( wxRadioBoxStyle )
+
+wxBEGIN_FLAGS( wxRadioBoxStyle )
+    // new style border flags, we put them first to
+    // use them for streaming out
+    wxFLAGS_MEMBER(wxBORDER_SIMPLE)
+    wxFLAGS_MEMBER(wxBORDER_SUNKEN)
+    wxFLAGS_MEMBER(wxBORDER_DOUBLE)
+    wxFLAGS_MEMBER(wxBORDER_RAISED)
+    wxFLAGS_MEMBER(wxBORDER_STATIC)
+    wxFLAGS_MEMBER(wxBORDER_NONE)
+
+    // old style border flags
+    wxFLAGS_MEMBER(wxSIMPLE_BORDER)
+    wxFLAGS_MEMBER(wxSUNKEN_BORDER)
+    wxFLAGS_MEMBER(wxDOUBLE_BORDER)
+    wxFLAGS_MEMBER(wxRAISED_BORDER)
+    wxFLAGS_MEMBER(wxSTATIC_BORDER)
+    wxFLAGS_MEMBER(wxBORDER)
+
+    // standard window styles
+    wxFLAGS_MEMBER(wxTAB_TRAVERSAL)
+    wxFLAGS_MEMBER(wxCLIP_CHILDREN)
+    wxFLAGS_MEMBER(wxTRANSPARENT_WINDOW)
+    wxFLAGS_MEMBER(wxWANTS_CHARS)
+    wxFLAGS_MEMBER(wxFULL_REPAINT_ON_RESIZE)
+    wxFLAGS_MEMBER(wxALWAYS_SHOW_SB )
+    wxFLAGS_MEMBER(wxVSCROLL)
+    wxFLAGS_MEMBER(wxHSCROLL)
+
+    wxFLAGS_MEMBER(wxRA_SPECIFY_COLS)
+    wxFLAGS_MEMBER(wxRA_SPECIFY_ROWS)
+wxEND_FLAGS( wxRadioBoxStyle )
+
+IMPLEMENT_DYNAMIC_CLASS_XTI(wxRadioBox, wxControl,"wx/radiobox.h")
+
+wxBEGIN_PROPERTIES_TABLE(wxRadioBox)
+    wxEVENT_PROPERTY( Select , wxEVT_COMMAND_RADIOBOX_SELECTED , wxCommandEvent )
+    wxPROPERTY_FLAGS( WindowStyle , wxRadioBoxStyle , long , SetWindowStyleFlag , GetWindowStyleFlag , , 0 /*flags*/ , wxT("Helpstring") , wxT("group")) // style
+wxEND_PROPERTIES_TABLE()
 
-#if !USE_SHARED_LIBRARY
+#else
 IMPLEMENT_DYNAMIC_CLASS(wxRadioBox, wxControl)
 #endif
 
-bool wxRadioBox::MSWCommand(WXUINT param, WXWORD id)
-{
-  if (param == BN_CLICKED)
-  {
-#ifdef __WIN32__
-    int i;
-    for (i = 0; i < m_noItems; i++)
-      if (id == GetWindowLong((HWND) m_radioButtons[i], GWL_ID))
-        m_selectedButton = i;
-#else
-    int i;
-    for (i = 0; i < m_noItems; i++)
-      if (id == GetWindowWord((HWND) m_radioButtons[i], GWW_ID))
-        m_selectedButton = i;
-#endif
+/*
+    selection
+    content
+        label
+        dimension
+        item
+*/
 
-    wxCommandEvent event(wxEVT_COMMAND_RADIOBOX_SELECTED, m_windowId);
-    event.SetInt( m_selectedButton );
-    event.SetEventObject( this );
-    ProcessCommand(event);
-    return TRUE;
-  }
-  else return FALSE;
-}
+// ---------------------------------------------------------------------------
+// private functions
+// ---------------------------------------------------------------------------
 
-#if WXWIN_COMPATIBILITY
-wxRadioBox::wxRadioBox(wxWindow *parent, wxFunction func, const char *title,
-             int x, int y, int width, int height,
-             int n, char **choices,
-             int majorDim, long style, const char *name)
-{
-    wxString *choices2 = new wxString[n];
-    for ( int i = 0; i < n; i ++) choices2[i] = choices[i];
-    Create(parent, -1, title, wxPoint(x, y), wxSize(width, height), n, choices2, majorDim, style,
-        wxDefaultValidator, name);
-    Callback(func);
-    delete choices2;
-}
+// wnd proc for radio buttons
+LRESULT APIENTRY _EXPORT wxRadioBtnWndProc(HWND hWnd,
+                                           UINT message,
+                                           WPARAM wParam,
+                                           LPARAM lParam);
 
-#endif
+// ---------------------------------------------------------------------------
+// global vars
+// ---------------------------------------------------------------------------
+
+// the pointer to standard radio button wnd proc
+static WXFARPROC s_wndprocRadioBtn = (WXFARPROC)NULL;
+
+// ===========================================================================
+// implementation
+// ===========================================================================
+
+// ---------------------------------------------------------------------------
+// wxRadioBox creation
+// ---------------------------------------------------------------------------
 
 // Radio box item
-wxRadioBox::wxRadioBox(void)
+void wxRadioBox::Init()
 {
-  m_selectedButton = -1;
-  m_noItems = 0;
-  m_noRowsOrCols = 0;
-  m_radioButtons = NULL;
-  m_majorDim = 0 ;
-  m_radioWidth = NULL ;
-  m_radioHeight = NULL ;
+    m_selectedButton = wxNOT_FOUND;
+    m_radioButtons = NULL;
+    m_dummyHwnd = NULL;
+    m_radioWidth = NULL;
+    m_radioHeight = NULL;
 }
 
-bool wxRadioBox::Create(wxWindow *parent, wxWindowID id, const wxString& title,
-             const wxPoint& pos, const wxSize& size,
-             int n, const wxString choices[],
-             int majorDim, long style,
-             const wxValidator& val, const wxString& name)
+bool wxRadioBox::Create(wxWindow *parent,
+                        wxWindowID id,
+                        const wxString& title,
+                        const wxPoint& pos,
+                        const wxSize& size,
+                        int n,
+                        const wxString choices[],
+                        int majorDim,
+                        long style,
+                        const wxValidator& val,
+                        const wxString& name)
 {
-  m_selectedButton = -1;
-  m_noItems = n;
+    // common initialization
+    if ( !wxStaticBox::Create(parent, id, title, pos, size, style, name) )
+        return false;
 
-  SetName(name);
-  SetValidator(val);
+    // the code elsewhere in this file supposes that either wxRA_SPECIFY_COLS
+    // or wxRA_SPECIFY_ROWS is set, ensure that this is indeed the case
+    if ( !(style & (wxRA_SPECIFY_ROWS | wxRA_SPECIFY_COLS)) )
+        style |= wxRA_SPECIFY_COLS;
 
-  parent->AddChild(this);
-  m_backgroundColour = parent->GetBackgroundColour() ;
-  m_foregroundColour = parent->GetForegroundColour() ;
+#if wxUSE_VALIDATORS
+    SetValidator(val);
+#else
+    wxUnusedVar(val);
+#endif // wxUSE_VALIDATORS/!wxUSE_VALIDATORS
+
+    // We need an extra one to keep track of the 'dummy' item we
+    // create to end the radio group, so it will be destroyed and
+    // it's id will be released.  But we want it separate from the
+    // other buttons since the wxSubwindows will operate on it as
+    // well and we just want to ignore it until destroying it.
+    // For instance, we don't want the bounding box of the radio
+    // buttons to include the dummy button
+    m_radioButtons = new wxSubwindows(n);
+
+    m_radioWidth = new int[n];
+    m_radioHeight = new int[n];
+
+    for ( int i = 0; i < n; i++ )
+    {
+        m_radioWidth[i] =
+        m_radioHeight[i] = wxDefaultCoord;
+        long styleBtn = BS_AUTORADIOBUTTON | WS_TABSTOP | WS_CHILD | WS_VISIBLE;
+        if ( i == 0 )
+            styleBtn |= WS_GROUP;
 
-  m_windowStyle = (long&)style;
+        wxWindowIDRef subid = NewControlId();
 
-  int x = pos.x;
-  int y = pos.y;
-  int width = size.x;
-  int height = size.y;
+        HWND hwndBtn = ::CreateWindow(wxT("BUTTON"),
+                                      choices[i].wx_str(),
+                                      styleBtn,
+                                      0, 0, 0, 0,   // will be set in SetSize()
+                                      GetHwndOf(parent),
+                                      (HMENU)wxUIntToPtr(subid.GetValue()),
+                                      wxGetInstance(),
+                                      NULL);
 
-  if (id == -1)
-    m_windowId = NewControlId();
-  else
-    m_windowId = id;
+        if ( !hwndBtn )
+        {
+            wxLogLastError(wxT("CreateWindow(radio btn)"));
 
-  m_noRowsOrCols = majorDim;
-  if (majorDim==0)
-    m_majorDim = n ;
-  else // Seemed to make sense to put this 'else' here...  (RD)
-    m_majorDim = majorDim ;
+            return false;
+        }
 
-  long msStyle = GROUP_FLAGS;
+        // Keep track of the subwindow
+        m_radioButtons->Set(i, hwndBtn, subid);
 
-  bool want3D;
-  WXDWORD exStyle = Determine3DEffects(0, &want3D) ;
-  // Even with extended styles, need to combine with WS_BORDER
-  // for them to look right.
-/*
-  if ( want3D || wxStyleHasBorder(m_windowStyle) )
-    msStyle |= WS_BORDER;
-*/
+        SubclassRadioButton((WXHWND)hwndBtn);
 
+        // Also, make it a subcontrol of this control
+        m_subControls.Add(subid);
+    }
 
-  HWND the_handle = (HWND) parent->GetHWND() ;
-
-  m_hWnd = (WXHWND)::CreateWindowEx
-                     (
-                      (DWORD)exStyle,
-                      GROUP_CLASS,
-                      title,
-                      msStyle,
-                      0, 0, 0, 0,
-                      the_handle,
-                      (HMENU)m_windowId,
-                      wxGetInstance(),
-                      NULL
-                     );
-
-#if CTL3D
-  if (want3D)
-  {
-    Ctl3dSubclassCtl((HWND)m_hWnd);
-    m_useCtl3D = TRUE;
-  }
-#endif
+    // Create a dummy radio control to end the group.
+    m_dummyId = NewControlId();
+
+    m_dummyHwnd = (WXHWND)::CreateWindow(wxT("BUTTON"),
+                         wxEmptyString,
+                         WS_GROUP | BS_AUTORADIOBUTTON | WS_CHILD,
+                         0, 0, 0, 0, GetHwndOf(parent),
+                         (HMENU)wxUIntToPtr(m_dummyId.GetValue()),
+                         wxGetInstance(), NULL);
+
+
+    m_radioButtons->SetFont(GetFont());
 
-  SetFont(parent->GetFont());
-
-  SubclassWin((WXHWND)m_hWnd);
-
-  // Some radio boxes test consecutive id.
-  (void)NewControlId() ;
-  m_radioButtons = new WXHWND[n];
-  m_radioWidth = new int[n] ;
-  m_radioHeight = new int[n] ;
-  int i;
-  for (i = 0; i < n; i++)
-  {
-    m_radioWidth[i] = m_radioHeight[i] = -1 ;
-    long groupStyle = 0;
-    if (i == 0 && style==0)
-      groupStyle = WS_GROUP;
-    long newId = NewControlId();
-    long msStyle = groupStyle | RADIO_FLAGS;
-
-    m_radioButtons[i] = (WXHWND) CreateWindowEx(exStyle, RADIO_CLASS, choices[i],
-                          msStyle,0,0,0,0,
-                          the_handle, (HMENU)newId, wxGetInstance(), NULL);
-#if CTL3D
-  if (want3D)
-  {
-    Ctl3dSubclassCtl((HWND) m_hWnd);
-   m_useCtl3D = TRUE;
-  }
+#ifdef __WXWINCE__
+    // Set the z-order correctly
+    SetWindowPos(GetHwnd(), HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);
 #endif
-    if (GetFont().Ok())
-    {
-       SendMessage((HWND)m_radioButtons[i],WM_SETFONT,
-                    (WPARAM)GetFont().GetResourceHandle(),0L);
-    }
-    m_subControls.Append((wxObject *)newId);
-  }
 
-  // Create a dummy radio control to end the group.
-  (void)CreateWindowEx(0, RADIO_CLASS, "", WS_GROUP|RADIO_FLAGS, 0,0,0,0, the_handle, (HMENU)NewControlId(), wxGetInstance(), NULL);
+    SetMajorDim(majorDim == 0 ? n : majorDim, style);
+    SetSelection(0);
+    SetSize(pos.x, pos.y, size.x, size.y);
 
-  SetSelection(0);
+    // Now that we have items determine what is the best size and set it.
+    SetInitialSize(size);
 
-  SetSize(x, y, width, height);
+    return true;
+}
 
-  return TRUE;
+bool wxRadioBox::Create(wxWindow *parent,
+                        wxWindowID id,
+                        const wxString& title,
+                        const wxPoint& pos,
+                        const wxSize& size,
+                        const wxArrayString& choices,
+                        int majorDim,
+                        long style,
+                        const wxValidator& val,
+                        const wxString& name)
+{
+    wxCArrayString chs(choices);
+    return Create(parent, id, title, pos, size, chs.GetCount(),
+                  chs.GetStrings(), majorDim, style, val, name);
 }
 
-#if 0
-bool wxRadioBox::Create(wxWindow *parent, wxWindowID id, const wxString& title,
-             const wxPoint& pos, const wxSize& size,
-             int n, const wxBitmap *choices[],
-             int majorDim, long style,
-             const wxValidator& val, const wxString& name)
+wxRadioBox::~wxRadioBox()
 {
-  m_selectedButton = -1;
-  m_noRowsOrCols = 0;
-  m_noItems = n;
-
-  SetName(name);
-  SetValidator(val);
-
-  parent->AddChild(this);
-  m_backgroundColour = parent->GetBackgroundColour() ;
-  m_foregroundColour = parent->GetForegroundColour() ;
-
-  m_windowStyle = (long&)style;
-
-  int x = pos.x;
-  int y = pos.y;
-  int width = size.x;
-  int height = size.y;
-
-  if (id == -1)
-    m_windowId = NewControlId();
-  else
-    m_windowId = id;
-
-
-  m_noRowsOrCols = majorDim;
-  if (majorDim==0)
-    m_majorDim = n ;
-  m_majorDim = majorDim ;
-  HWND the_handle ;
-
-  long msStyle = GROUP_FLAGS;
-
-  bool want3D;
-  WXDWORD exStyle = Determine3DEffects(0, &want3D) ;
-  // Even with extended styles, need to combine with WS_BORDER
-  // for them to look right.
-  if ( want3D || wxStyleHasBorder(m_windowStyle) )
-    msStyle |= WS_BORDER;
-
-  m_hWnd = (WXHWND) CreateWindowEx((DWORD) exStyle, GROUP_CLASS, (title == "" ? NULL : (const char *)title),
-                           msStyle,
-                           0,0,0,0,
-                           (HWND) parent->GetHWND(), (HMENU) m_windowId, wxGetInstance(), NULL) ;
-
-  the_handle = (HWND) parent->GetHWND();
-
-#if CTL3D
-  if (want3D)
-  {
-    Ctl3dSubclassCtl((HWND) m_hWnd);
-   m_useCtl3D = TRUE;
-  }
-#endif
+    SendDestroyEvent();
 
-  SetFont(parent->GetFont());
-
-  // Subclass again for purposes of dialog editing mode
-  SubclassWin((WXHWND)m_hWnd);
-
-  (void)NewControlId() ;
-  m_radioButtons = new WXHWND[n];
-  m_radioWidth = new int[n] ;
-  m_radioHeight = new int[n] ;
-
-  int i;
-  for (i = 0; i < n; i++)
-  {
-    long groupStyle = 0;
-    if (i == 0 && style==0)
-      groupStyle = WS_GROUP;
-    long newId = NewControlId();
-    m_radioWidth[i]  = ((wxBitmap *)choices[i])->GetWidth();
-    m_radioHeight[i] = ((wxBitmap *)choices[i])->GetHeight();
-    char tmp[32] ;
-    sprintf(tmp,"Toggle%d",i) ;
-    long msStyle = groupStyle | RADIO_FLAGS;
-    m_radioButtons[i] = (WXHWND) CreateWindowEx(exStyle, RADIO_CLASS, tmp,
-                          msStyle,0,0,0,0,
-                          the_handle, (HMENU)newId, wxhInstance, NULL);
-#if CTL3D
-  if (want3D)
-  {
-    Ctl3dSubclassCtl((HWND) m_hWnd);
-   m_useCtl3D = TRUE;
-  }
-#endif
-    m_subControls.Append((wxObject *)newId);
-  }
-  // Create a dummy radio control to end the group.
-  (void)CreateWindowEx(0, RADIO_CLASS, "", WS_GROUP|RADIO_FLAGS, 0,0,0,0, the_handle, (HMENU)NewControlId(), wxGetInstance(), NULL);
+    delete m_radioButtons;
+    if ( m_dummyHwnd )
+        DestroyWindow((HWND)m_dummyHwnd);
+    delete[] m_radioWidth;
+    delete[] m_radioHeight;
+}
 
-  SetSelection(0);
+// NB: if this code is changed, wxGetWindowForHWND() which relies on having the
+//     radiobox pointer in GWL_USERDATA for radio buttons must be updated too!
+void wxRadioBox::SubclassRadioButton(WXHWND hWndBtn)
+{
+    HWND hwndBtn = (HWND)hWndBtn;
 
-  SetSize(x, y, width, height);
+    if ( !s_wndprocRadioBtn )
+        s_wndprocRadioBtn = (WXFARPROC)wxGetWindowProc(hwndBtn);
 
-  return TRUE;
+    wxSetWindowProc(hwndBtn, wxRadioBtnWndProc);
+    wxSetWindowUserData(hwndBtn, this);
 }
-#endif
 
-wxRadioBox::~wxRadioBox(void)
+// ----------------------------------------------------------------------------
+// events generation
+// ----------------------------------------------------------------------------
+
+bool wxRadioBox::MSWCommand(WXUINT cmd, WXWORD id_)
 {
-  m_isBeingDeleted = TRUE;
-
-  if (m_radioButtons)
-  {
-    int i;
-    for (i = 0; i < m_noItems; i++)
-      DestroyWindow((HWND) m_radioButtons[i]);
-    delete[] m_radioButtons;
-  }
-  if (m_radioWidth)
-    delete[] m_radioWidth ;
-  if (m_radioHeight)
-    delete[] m_radioHeight ;
-  if (m_hWnd)
-    ::DestroyWindow((HWND) m_hWnd) ;
-  m_hWnd = 0 ;
+    const int id = (signed short)id_;
 
+    if ( cmd == BN_CLICKED )
+    {
+        if (id == GetId())
+            return true;
+
+        int selectedButton = wxNOT_FOUND;
+
+        const unsigned int count = GetCount();
+        for ( unsigned int i = 0; i < count; i++ )
+        {
+            const HWND hwndBtn = (*m_radioButtons)[i];
+            if ( id == wxGetWindowId(hwndBtn) )
+            {
+                // we can get BN_CLICKED for a button which just became focused
+                // but it may not be checked, in which case we shouldn't
+                // generate a radiobox selection changed event for it
+                if ( ::SendMessage(hwndBtn, BM_GETCHECK, 0, 0) == BST_CHECKED )
+                    selectedButton = i;
+
+                break;
+            }
+        }
+
+        if ( selectedButton == wxNOT_FOUND )
+        {
+            // just ignore it - due to a hack with WM_NCHITTEST handling in our
+            // wnd proc, we can receive dummy click messages when we click near
+            // the radiobox edge (this is ugly but Julian wouldn't let me get
+            // rid of this...)
+            return false;
+        }
+
+        if ( selectedButton != m_selectedButton )
+        {
+            m_selectedButton = selectedButton;
+
+            SendNotificationEvent();
+        }
+        //else: don't generate events when the selection doesn't change
+
+        return true;
+    }
+    else
+        return false;
 }
 
-wxString wxRadioBox::GetLabel(int item) const
+void wxRadioBox::Command(wxCommandEvent & event)
 {
-  GetWindowText((HWND)m_radioButtons[item], wxBuffer, 300);
-  return wxString(wxBuffer);
+    SetSelection (event.GetInt());
+    SetFocus();
+    ProcessCommand(event);
 }
 
-void wxRadioBox::SetLabel(int item, const wxString& label)
+void wxRadioBox::SendNotificationEvent()
 {
-  m_radioWidth[item] = m_radioHeight[item] = -1 ;
-  SetWindowText((HWND)m_radioButtons[item], (const char *)label);
+    wxCommandEvent event(wxEVT_COMMAND_RADIOBOX_SELECTED, m_windowId);
+    event.SetInt( m_selectedButton );
+    event.SetString(GetString(m_selectedButton));
+    event.SetEventObject( this );
+    ProcessCommand(event);
 }
 
-void wxRadioBox::SetLabel(int item, wxBitmap *bitmap)
+// ----------------------------------------------------------------------------
+// simple accessors
+// ----------------------------------------------------------------------------
+
+unsigned int wxRadioBox::GetCount() const
 {
-/*
-    m_radioWidth[item] = bitmap->GetWidth() + FB_MARGIN ;
-    m_radioHeight[item] = bitmap->GetHeight() + FB_MARGIN ;
-*/
+    return m_radioButtons ? m_radioButtons->GetCount() : 0u;
 }
 
-int wxRadioBox::FindString(const wxString& s) const
+void wxRadioBox::SetString(unsigned int item, const wxString& label)
 {
int i;
- for (i = 0; i < m_noItems; i++)
- {
-  GetWindowText((HWND) m_radioButtons[i], wxBuffer, 1000);
-  if (s == wxBuffer)
-    return i;
- }
return -1;
   wxCHECK_RET( IsValid(item), wxT("invalid radiobox index") );
+
+    m_radioWidth[item] =
+    m_radioHeight[item] = wxDefaultCoord;
+
+    ::SetWindowText((*m_radioButtons)[item], label.c_str());
+
   InvalidateBestSize();
 }
 
 void wxRadioBox::SetSelection(int N)
 {
-  if ((N < 0) || (N >= m_noItems))
-    return;
+    wxCHECK_RET( IsValid(N), wxT("invalid radiobox index") );
 
-// Following necessary for Win32s, because Win32s translate BM_SETCHECK
-  if (m_selectedButton >= 0 && m_selectedButton < m_noItems)
-    SendMessage((HWND) m_radioButtons[m_selectedButton], BM_SETCHECK, 0, 0L);
+    // unselect the old button
+    if ( m_selectedButton != wxNOT_FOUND )
+        ::SendMessage((*m_radioButtons)[m_selectedButton], BM_SETCHECK, 0, 0L);
 
-  SendMessage((HWND) m_radioButtons[N], BM_SETCHECK, 1, 0L);
-  m_selectedButton = N;
-}
+    // and select the new one
+    ::SendMessage((*m_radioButtons)[N], BM_SETCHECK, 1, 0L);
 
-// Get single selection, for single choice list items
-int wxRadioBox::GetSelection(void) const
-{
-  return m_selectedButton;
+    m_selectedButton = N;
 }
 
 // Find string for position
-wxString wxRadioBox::GetString(int N) const
+wxString wxRadioBox::GetString(unsigned int item) const
 {
-  GetWindowText((HWND) m_radioButtons[N], wxBuffer, 1000);
-  return wxString(wxBuffer);
+    wxCHECK_MSG( IsValid(item), wxEmptyString,
+                 wxT("invalid radiobox index") );
+
+    return wxGetWindowText((*m_radioButtons)[item]);
 }
 
-void wxRadioBox::SetSize(int x, int y, int width, int height, int sizeFlags)
+void wxRadioBox::SetFocus()
 {
-  int currentX, currentY;
-  GetPosition(&currentX, &currentY);
-  int xx = x;
-  int yy = y;
-
-  if (x == -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
-    xx = currentX;
-  if (y == -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
-    yy = currentY;
-
-  AdjustForParentClientOrigin(xx, yy, sizeFlags);
-
-  char buf[400];
-
-  int y_offset = yy;
-  int x_offset = xx;
-  int current_width, cyf;
-
-  int cx1,cy1 ;
-  wxGetCharSize(m_hWnd, &cx1, &cy1, & GetFont());
-  // Attempt to have a look coherent with other platforms:
-  // We compute the biggest toggle dim, then we align all
-  // items according this value.
-  int maxWidth =  -1;
-  int maxHeight = -1 ;
-
-  int i;
-  for (i = 0 ; i < m_noItems; i++)
-  {
-    int eachWidth;
-    int eachHeight ;
-    if (m_radioWidth[i]<0)
+    if ( GetCount() > 0 )
     {
-      // It's a labelled toggle
-      GetWindowText((HWND) m_radioButtons[i], buf, 300);
-      GetTextExtent(buf, &current_width, &cyf,NULL,NULL, & GetFont());
-      eachWidth = (int)(current_width + RADIO_SIZE);
-      eachHeight = (int)((3*cyf)/2);
-    }
-    else
-    {
-      eachWidth = m_radioWidth[i] ;
-      eachHeight = m_radioHeight[i] ;
-    }
-    if (maxWidth<eachWidth) maxWidth = eachWidth ;
-    if (maxHeight<eachHeight) maxHeight = eachHeight ;
-  }
-
-  if (m_hWnd)
-  {
-    int totWidth ;
-    int totHeight;
-
-    int nbHor,nbVer;
-
-    if (m_windowStyle & wxRA_VERTICAL)
-    {
-      nbVer = m_majorDim ;
-      nbHor = (m_noItems+m_majorDim-1)/m_majorDim ;
-    }
-    else
-    {
-      nbHor = m_majorDim ;
-      nbVer = (m_noItems+m_majorDim-1)/m_majorDim ;
+        ::SetFocus((*m_radioButtons)[m_selectedButton == wxNOT_FOUND
+                                        ? 0
+                                        : m_selectedButton]);
     }
+}
 
-    // this formula works, but I don't know why.
-    // Please, be sure what you do if you modify it!!
-    if (m_radioWidth[0]<0)
-      totHeight = (nbVer * maxHeight) + cy1/2 ;
-    else
-      totHeight = nbVer * (maxHeight+cy1/2) ;
-    totWidth  = nbHor * (maxWidth+cx1) ;
+// Enable a specific button
+bool wxRadioBox::Enable(unsigned int item, bool enable)
+{
+    wxCHECK_MSG( IsValid(item), false,
+                 wxT("invalid item in wxRadioBox::Enable()") );
 
-#if (!CTL3D)
-    // Requires a bigger group box in plain Windows
-    MoveWindow((HWND) m_hWnd,x_offset,y_offset,totWidth+cx1,totHeight+(3*cy1)/2,TRUE) ;
-#else
-    MoveWindow((HWND) m_hWnd,x_offset,y_offset,totWidth+cx1,totHeight+cy1,TRUE) ;
-#endif
-    x_offset += cx1;
-    y_offset += cy1;
-  }
+    BOOL ret = ::EnableWindow((*m_radioButtons)[item], enable);
 
-#if (!CTL3D)
-  y_offset += (int)(cy1/2); // Fudge factor since buttons overlapped label
-                            // JACS 2/12/93. CTL3D draws group label quite high.
-#endif
-  int startX = x_offset ;
-  int startY = y_offset ;
+    return (ret == 0) != enable;
+}
 
-  for ( i = 0 ; i < m_noItems; i++)
-  {
-    // Bidimensional radio adjustment
-    if (i&&((i%m_majorDim)==0)) // Why is this omitted for i = 0?
-    {
-      if (m_windowStyle & wxRA_VERTICAL)
-      {
-        y_offset = startY;
-        x_offset += maxWidth + cx1 ;
-      }
-      else
-      {
-        x_offset = startX ;
-        y_offset += maxHeight ;
-        if (m_radioWidth[0]>0)
-          y_offset += cy1/2 ;
-      }
-    }
-    int eachWidth ;
-    int eachHeight ;
-    if (m_radioWidth[i]<0)
-    {
-      // It's a labeled item
-      GetWindowText((HWND) m_radioButtons[i], buf, 300);
-      GetTextExtent(buf, &current_width, &cyf,NULL,NULL, & GetFont());
-
-      // How do we find out radio button bitmap size!!
-      // By adjusting them carefully, manually :-)
-      eachWidth = (int)(current_width + RADIO_SIZE);
-      eachHeight = (int)((3*cyf)/2);
-    }
-    else
-    {
-      eachWidth = m_radioWidth[i] ;
-      eachHeight = m_radioHeight[i] ;
-    }
+bool wxRadioBox::IsItemEnabled(unsigned int item) const
+{
+    wxCHECK_MSG( IsValid(item), false,
+                 wxT("invalid item in wxRadioBox::IsItemEnabled()") );
 
-    MoveWindow((HWND) m_radioButtons[i],x_offset,y_offset,eachWidth,eachHeight,TRUE);
-    if (m_windowStyle & wxRA_VERTICAL)
-    {
-      y_offset += maxHeight;
-      if (m_radioWidth[0]>0)
-        y_offset += cy1/2 ;
-    }
-    else
-      x_offset += maxWidth + cx1;
-  }
+    return ::IsWindowEnabled((*m_radioButtons)[item]) != 0;
 }
 
-void wxRadioBox::GetSize(int *width, int *height) const
+// Show a specific button
+bool wxRadioBox::Show(unsigned int item, bool show)
 {
-  RECT rect;
-  rect.left = -1; rect.right = -1; rect.top = -1; rect.bottom = -1;
+    wxCHECK_MSG( IsValid(item), false,
+                 wxT("invalid item in wxRadioBox::Show()") );
 
-  if (m_hWnd)
-    wxFindMaxSize(m_hWnd, &rect);
+    BOOL ret = ::ShowWindow((*m_radioButtons)[item], show ? SW_SHOW : SW_HIDE);
 
-  int i;
-  for (i = 0; i < m_noItems; i++)
-    wxFindMaxSize(m_radioButtons[i], &rect);
+    bool changed = (ret != 0) != show;
+    if ( changed )
+    {
+        InvalidateBestSize();
+    }
 
-  *width = rect.right - rect.left;
-  *height = rect.bottom - rect.top;
+    return changed;
 }
 
-void wxRadioBox::GetPosition(int *x, int *y) const
+bool wxRadioBox::IsItemShown(unsigned int item) const
 {
-  wxWindow *parent = GetParent();
-  RECT rect;
-  rect.left = -1; rect.right = -1; rect.top = -1; rect.bottom = -1;
-
-  int i;
-  for (i = 0; i < m_noItems; i++)
-    wxFindMaxSize(m_radioButtons[i], &rect);
-
-  if (m_hWnd)
-    wxFindMaxSize(m_hWnd, &rect);
-
-  // Since we now have the absolute screen coords,
-  // if there's a parent we must subtract its top left corner
-  POINT point;
-  point.x = rect.left;
-  point.y = rect.top;
-  if (parent)
-  {
-    ::ScreenToClient((HWND) parent->GetHWND(), &point);
-  }
-  // We may be faking the client origin.
-  // So a window that's really at (0, 30) may appear
-  // (to wxWin apps) to be at (0, 0).
-  if (GetParent())
-  {
-    wxPoint pt(GetParent()->GetClientAreaOrigin());
-    point.x -= pt.x;
-    point.y -= pt.y;
-  }
-
-  *x = point.x;
-  *y = point.y;
+    wxCHECK_MSG( IsValid(item), false,
+                 wxT("invalid item in wxRadioBox::IsItemShown()") );
+
+    // don't use IsWindowVisible() here because it would return false if the
+    // radiobox itself is hidden while we want to only return false if this
+    // button specifically is hidden
+    return (::GetWindowLong((*m_radioButtons)[item],
+                            GWL_STYLE) & WS_VISIBLE) != 0;
 }
 
-wxString wxRadioBox::GetLabel(void) const
+#if wxUSE_TOOLTIPS
+
+bool wxRadioBox::HasToolTips() const
 {
-  if (m_hWnd)
-  {
-    GetWindowText((HWND) m_hWnd, wxBuffer, 300);
-    return wxString(wxBuffer);
-  }
-  else return wxString("");
+    return wxStaticBox::HasToolTips() || wxRadioBoxBase::HasItemToolTips();
 }
 
-void wxRadioBox::SetLabel(const wxString& label)
+void wxRadioBox::DoSetItemToolTip(unsigned int item, wxToolTip *tooltip)
 {
-  if (m_hWnd && label)
-    SetWindowText((HWND) m_hWnd, label);
+    // we have already checked for the item to be valid in wxRadioBoxBase
+    const HWND hwndRbtn = (*m_radioButtons)[item];
+    if ( tooltip != NULL )
+        tooltip->Add(hwndRbtn);
+    else // unset the tooltip
+        wxToolTip::Remove(hwndRbtn, 0, wxRect(0,0,0,0));
+        // the second parameter can be zero since it's ignored by Remove()
+        // as we pass a rect for which wxRect::IsEmpty()==true...
 }
 
-void wxRadioBox::SetFocus(void)
+#endif // wxUSE_TOOLTIPS
+
+bool wxRadioBox::Reparent(wxWindowBase *newParent)
 {
-  if (m_noItems > 0)
-  {
-    if (m_selectedButton == -1)
-      ::SetFocus((HWND) m_radioButtons[0]);
-    else
-      ::SetFocus((HWND) m_radioButtons[m_selectedButton]);
-  }
+    if ( !wxStaticBox::Reparent(newParent) )
+    {
+        return false;
+    }
 
+    HWND hwndParent = GetHwndOf(GetParent());
+    for ( size_t item = 0; item < m_radioButtons->GetCount(); item++ )
+    {
+        ::SetParent((*m_radioButtons)[item], hwndParent);
+    }
+#ifdef __WXWINCE__
+    // put static box under the buttons in the Z-order
+    SetWindowPos(GetHwnd(), HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);
+#endif
+    return true;
 }
 
-bool wxRadioBox::Show(bool show)
-{
-  int cshow;
-  if (show)
-    cshow = SW_SHOW;
-  else
-    cshow = SW_HIDE;
-  if (m_hWnd)
-    ShowWindow((HWND) m_hWnd, cshow);
-  int i;
-  for (i = 0; i < m_noItems; i++)
-    ShowWindow((HWND) m_radioButtons[i], cshow);
-  return TRUE;
-}
+WX_FORWARD_STD_METHODS_TO_SUBWINDOWS(wxRadioBox, wxStaticBox, m_radioButtons)
 
-// Enable a specific button
-void wxRadioBox::Enable(int item, bool enable)
-{
-  if (item<0)
-    wxWindow::Enable(enable) ;
-  else if (item < m_noItems)
-    ::EnableWindow((HWND) m_radioButtons[item], enable);
-}
+// ----------------------------------------------------------------------------
+// size calculations
+// ----------------------------------------------------------------------------
 
-// Enable all controls
-void wxRadioBox::Enable(bool enable)
+wxSize wxRadioBox::GetMaxButtonSize() const
 {
-  wxControl::Enable(enable);
+    // calculate the max button size
+    int widthMax = 0,
+        heightMax = 0;
+    const unsigned int count = GetCount();
+    for ( unsigned int i = 0 ; i < count; i++ )
+    {
+        int width, height;
+        if ( m_radioWidth[i] < 0 )
+        {
+            GetTextExtent(wxGetWindowText((*m_radioButtons)[i]), &width, &height);
+
+            // adjust the size to take into account the radio box itself
+            // FIXME this is totally bogus!
+            width += RADIO_SIZE;
+            height *= 3;
+            height /= 2;
+        }
+        else
+        {
+            width = m_radioWidth[i];
+            height = m_radioHeight[i];
+        }
+
+        if ( widthMax < width )
+            widthMax = width;
+        if ( heightMax < height )
+            heightMax = height;
+    }
 
-  int i;
-  for (i = 0; i < m_noItems; i++)
-    ::EnableWindow((HWND) m_radioButtons[i], enable);
+    return wxSize(widthMax, heightMax);
 }
 
-// Show a specific button
-void wxRadioBox::Show(int item, bool show)
+wxSize wxRadioBox::GetTotalButtonSize(const wxSize& sizeBtn) const
 {
-  if (item<0)
-    wxRadioBox::Show(show) ;
-  else if (item < m_noItems)
-  {
-    int cshow;
-    if (show)
-      cshow = SW_SHOW;
-    else
-      cshow = SW_HIDE;
-    ShowWindow((HWND) m_radioButtons[item], cshow);
-  }
-}
+    // the radiobox should be big enough for its buttons
+    int cx1, cy1;
+    wxGetCharSize(m_hWnd, &cx1, &cy1, GetFont());
 
-WXHBRUSH wxRadioBox::OnCtlColor(WXHDC pDC, WXHWND pWnd, WXUINT nCtlColor,
-      WXUINT message, WXWPARAM wParam, WXLPARAM lParam)
-{
-#if CTL3D
-  if ( m_useCtl3D )
-  {
-    HBRUSH hbrush = Ctl3dCtlColorEx(message, wParam, lParam);
-    return (WXHBRUSH) hbrush;
-  }
-#endif
+    int extraHeight = cy1;
 
-  if (GetParent()->GetTransparentBackground())
-    SetBkMode((HDC) pDC, TRANSPARENT);
-  else
-    SetBkMode((HDC) pDC, OPAQUE);
+    int height = GetRowCount() * sizeBtn.y + cy1/2 + extraHeight;
+    int width  = GetColumnCount() * (sizeBtn.x + cx1) + cx1;
 
-  ::SetBkColor((HDC) pDC, RGB(GetBackgroundColour().Red(), GetBackgroundColour().Green(), GetBackgroundColour().Blue()));
-  ::SetTextColor((HDC) pDC, RGB(GetForegroundColour().Red(), GetForegroundColour().Green(), GetForegroundColour().Blue()));
+    // Add extra space under the label, if it exists.
+    if (!wxControl::GetLabel().empty())
+        height += cy1/2;
 
-  wxBrush *backgroundBrush = wxTheBrushList->FindOrCreateBrush(GetBackgroundColour(), wxSOLID);
+    // and also wide enough for its label
+    int widthLabel;
+    GetTextExtent(GetLabelText(), &widthLabel, NULL);
+    widthLabel += RADIO_SIZE; // FIXME this is bogus too
+    if ( widthLabel > width )
+        width = widthLabel;
 
-  // Note that this will be cleaned up in wxApp::OnIdle, if backgroundBrush
-  // has a zero usage count.
-//  backgroundBrush->RealizeResource();
-  return (WXHBRUSH) backgroundBrush->GetResourceHandle();
+    return wxSize(width, height);
 }
 
-// For single selection items only
-wxString wxRadioBox::GetStringSelection (void) const
+wxSize wxRadioBox::DoGetBestSize() const
 {
-  int sel = GetSelection ();
-  if (sel > -1)
-    return this->GetString (sel);
-  else
-    return wxString("");
+    if ( !m_radioButtons )
+    {
+        // if we're not fully initialized yet, we can't meaningfully compute
+        // our best size, we'll do it later
+        return wxSize(1, 1);
+    }
+
+    wxSize best = GetTotalButtonSize(GetMaxButtonSize());
+    CacheBestSize(best);
+    return best;
 }
 
-bool wxRadioBox::SetStringSelection (const wxString& s)
+void wxRadioBox::DoSetSize(int x, int y, int width, int height, int sizeFlags)
 {
-  int sel = FindString (s);
-  if (sel > -1)
+    if ( (width == wxDefaultCoord && (sizeFlags & wxSIZE_AUTO_WIDTH)) ||
+            (height == wxDefaultCoord && (sizeFlags & wxSIZE_AUTO_HEIGHT)) )
     {
-      SetSelection (sel);
-      return TRUE;
+        // Attempt to have a look coherent with other platforms: We compute the
+        // biggest toggle dim, then we align all items according this value.
+        const wxSize totSize = GetTotalButtonSize(GetMaxButtonSize());
+
+        // only change our width/height if asked for
+        if ( width == wxDefaultCoord && (sizeFlags & wxSIZE_AUTO_WIDTH) )
+            width = totSize.x;
+
+        if ( height == wxDefaultCoord && (sizeFlags & wxSIZE_AUTO_HEIGHT) )
+            height = totSize.y;
     }
-  else
-    return FALSE;
+
+    wxStaticBox::DoSetSize(x, y, width, height);
 }
 
-bool wxRadioBox::ContainsHWND(WXHWND hWnd) const
+void wxRadioBox::DoMoveWindow(int x, int y, int width, int height)
 {
-  int i;
-    for (i = 0; i < Number(); i++)
-       if (GetRadioButtons()[i] == hWnd)
-          return TRUE;
-  return FALSE;
+    wxStaticBox::DoMoveWindow(x, y, width, height);
+
+    wxSize maxSize = GetMaxButtonSize();
+    int maxWidth = maxSize.x,
+        maxHeight = maxSize.y;
+
+    // Now position all the buttons: the current button will be put at
+    // wxPoint(x_offset, y_offset) and the new row/column will start at
+    // startX/startY. The size of all buttons will be the same wxSize(maxWidth,
+    // maxHeight) except for the buttons in the last column which should extend
+    // to the right border of radiobox and thus can be wider than this.
+
+    // Also, remember that wxRA_SPECIFY_COLS means that we arrange buttons in
+    // left to right order and GetMajorDim() is the number of columns while
+    // wxRA_SPECIFY_ROWS means that the buttons are arranged top to bottom and
+    // GetMajorDim() is the number of rows.
+
+    int cx1, cy1;
+    wxGetCharSize(m_hWnd, &cx1, &cy1, GetFont());
+
+    int x_offset = x + cx1;
+    int y_offset = y + cy1;
+
+    // Add extra space under the label, if it exists.
+    if (!wxControl::GetLabel().empty())
+        y_offset += cy1/2;
+
+    int startX = x_offset;
+    int startY = y_offset;
+
+    const unsigned int count = GetCount();
+    for (unsigned int i = 0; i < count; i++)
+    {
+        // the last button in the row may be wider than the other ones as the
+        // radiobox may be wider than the sum of the button widths (as it
+        // happens, for example, when the radiobox label is very long)
+        bool isLastInTheRow;
+        if ( m_windowStyle & wxRA_SPECIFY_COLS )
+        {
+            // item is the last in its row if it is a multiple of the number of
+            // columns or if it is just the last item
+            unsigned int n = i + 1;
+            isLastInTheRow = ((n % GetMajorDim()) == 0) || (n == count);
+        }
+        else // wxRA_SPECIFY_ROWS
+        {
+            // item is the last in the row if it is in the last columns
+            isLastInTheRow = i >= (count/GetMajorDim())*GetMajorDim();
+        }
+
+        // is this the start of new row/column?
+        if ( i && (i % GetMajorDim() == 0) )
+        {
+            if ( m_windowStyle & wxRA_SPECIFY_ROWS )
+            {
+                // start of new column
+                y_offset = startY;
+                x_offset += maxWidth + cx1;
+            }
+            else // start of new row
+            {
+                x_offset = startX;
+                y_offset += maxHeight;
+                if (m_radioWidth[0]>0)
+                    y_offset += cy1/2;
+            }
+        }
+
+        int widthBtn;
+        if ( isLastInTheRow )
+        {
+            // make the button go to the end of radio box
+            widthBtn = startX + width - x_offset - 2*cx1;
+            if ( widthBtn < maxWidth )
+                widthBtn = maxWidth;
+        }
+        else
+        {
+            // normal button, always of the same size
+            widthBtn = maxWidth;
+        }
+
+        // make all buttons of the same, maximal size - like this they cover
+        // the radiobox entirely and the radiobox tooltips are always shown
+        // (otherwise they are not when the mouse pointer is in the radiobox
+        // part not belonging to any radiobutton)
+        DoMoveSibling((*m_radioButtons)[i], x_offset, y_offset, widthBtn, maxHeight);
+
+        // where do we put the next button?
+        if ( m_windowStyle & wxRA_SPECIFY_ROWS )
+        {
+            // below this one
+            y_offset += maxHeight;
+            if (m_radioWidth[0]>0)
+                y_offset += cy1/2;
+        }
+        else
+        {
+            // to the right of this one
+            x_offset += widthBtn + cx1;
+        }
+    }
 }
 
-void wxRadioBox::Command (wxCommandEvent & event)
+int wxRadioBox::GetItemFromPoint(const wxPoint& pt) const
 {
-  SetSelection (event.m_commandInt);
-  ProcessCommand (event);
+    const unsigned int count = GetCount();
+    for ( unsigned int i = 0; i < count; i++ )
+    {
+        RECT rect = wxGetWindowRect((*m_radioButtons)[i]);
+
+        if ( rect.left <= pt.x && pt.x < rect.right &&
+                rect.top  <= pt.y && pt.y < rect.bottom )
+        {
+            return i;
+        }
+    }
+
+    return wxNOT_FOUND;
 }
 
-long wxRadioBox::MSWWindowProc(WXUINT nMsg, WXWPARAM wParam, WXLPARAM lParam)
+// ----------------------------------------------------------------------------
+// radio box drawing
+// ----------------------------------------------------------------------------
+
+#ifndef __WXWINCE__
+
+WXHRGN wxRadioBox::MSWGetRegionWithoutChildren()
 {
-  if (nMsg == WM_NCHITTEST)
+    RECT rc;
+    ::GetWindowRect(GetHwnd(), &rc);
+    HRGN hrgn = ::CreateRectRgn(rc.left, rc.top, rc.right + 1, rc.bottom + 1);
+
+    const unsigned int count = GetCount();
+    for ( unsigned int i = 0; i < count; ++i )
     {
-        int xPos = LOWORD(lParam);  // horizontal position of cursor
-        int yPos = HIWORD(lParam);  // vertical position of cursor
+        // don't clip out hidden children
+        if ( !IsItemShown(i) )
+            continue;
+
+        ::GetWindowRect((*m_radioButtons)[i], &rc);
+        AutoHRGN hrgnchild(::CreateRectRgnIndirect(&rc));
+        ::CombineRgn(hrgn, hrgn, hrgnchild, RGN_DIFF);
+    }
+
+    return (WXHRGN)hrgn;
+}
+
+#endif // __WXWINCE__
 
-        ScreenToClient(&xPos, &yPos);
+// ---------------------------------------------------------------------------
+// window proc for radio buttons
+// ---------------------------------------------------------------------------
 
-        // Make sure you can drag by the top of the groupbox, but let
-        // other (enclosed) controls get mouse events also
-        if (yPos < 10)
-            return (long)HTCLIENT;
+LRESULT APIENTRY _EXPORT wxRadioBtnWndProc(HWND hwnd,
+                                           UINT message,
+                                           WPARAM wParam,
+                                           LPARAM lParam)
+{
+    switch ( message )
+    {
+        case WM_GETDLGCODE:
+            // we must tell IsDialogMessage()/our kbd processing code that we
+            // want to process arrows ourselves because neither of them is
+            // smart enough to handle arrows properly for us
+            {
+                long lDlgCode = ::CallWindowProc(CASTWNDPROC s_wndprocRadioBtn, hwnd,
+                                                 message, wParam, lParam);
+
+                return lDlgCode | DLGC_WANTARROWS;
+            }
+
+        case WM_KEYDOWN:
+            {
+                wxRadioBox *radiobox = (wxRadioBox *)wxGetWindowUserData(hwnd);
+
+                wxCHECK_MSG( radiobox, 0, wxT("radio button without radio box?") );
+
+                bool processed = true;
+
+                wxDirection dir;
+                switch ( wParam )
+                {
+                    case VK_UP:
+                        dir = wxUP;
+                        break;
+
+                    case VK_LEFT:
+                        dir = wxLEFT;
+                        break;
+
+                    case VK_DOWN:
+                        dir = wxDOWN;
+                        break;
+
+                    case VK_RIGHT:
+                        dir = wxRIGHT;
+                        break;
+
+                    default:
+                        processed = false;
+
+                        // just to suppress the compiler warning
+                        dir = wxALL;
+                }
+
+                if ( processed )
+                {
+                    int selOld = radiobox->GetSelection();
+                    int selNew = radiobox->GetNextItem
+                                 (
+                                  selOld,
+                                  dir,
+                                  radiobox->GetWindowStyle()
+                                 );
+
+                    if ( selNew != selOld )
+                    {
+                        radiobox->SetSelection(selNew);
+                        radiobox->SetFocus();
+
+                        // emulate the button click
+                        radiobox->SendNotificationEvent();
+
+                        return 0;
+                    }
+                }
+            }
+            break;
+
+        case WM_SETFOCUS:
+        case WM_KILLFOCUS:
+            {
+                wxRadioBox *radiobox = (wxRadioBox *)wxGetWindowUserData(hwnd);
+
+                wxCHECK_MSG( radiobox, 0, wxT("radio button without radio box?") );
+
+                // if we don't do this, no focus events are generated for the
+                // radiobox and, besides, we need to notify the parent about
+                // the focus change, otherwise the focus handling logic in
+                // wxControlContainer doesn't work
+                if ( message == WM_SETFOCUS )
+                    radiobox->HandleSetFocus((WXHWND)wParam);
+                else
+                    radiobox->HandleKillFocus((WXHWND)wParam);
+            }
+            break;
+
+#ifndef __WXWINCE__
+        case WM_HELP:
+            {
+                wxRadioBox *radiobox = (wxRadioBox *)wxGetWindowUserData(hwnd);
+
+                wxCHECK_MSG( radiobox, 0, wxT("radio button without radio box?") );
+
+                bool processed = false;
+
+                wxEvtHandler * const handler = radiobox->GetEventHandler();
+
+                HELPINFO* info = (HELPINFO*) lParam;
+                if ( info->iContextType == HELPINFO_WINDOW )
+                {
+                    for ( wxWindow* subjectOfHelp = radiobox;
+                          subjectOfHelp;
+                          subjectOfHelp = subjectOfHelp->GetParent() )
+                    {
+                        wxHelpEvent helpEvent(wxEVT_HELP,
+                                              subjectOfHelp->GetId(),
+                                              wxPoint(info->MousePos.x,
+                                                      info->MousePos.y));
+                        helpEvent.SetEventObject(radiobox);
+                        if ( handler->ProcessEvent(helpEvent) )
+                        {
+                            processed = true;
+                            break;
+                        }
+                    }
+                }
+                else if (info->iContextType == HELPINFO_MENUITEM)
+                {
+                    wxHelpEvent helpEvent(wxEVT_HELP, info->iCtrlId);
+                    helpEvent.SetEventObject(radiobox);
+                    processed = handler->ProcessEvent(helpEvent);
+                }
+
+                if ( processed )
+                    return 0;
+            }
+            break;
+#endif // !__WXWINCE__
     }
 
-  return wxControl::MSWWindowProc(nMsg, wParam, lParam);
+    return ::CallWindowProc(CASTWNDPROC s_wndprocRadioBtn, hwnd, message, wParam, lParam);
 }
 
+#endif // wxUSE_RADIOBOX