]> git.saurik.com Git - wxWidgets.git/blob - src/motif/slider.cpp
all delete functions now send delete notification event
[wxWidgets.git] / src / motif / slider.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: slider.cpp
3 // Purpose: wxSlider
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 "slider.h"
14 #endif
15
16 #include "wx/slider.h"
17 #include "wx/utils.h"
18
19 #include <Xm/Xm.h>
20 #include <Xm/Label.h>
21 #include <Xm/LabelG.h>
22 #include <Xm/RowColumn.h>
23 #include <Xm/Scale.h>
24
25 #include <wx/motif/private.h>
26
27 void wxSliderCallback (Widget widget, XtPointer clientData, XmScaleCallbackStruct * cbs);
28
29 #if !USE_SHARED_LIBRARY
30 IMPLEMENT_DYNAMIC_CLASS(wxSlider, wxControl)
31
32 BEGIN_EVENT_TABLE(wxSlider, wxControl)
33 END_EVENT_TABLE()
34 #endif
35
36
37
38 // Slider
39 wxSlider::wxSlider()
40 {
41 m_pageSize = 1;
42 m_lineSize = 1;
43 m_rangeMax = 0;
44 m_rangeMin = 0;
45 m_tickFreq = 0;
46 }
47
48 bool wxSlider::Create(wxWindow *parent, wxWindowID id,
49 int value, int minValue, int maxValue,
50 const wxPoint& pos,
51 const wxSize& size, long style,
52 const wxValidator& validator,
53 const wxString& name)
54 {
55 SetName(name);
56 SetValidator(validator);
57 m_backgroundColour = parent->GetBackgroundColour();
58 m_foregroundColour = parent->GetForegroundColour();
59
60 if (parent) parent->AddChild(this);
61
62 m_lineSize = 1;
63 m_windowStyle = style;
64 m_tickFreq = 0;
65
66 if ( id == -1 )
67 m_windowId = (int)NewControlId();
68 else
69 m_windowId = id;
70
71 m_rangeMax = maxValue;
72 m_rangeMin = minValue;
73
74 // Not used in Motif, I think
75 m_pageSize = (int)((maxValue-minValue)/10);
76
77 Widget parentWidget = (Widget) parent->GetClientWidget();
78
79 Widget sliderWidget = XtVaCreateManagedWidget ("sliderWidget",
80 xmScaleWidgetClass, parentWidget,
81 XmNorientation,
82 (((m_windowStyle & wxSL_VERTICAL) == wxSL_VERTICAL) ? XmVERTICAL : XmHORIZONTAL),
83 XmNprocessingDirection,
84 (((m_windowStyle & wxSL_VERTICAL) == wxSL_VERTICAL) ? XmMAX_ON_TOP : XmMAX_ON_RIGHT),
85 XmNmaximum, maxValue,
86 XmNminimum, minValue,
87 XmNvalue, value,
88 XmNshowValue, True,
89 NULL);
90
91 m_mainWidget = (WXWidget) sliderWidget;
92
93 if(style & wxSL_NOTIFY_DRAG)
94 XtAddCallback (sliderWidget, XmNdragCallback,
95 (XtCallbackProc) wxSliderCallback, (XtPointer) this);
96 else
97 XtAddCallback (sliderWidget, XmNvalueChangedCallback,
98 (XtCallbackProc) wxSliderCallback, (XtPointer) this);
99
100 XtAddCallback (sliderWidget, XmNdragCallback, (XtCallbackProc) wxSliderCallback, (XtPointer) this);
101
102 m_windowFont = parent->GetFont();
103
104 ChangeFont(FALSE);
105 SetCanAddEventHandler(TRUE);
106 AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, size.x, size.y);
107
108 ChangeBackgroundColour();
109
110 return TRUE;
111 }
112
113 wxSlider::~wxSlider()
114 {
115 }
116
117 int wxSlider::GetValue() const
118 {
119 int val;
120 XtVaGetValues ((Widget) m_mainWidget, XmNvalue, &val, NULL);
121 return val;
122 }
123
124 void wxSlider::SetValue(int value)
125 {
126 XtVaSetValues ((Widget) m_mainWidget, XmNvalue, value, NULL);
127 }
128
129 void wxSlider::GetSize(int *width, int *height) const
130 {
131 wxControl::GetSize(width, height);
132 }
133
134 void wxSlider::SetSize(int x, int y, int width, int height, int sizeFlags)
135 {
136 Widget widget = (Widget) m_mainWidget;
137
138 bool managed = XtIsManaged(widget);
139
140 if (managed)
141 XtUnmanageChild (widget);
142
143 if (((m_windowStyle & wxHORIZONTAL) == wxHORIZONTAL) && (width > -1))
144 {
145 XtVaSetValues (widget, XmNscaleWidth, wxMax (width, 10), NULL);
146 }
147
148 if (((m_windowStyle & wxVERTICAL) == wxVERTICAL) && (height > -1))
149 {
150 XtVaSetValues (widget, XmNscaleHeight, wxMax (height, 10), NULL);
151 }
152
153 int xx = x; int yy = y;
154 AdjustForParentClientOrigin(xx, yy, sizeFlags);
155
156 if (x > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
157 XtVaSetValues (widget, XmNx, xx, NULL);
158 if (y > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
159 XtVaSetValues (widget, XmNy, yy, NULL);
160
161 if (managed)
162 XtManageChild (widget);
163 }
164
165 void wxSlider::SetRange(int minValue, int maxValue)
166 {
167 m_rangeMin = minValue;
168 m_rangeMax = maxValue;
169
170 XtVaSetValues ((Widget) m_mainWidget, XmNminimum, minValue, XmNmaximum, maxValue, NULL);
171 }
172
173 // For trackbars only
174 void wxSlider::SetTickFreq(int n, int pos)
175 {
176 // Not implemented in Motif
177 m_tickFreq = n;
178 }
179
180 void wxSlider::SetPageSize(int pageSize)
181 {
182 // Not implemented in Motif
183 m_pageSize = pageSize;
184 }
185
186 int wxSlider::GetPageSize() const
187 {
188 return m_pageSize;
189 }
190
191 void wxSlider::ClearSel()
192 {
193 // Not implemented in Motif
194 }
195
196 void wxSlider::ClearTicks()
197 {
198 // Not implemented in Motif
199 }
200
201 void wxSlider::SetLineSize(int lineSize)
202 {
203 // Not implemented in Motif
204 m_lineSize = lineSize;
205 }
206
207 int wxSlider::GetLineSize() const
208 {
209 // Not implemented in Motif
210 return m_lineSize;
211 }
212
213 int wxSlider::GetSelEnd() const
214 {
215 // Not implemented in Motif
216 return 0;
217 }
218
219 int wxSlider::GetSelStart() const
220 {
221 // Not implemented in Motif
222 return 0;
223 }
224
225 void wxSlider::SetSelection(int WXUNUSED(minPos), int WXUNUSED(maxPos))
226 {
227 // Not implemented in Motif
228 }
229
230 void wxSlider::SetThumbLength(int WXUNUSED(len))
231 {
232 // Not implemented in Motif (?)
233 }
234
235 int wxSlider::GetThumbLength() const
236 {
237 // Not implemented in Motif (?)
238 return 0;
239 }
240
241 void wxSlider::SetTick(int WXUNUSED(tickPos))
242 {
243 // Not implemented in Motif
244 }
245
246 void wxSlider::Command (wxCommandEvent & event)
247 {
248 SetValue (event.GetInt());
249 ProcessCommand (event);
250 }
251
252 void wxSlider::ChangeFont(bool keepOriginalSize)
253 {
254 wxWindow::ChangeFont(keepOriginalSize);
255 }
256
257 void wxSlider::ChangeBackgroundColour()
258 {
259 wxWindow::ChangeBackgroundColour();
260 }
261
262 void wxSlider::ChangeForegroundColour()
263 {
264 wxWindow::ChangeForegroundColour();
265 }
266
267 void wxSliderCallback (Widget widget, XtPointer clientData, XmScaleCallbackStruct * cbs)
268 {
269 wxSlider *slider = (wxSlider *) clientData;
270 switch (cbs->reason)
271 {
272 case XmCR_VALUE_CHANGED:
273 case XmCR_DRAG:
274 default:
275 {
276 // TODO: the XmCR_VALUE_CHANGED case should be handled
277 // differently (it's not sent continually as the slider moves).
278 // In which case we need a similar behaviour for other platforms.
279
280 wxScrollEvent event(wxEVT_SCROLL_THUMBTRACK, slider->GetId());
281 XtVaGetValues (widget, XmNvalue, &event.m_commandInt, NULL);
282 event.SetEventObject(slider);
283 slider->ProcessCommand(event);
284
285 // Also send a wxCommandEvent for compatibility.
286 wxCommandEvent event2(wxEVT_COMMAND_SLIDER_UPDATED, slider->GetId());
287 event2.SetEventObject(slider);
288 slider->ProcessCommand(event2);
289 break;
290 }
291 }
292 }
293