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