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 #include "wx/checkbox.h"
  16
  17 #ifndef WX_PRECOMP
  18     #include "wx/utils.h"
  19 #endif
  20
  21 #include "wx/tglbtn.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 #include "wx/motif/private.h"
  44
  45 void wxCheckBoxCallback (Widget w, XtPointer clientData,
  46                          XtPointer ptr);
  47
  48 // Single check box item
  49 bool wxCheckBox::Create(wxWindow *parent, wxWindowID id, const wxString& label,
  50                         const wxPoint& pos,
  51                         const wxSize& size, long style,
  52                         const wxValidator& validator,
  53                         const wxString& name)
  54 {
  55     if( !wxControl::CreateControl( parent, id, pos, size, style, validator,
  56                                    name ) )
  57         return false;
  58     PreCreation();
  59
  60     wxXmString text( GetLabelText(label) );
  61
  62     Widget parentWidget = (Widget) parent->GetClientWidget();
  63
  64     m_mainWidget = (WXWidget) XtVaCreateManagedWidget ("toggle",
  65         xmToggleButtonWidgetClass, parentWidget,
  66         wxFont::GetFontTag(), m_font.GetFontTypeC(XtDisplay(parentWidget)),
  67         XmNlabelString, text(),
  68         XmNrecomputeSize, False,
  69         // XmNindicatorOn, XmINDICATOR_CHECK_BOX,
  70         // XmNfillOnSelect, False,
  71 #if wxHAS_3STATE
  72         XmNtoggleMode, Is3State() ? XmTOGGLE_INDETERMINATE : XmTOGGLE_BOOLEAN,
  73 #endif
  74         NULL);
  75
  76     XtAddCallback( (Widget)m_mainWidget,
  77                    XmNvalueChangedCallback, (XtCallbackProc)wxCheckBoxCallback,
  78                    (XtPointer)this );
  79
  80     XmToggleButtonSetState ((Widget) m_mainWidget, False, True);
  81
  82     PostCreation();
  83     AttachWidget( parent, m_mainWidget, (WXWidget)NULL,
  84                   pos.x, pos.y, size.x, size.y );
  85
  86     return true;
  87 }
  88
  89 void wxCheckBox::SetValue(bool val)
  90 {
  91     if (val)
  92     {
  93         Set3StateValue(wxCHK_CHECKED);
  94     }
  95     else
  96     {
  97         Set3StateValue(wxCHK_UNCHECKED);
  98     }
  99 }
 100
 101 bool wxCheckBox::GetValue() const
 102 {
 103     return (Get3StateValue() != 0);
 104 }
 105
 106 void wxCheckBox::Command (wxCommandEvent & event)
 107 {
 108     int state = event.GetInt();
 109     wxCHECK_RET( (state == wxCHK_UNCHECKED) || (state == wxCHK_CHECKED)
 110         || (state == wxCHK_UNDETERMINED),
 111         wxT("event.GetInt() returned an invalid checkbox state") );
 112
 113     Set3StateValue((wxCheckBoxState) state);
 114     ProcessCommand(event);
 115 }
 116
 117 void wxCheckBoxCallback (Widget WXUNUSED(w), XtPointer clientData,
 118                          XtPointer WXUNUSED(ptr))
 119 {
 120     wxCheckBox *item = (wxCheckBox *) clientData;
 121
 122     if (item->InSetValue())
 123         return;
 124
 125     wxCheckBoxState state = item->Get3StateValue();
 126
 127     if( !item->Is3rdStateAllowedForUser() && state == wxCHK_UNDETERMINED )
 128     {
 129         state = wxCHK_UNCHECKED;
 130         item->Set3StateValue( state );
 131     }
 132
 133     wxCommandEvent event( item->m_evtType, item->GetId() );
 134     event.SetInt( (int)state );
 135     event.SetEventObject( item );
 136     item->ProcessCommand( event );
 137 }
 138
 139 void wxCheckBox::ChangeBackgroundColour()
 140 {
 141     if (!m_backgroundColour.IsOk())
 142         return;
 143
 144     wxComputeColours (XtDisplay((Widget) m_mainWidget), & m_backgroundColour,
 145         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     WXPixel 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 wxDEFINE_EVENT( wxEVT_COMMAND_TOGGLEBUTTON_CLICKED, wxCommandEvent );
 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_TOGGLEBTN