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