]> git.saurik.com Git - wxWidgets.git/blob - src/motif/slider.cpp
cleanup - reformat
[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 // For compilers that support precompilation, includes "wx.h".
13 #include "wx/wxprec.h"
14
15 #include "wx/defs.h"
16
17 #if wxUSE_SLIDER
18
19 #include "wx/slider.h"
20 #include "wx/utils.h"
21
22 #ifdef __VMS__
23 #pragma message disable nosimpint
24 #endif
25 #include <Xm/Xm.h>
26 #include <Xm/Label.h>
27 #include <Xm/LabelG.h>
28 #include <Xm/RowColumn.h>
29 #include <Xm/Scale.h>
30 #ifdef __VMS__
31 #pragma message enable nosimpint
32 #endif
33
34 #include "wx/motif/private.h"
35
36 static void wxSliderCallback (Widget widget, XtPointer clientData, XmScaleCallbackStruct * cbs);
37
38 IMPLEMENT_DYNAMIC_CLASS(wxSlider, wxControl)
39
40 BEGIN_EVENT_TABLE(wxSlider, wxControl)
41 END_EVENT_TABLE()
42
43
44
45 // Slider
46 wxSlider::wxSlider()
47 {
48 m_pageSize = 1;
49 m_lineSize = 1;
50 m_rangeMax = 0;
51 m_rangeMin = 0;
52 }
53
54 bool wxSlider::Create(wxWindow *parent, wxWindowID id,
55 int value, int minValue, int maxValue,
56 const wxPoint& pos,
57 const wxSize& size, long style,
58 const wxValidator& validator,
59 const wxString& name)
60 {
61 if ( !((style & wxSL_HORIZONTAL) || (style & wxSL_VERTICAL)) )
62 style |= wxSL_HORIZONTAL;
63
64 if( !CreateControl( parent, id, pos, size, style, validator, name ) )
65 return false;
66
67 m_lineSize = 1;
68 m_windowStyle = style;
69
70 m_rangeMax = maxValue;
71 m_rangeMin = minValue;
72
73 // Not used in Motif, I think
74 m_pageSize = (int)((maxValue-minValue)/10);
75
76 Widget parentWidget = (Widget) parent->GetClientWidget();
77
78 Widget sliderWidget = XtVaCreateManagedWidget ("sliderWidget",
79 xmScaleWidgetClass, parentWidget,
80 XmNorientation,
81 (((m_windowStyle & wxSL_VERTICAL) == wxSL_VERTICAL) ? XmVERTICAL : XmHORIZONTAL),
82 XmNprocessingDirection,
83 (((m_windowStyle & wxSL_VERTICAL) == wxSL_VERTICAL) ? XmMAX_ON_TOP : XmMAX_ON_RIGHT),
84 XmNmaximum, maxValue,
85 XmNminimum, minValue,
86 XmNvalue, value,
87 XmNshowValue, True,
88 NULL);
89
90 m_mainWidget = (WXWidget) sliderWidget;
91
92 XtAddCallback (sliderWidget, XmNvalueChangedCallback, (XtCallbackProc) wxSliderCallback, (XtPointer) this);
93 XtAddCallback (sliderWidget, XmNdragCallback, (XtCallbackProc) wxSliderCallback, (XtPointer) this);
94
95 ChangeFont(false);
96 AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, size.x, size.y);
97
98 ChangeBackgroundColour();
99
100 return true;
101 }
102
103 wxSlider::~wxSlider()
104 {
105 }
106
107 int wxSlider::GetValue() const
108 {
109 int val;
110 XtVaGetValues ((Widget) m_mainWidget, XmNvalue, &val, NULL);
111 return val;
112 }
113
114 void wxSlider::SetValue(int value)
115 {
116 XtVaSetValues ((Widget) m_mainWidget, XmNvalue, value, NULL);
117 }
118
119 void wxSlider::DoSetSize(int x, int y, int width, int height, int sizeFlags)
120 {
121 Widget widget = (Widget) m_mainWidget;
122
123 bool managed = XtIsManaged(widget);
124
125 if (managed)
126 XtUnmanageChild (widget);
127
128 if (((m_windowStyle & wxHORIZONTAL) == wxHORIZONTAL) && (width > -1))
129 {
130 XtVaSetValues (widget, XmNscaleWidth, wxMax (width, 10), NULL);
131 }
132
133 if (((m_windowStyle & wxVERTICAL) == wxVERTICAL) && (height > -1))
134 {
135 XtVaSetValues (widget, XmNscaleHeight, wxMax (height, 10), NULL);
136 }
137
138 int xx = x; int yy = y;
139 AdjustForParentClientOrigin(xx, yy, sizeFlags);
140
141 if (x > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
142 XtVaSetValues (widget, XmNx, xx, NULL);
143 if (y > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
144 XtVaSetValues (widget, XmNy, yy, NULL);
145
146 if (managed)
147 XtManageChild (widget);
148 }
149
150 void wxSlider::SetRange(int minValue, int maxValue)
151 {
152 m_rangeMin = minValue;
153 m_rangeMax = maxValue;
154
155 XtVaSetValues ((Widget) m_mainWidget, XmNminimum, minValue, XmNmaximum, maxValue, NULL);
156 }
157
158 // For trackbars only
159 void wxSlider::SetPageSize(int pageSize)
160 {
161 // Not implemented in Motif
162 m_pageSize = pageSize;
163 }
164
165 int wxSlider::GetPageSize() const
166 {
167 return m_pageSize;
168 }
169
170 void wxSlider::SetLineSize(int lineSize)
171 {
172 // Not implemented in Motif
173 m_lineSize = lineSize;
174 }
175
176 int wxSlider::GetLineSize() const
177 {
178 // Not implemented in Motif
179 return m_lineSize;
180 }
181
182 void wxSlider::SetThumbLength(int WXUNUSED(len))
183 {
184 // Not implemented in Motif (?)
185 }
186
187 int wxSlider::GetThumbLength() const
188 {
189 // Not implemented in Motif (?)
190 return 0;
191 }
192
193 void wxSlider::Command (wxCommandEvent & event)
194 {
195 SetValue (event.GetInt());
196 ProcessCommand (event);
197 }
198
199 void wxSliderCallback (Widget widget, XtPointer clientData,
200 XmScaleCallbackStruct * cbs)
201 {
202 wxSlider *slider = (wxSlider *) clientData;
203 wxEventType scrollEvent;
204
205 switch (cbs->reason)
206 {
207 case XmCR_VALUE_CHANGED:
208 scrollEvent = wxEVT_SCROLL_THUMBRELEASE;
209 break;
210
211 case XmCR_DRAG:
212 scrollEvent = wxEVT_SCROLL_THUMBTRACK;
213 break;
214
215 default:
216 return;
217 }
218
219 wxScrollEvent event(scrollEvent, slider->GetId());
220 int commandInt = event.GetInt();
221 XtVaGetValues (widget, XmNvalue, &commandInt, NULL);
222 event.SetInt(commandInt);
223 event.SetEventObject(slider);
224 slider->GetEventHandler()->ProcessEvent(event);
225
226 // Also send a wxCommandEvent for compatibility.
227 wxCommandEvent event2(wxEVT_COMMAND_SLIDER_UPDATED, slider->GetId());
228 event2.SetEventObject(slider);
229 event2.SetInt( event.GetInt() );
230 slider->GetEventHandler()->ProcessEvent(event2);
231 }
232
233 #endif // wxUSE_SLIDER