src/motif/radiobut.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        radiobut.cpp
   3 // Purpose:     wxRadioButton
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     17/09/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "radiobut.h"
  14 #endif
  15
  16 #ifdef __VMS
  17 #define XtDisplay XTDISPLAY
  18 #endif
  19
  20 #include "wx/defs.h"
  21
  22 #include "wx/radiobut.h"
  23 #include "wx/utils.h"
  24
  25 #ifdef __VMS__
  26 #pragma message disable nosimpint
  27 #endif
  28 #include <Xm/Label.h>
  29 #include <Xm/LabelG.h>
  30 #include <Xm/ToggleB.h>
  31 #include <Xm/ToggleBG.h>
  32 #include <Xm/RowColumn.h>
  33 #include <Xm/Form.h>
  34 #ifdef __VMS__
  35 #pragma message enable nosimpint
  36 #endif
  37
  38 #include "wx/motif/private.h"
  39
  40 void wxRadioButtonCallback (Widget w, XtPointer clientData,
  41                             XmToggleButtonCallbackStruct * cbs);
  42
  43 IMPLEMENT_DYNAMIC_CLASS(wxRadioButton, wxControl)
  44
  45 wxRadioButton::wxRadioButton()
  46 {
  47 }
  48
  49 bool wxRadioButton::Create(wxWindow *parent, wxWindowID id,
  50                            const wxString& label,
  51                            const wxPoint& pos,
  52                            const wxSize& size, long style,
  53                            const wxValidator& validator,
  54                            const wxString& name)
  55 {
  56     SetName(name);
  57     SetValidator(validator);
  58     m_backgroundColour = parent->GetBackgroundColour();
  59     m_foregroundColour = parent->GetForegroundColour();
  60     m_font = parent->GetFont();
  61
  62     if (parent) parent->AddChild(this);
  63
  64     if ( id == -1 )
  65         m_windowId = (int)NewControlId();
  66     else
  67         m_windowId = id;
  68
  69     m_windowStyle = style ;
  70
  71     Widget parentWidget = (Widget) parent->GetClientWidget();
  72
  73     wxString label1(wxStripMenuCodes(label));
  74
  75     XmString text = XmStringCreateSimple ((char*) (const char*) label1);
  76
  77     XmFontList fontList = (XmFontList) m_font.GetFontList(1.0, XtDisplay(parentWidget));
  78
  79     Widget radioButtonWidget = XtVaCreateManagedWidget ("toggle",
  80 #if wxUSE_GADGETS
  81         xmToggleButtonGadgetClass, parentWidget,
  82 #else
  83         xmToggleButtonWidgetClass, parentWidget,
  84 #endif
  85         XmNfontList, fontList,
  86         XmNlabelString, text,
  87         XmNfillOnSelect, True,
  88         XmNindicatorType, XmONE_OF_MANY, // diamond-shape
  89         NULL);
  90     XmStringFree (text);
  91
  92     XtAddCallback (radioButtonWidget, XmNvalueChangedCallback, (XtCallbackProc) wxRadioButtonCallback,
  93         (XtPointer) this);
  94
  95     m_mainWidget = (WXWidget) radioButtonWidget;
  96
  97     XtManageChild (radioButtonWidget);
  98
  99     SetCanAddEventHandler(TRUE);
 100     AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, size.x, size.y);
 101
 102     ChangeBackgroundColour();
 103
 104     //copied from mac/radiobut.cpp (from here till "return TRUE;")
 105     m_cycle = this ;
 106
 107     if (HasFlag(wxRB_GROUP))
 108     {
 109         AddInCycle( NULL ) ;
 110     }
 111     else
 112     {
 113         /* search backward for last group start */
 114         wxRadioButton *chief = (wxRadioButton*) NULL;
 115         wxWindowList::Node *node = parent->GetChildren().GetLast();
 116         while (node)
 117         {
 118             wxWindow *child = node->GetData();
 119             if (child->IsKindOf( CLASSINFO( wxRadioButton ) ) )
 120             {
 121                 chief = (wxRadioButton*) child;
 122                 if (child->HasFlag(wxRB_GROUP)) break;
 123             }
 124             node = node->GetPrevious();
 125         }
 126         AddInCycle( chief ) ;
 127     }
 128     return TRUE;
 129 }
 130
 131 void wxRadioButton::SetValue(bool value)
 132 {
 133     if (GetValue() == value)
 134         return;
 135
 136     m_inSetValue = TRUE;
 137     XmToggleButtonSetState ((Widget) m_mainWidget, (Boolean) value, FALSE);
 138     m_inSetValue = FALSE;
 139
 140     ClearSelections();
 141 }
 142
 143 // Get single selection, for single choice list items
 144 bool wxRadioButton::GetValue() const
 145 {
 146     return (XmToggleButtonGetState ((Widget) m_mainWidget) != 0);
 147 }
 148
 149 void wxRadioButton::Command (wxCommandEvent & event)
 150 {
 151     SetValue ( (event.m_commandInt != 0) );
 152     ProcessCommand (event);
 153 }
 154
 155 void wxRadioButton::ChangeFont(bool keepOriginalSize)
 156 {
 157     wxWindow::ChangeFont(keepOriginalSize);
 158 }
 159
 160 void wxRadioButton::ChangeBackgroundColour()
 161 {
 162     wxWindow::ChangeBackgroundColour();
 163
 164     // What colour should this be?
 165     int selectPixel = wxBLACK->AllocColour(wxGetDisplay());
 166
 167     XtVaSetValues ((Widget) GetMainWidget(),
 168           XmNselectColor, selectPixel,
 169           NULL);
 170 }
 171
 172 void wxRadioButton::ChangeForegroundColour()
 173 {
 174     wxWindow::ChangeForegroundColour();
 175 }
 176
 177 void wxRadioButtonCallback (Widget w, XtPointer clientData,
 178                             XmToggleButtonCallbackStruct * cbs)
 179 {
 180     if (!cbs->set)
 181         return;
 182
 183     wxRadioButton *item = (wxRadioButton *) clientData;
 184     if (item->InSetValue())
 185         return;
 186
 187     //based on mac/radiobut.cpp
 188     wxRadioButton* old = item->ClearSelections();
 189     item->SetValue(TRUE);
 190
 191     if ( old )
 192     {
 193         wxCommandEvent event(wxEVT_COMMAND_RADIOBUTTON_SELECTED,
 194                              old->GetId() );
 195         event.SetEventObject(old);
 196         event.SetInt( FALSE );
 197         old->ProcessCommand(event);
 198     }
 199     wxCommandEvent event2(wxEVT_COMMAND_RADIOBUTTON_SELECTED, item->GetId() );
 200     event2.SetEventObject(item);
 201     event2.SetInt( TRUE );
 202     item->ProcessCommand(event2);
 203 }
 204
 205 wxRadioButton* wxRadioButton::AddInCycle(wxRadioButton *cycle)
 206 {
 207     wxRadioButton* next;
 208     wxRadioButton* current;
 209
 210     if (cycle == NULL)
 211     {
 212         m_cycle = this;
 213         return this;
 214     }
 215     else
 216     {
 217         current = cycle;
 218         while ((next = current->m_cycle) != cycle)
 219             current = current->m_cycle;
 220         m_cycle = cycle;
 221         current->m_cycle = this;
 222         return cycle;
 223     }
 224 }
 225
 226 wxRadioButton* wxRadioButton::ClearSelections()
 227 {
 228     wxRadioButton* cycle = NextInCycle();
 229     wxRadioButton* old = 0;
 230
 231     if (cycle)
 232     {
 233         while (cycle != this)
 234         {
 235             if ( cycle->GetValue() )
 236             {
 237                 old = cycle;
 238                 cycle->SetValue(FALSE);
 239             }
 240             cycle = cycle->NextInCycle();
 241         }
 242     }
 243
 244     return old;
 245 }
 246
 247 void wxRadioButton::RemoveFromCycle()
 248 {
 249     wxRadioButton* curr = NextInCycle();
 250
 251     while( curr )
 252     {
 253         if( curr->NextInCycle() == this )
 254         {
 255             curr->m_cycle = this->m_cycle;
 256             return;
 257         }
 258
 259         curr = curr->NextInCycle();
 260     }
 261 }