src/motif/checkbox.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/motif/checkbox.cpp
   3 // Purpose:     wxCheckBox
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     04/01/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // For compilers that support precompilation, includes "wx.h".
  13 #include "wx/wxprec.h"
  14
  15 #ifdef __VMS
  16 #define XtDisplay XTDISPLAY
  17 #endif
  18
  19 #include "wx/checkbox.h"
  20 #include "wx/tglbtn.h"
  21 #include "wx/utils.h"
  22
  23 #ifdef __VMS__
  24 #pragma message disable nosimpint
  25 #endif
  26 #include <Xm/Label.h>
  27 #include <Xm/LabelG.h>
  28 #include <Xm/ToggleB.h>
  29 #include <Xm/ToggleBG.h>
  30 #ifdef __VMS__
  31 #pragma message enable nosimpint
  32 #endif
  33
  34 #include "wx/motif/private.h"
  35
  36 // define symbols that are missing in old versions of Motif.
  37 #if wxCHECK_MOTIF_VERSION( 2, 0 )
  38     #define wxHAS_3STATE 1
  39 #else
  40     #define wxHAS_3STATE 0
  41 #endif
  42
  43
  44 #include "wx/motif/private.h"
  45
  46 void wxCheckBoxCallback (Widget w, XtPointer clientData,
  47                          XtPointer ptr);
  48
  49 IMPLEMENT_DYNAMIC_CLASS(wxCheckBox, wxControl)
  50
  51 // Single check box item
  52 bool wxCheckBox::Create(wxWindow *parent, wxWindowID id, const wxString& label,
  53                         const wxPoint& pos,
  54                         const wxSize& size, long style,
  55                         const wxValidator& validator,
  56                         const wxString& name)
  57 {
  58     if( !wxControl::CreateControl( parent, id, pos, size, style, validator,
  59                                    name ) )
  60         return false;
  61
  62     wxString label1(wxStripMenuCodes(label));
  63     wxXmString text( label1 );
  64
  65     Widget parentWidget = (Widget) parent->GetClientWidget();
  66
  67     m_mainWidget = (WXWidget) XtVaCreateManagedWidget ("toggle",
  68         xmToggleButtonWidgetClass, parentWidget,
  69         wxFont::GetFontTag(), m_font.GetFontTypeC(XtDisplay(parentWidget)),
  70         XmNlabelString, text(),
  71         XmNrecomputeSize, False,
  72         // XmNindicatorOn, XmINDICATOR_CHECK_BOX,
  73         // XmNfillOnSelect, False,
  74 #if wxHAS_3STATE
  75         XmNtoggleMode, Is3State() ? XmTOGGLE_INDETERMINATE : XmTOGGLE_BOOLEAN,
  76 #endif
  77         NULL);
  78
  79     XtAddCallback( (Widget)m_mainWidget,
  80                    XmNvalueChangedCallback, (XtCallbackProc)wxCheckBoxCallback,
  81                    (XtPointer)this );
  82
  83     XmToggleButtonSetState ((Widget) m_mainWidget, False, True);
  84
  85     AttachWidget( parent, m_mainWidget, (WXWidget)NULL,
  86                   pos.x, pos.y, size.x, size.y );
  87
  88     ChangeBackgroundColour();
  89     return true;
  90 }
  91
  92 void wxCheckBox::SetValue(bool val)
  93 {
  94     if (val)
  95     {
  96         Set3StateValue(wxCHK_CHECKED);
  97     }
  98     else
  99     {
 100         Set3StateValue(wxCHK_UNCHECKED);
 101     }
 102 }
 103
 104 bool wxCheckBox::GetValue() const
 105 {
 106     return (Get3StateValue() != 0);
 107 }
 108
 109 void wxCheckBox::Command (wxCommandEvent & event)
 110 {
 111     int state = event.GetInt();
 112     wxCHECK_RET( (state == wxCHK_UNCHECKED) || (state == wxCHK_CHECKED)
 113         || (state == wxCHK_UNDETERMINED),
 114         wxT("event.GetInt() returned an invalid checkbox state") );
 115
 116     Set3StateValue((wxCheckBoxState) state);
 117     ProcessCommand(event);
 118 }
 119
 120 void wxCheckBoxCallback (Widget WXUNUSED(w), XtPointer clientData,
 121                          XtPointer WXUNUSED(ptr))
 122 {
 123     wxCheckBox *item = (wxCheckBox *) clientData;
 124
 125     if (item->InSetValue())
 126         return;
 127
 128     wxCheckBoxState state = item->Get3StateValue();
 129
 130     if( !item->Is3rdStateAllowedForUser() && state == wxCHK_UNDETERMINED )
 131     {
 132         state = wxCHK_UNCHECKED;
 133         item->Set3StateValue( state );
 134     }
 135
 136     wxCommandEvent event( item->m_evtType, item->GetId() );
 137     event.SetInt( (int)state );
 138     event.SetEventObject( item );
 139     item->ProcessCommand( event );
 140 }
 141
 142 void wxCheckBox::ChangeBackgroundColour()
 143 {
 144     wxComputeColours (XtDisplay((Widget) m_mainWidget), & m_backgroundColour,
 145         (wxColour*) NULL);
 146
 147     XtVaSetValues ((Widget) m_mainWidget,
 148         XmNbackground, g_itemColors[wxBACK_INDEX].pixel,
 149         XmNtopShadowColor, g_itemColors[wxTOPS_INDEX].pixel,
 150         XmNbottomShadowColor, g_itemColors[wxBOTS_INDEX].pixel,
 151         XmNforeground, g_itemColors[wxFORE_INDEX].pixel,
 152         NULL);
 153
 154     wxColour colour = *wxBLACK;
 155     int selectPixel = colour.AllocColour(XtDisplay((Widget)m_mainWidget));
 156
 157     // Better to have the checkbox selection in black, or it's
 158     // hard to determine what state it is in.
 159     XtVaSetValues ((Widget) m_mainWidget,
 160            XmNselectColor, selectPixel,
 161         NULL);
 162 }
 163
 164 void wxCheckBox::DoSet3StateValue(wxCheckBoxState state)
 165 {
 166     m_inSetValue = true;
 167
 168 #if wxHAS_3STATE
 169     unsigned char value;
 170
 171     switch (state)
 172     {
 173     case wxCHK_UNCHECKED: value = XmUNSET; break;
 174     case wxCHK_CHECKED: value = XmSET; break;
 175     case wxCHK_UNDETERMINED: value = XmINDETERMINATE; break;
 176     default: wxASSERT(0); return;
 177     }
 178
 179     XtVaSetValues( (Widget) m_mainWidget,
 180                    XmNset, value,
 181                    NULL );
 182 #else
 183     XmToggleButtonSetState ((Widget) m_mainWidget,
 184                             state == wxCHK_CHECKED, True);
 185 #endif
 186
 187     m_inSetValue = false;
 188 }
 189
 190 wxCheckBoxState wxCheckBox::DoGet3StateValue() const
 191 {
 192 #if wxHAS_3STATE
 193     unsigned char value = 0;
 194
 195     XtVaGetValues( (Widget) m_mainWidget,
 196                    XmNset, &value,
 197                    NULL );
 198
 199     switch (value)
 200     {
 201     case XmUNSET: return wxCHK_UNCHECKED;
 202     case XmSET: return wxCHK_CHECKED;
 203     case XmINDETERMINATE: return wxCHK_UNDETERMINED;
 204     }
 205
 206     // impossible...
 207     return wxCHK_UNDETERMINED;
 208 #else
 209     return wxCheckBoxState(XmToggleButtonGetState ((Widget) m_mainWidget));
 210 #endif
 211 }
 212
 213 ///////////////////////////////////////////////////////////////////////////////
 214 // wxToggleButton
 215 ///////////////////////////////////////////////////////////////////////////////
 216
 217 #if wxUSE_TOGGLEBTN
 218
 219 DEFINE_EVENT_TYPE(wxEVT_COMMAND_TOGGLEBUTTON_CLICKED)
 220 IMPLEMENT_DYNAMIC_CLASS(wxToggleButton, wxControl)
 221
 222 bool wxToggleButton::Create( wxWindow* parent, wxWindowID id,
 223                              const wxString& label,
 224                              const wxPoint& pos,
 225                              const wxSize& size,
 226                              long style,
 227                              const wxValidator& val,
 228                              const wxString &name )
 229 {
 230     if( !wxCheckBox::Create( parent, id, label, pos, size, style, val, name ) )
 231         return false;
 232
 233     XtVaSetValues( (Widget)m_mainWidget,
 234                    XmNindicatorSize, 0,
 235 #if XmVersion >= 2000
 236                    XmNindicatorOn, XmINDICATOR_NONE,
 237 #else
 238                    XmNindicatorOn, False,
 239 #endif
 240                    XmNfillOnSelect, False,
 241                    XmNshadowThickness, 2,
 242                    XmNalignment, XmALIGNMENT_CENTER,
 243                    XmNmarginLeft, 0,
 244                    XmNmarginRight, 0,
 245                    NULL );
 246
 247     // set it again, because the XtVaSetValue above resets it
 248     if( size.x != -1 || size.y != -1 )
 249         SetSize( size );
 250
 251     return true;
 252 }
 253
 254 #endif // wxUSE_TOGGLEBUTTON