]> git.saurik.com Git - wxWidgets.git/blob - src/motif/slider.cpp
first attempt for full screen implementation
[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 #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
13 #pragma implementation "slider.h"
14 #endif
15
16 // For compilers that support precompilation, includes "wx.h".
17 #include "wx/wxprec.h"
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 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 #ifdef __VMS__
93 #pragma message disable codcauunr
94 // VMS gives here the compiler warning :
95 // statement either is unreachable or causes unreachable code
96 #endif
97 if(style & wxSL_NOTIFY_DRAG)
98 XtAddCallback (sliderWidget, XmNdragCallback,
99 (XtCallbackProc) wxSliderCallback, (XtPointer) this);
100 else
101 XtAddCallback (sliderWidget, XmNvalueChangedCallback,
102 (XtCallbackProc) wxSliderCallback, (XtPointer) this);
103 #ifdef __VMS__
104 #pragma message enable codcauunr
105 #endif
106
107 XtAddCallback (sliderWidget, XmNdragCallback, (XtCallbackProc) wxSliderCallback, (XtPointer) this);
108
109 ChangeFont(FALSE);
110 AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, size.x, size.y);
111
112 ChangeBackgroundColour();
113
114 return TRUE;
115 }
116
117 wxSlider::~wxSlider()
118 {
119 }
120
121 int wxSlider::GetValue() const
122 {
123 int val;
124 XtVaGetValues ((Widget) m_mainWidget, XmNvalue, &val, NULL);
125 return val;
126 }
127
128 void wxSlider::SetValue(int value)
129 {
130 XtVaSetValues ((Widget) m_mainWidget, XmNvalue, value, NULL);
131 }
132
133 void wxSlider::DoSetSize(int x, int y, int width, int height, int sizeFlags)
134 {
135 Widget widget = (Widget) m_mainWidget;
136
137 bool managed = XtIsManaged(widget);
138
139 if (managed)
140 XtUnmanageChild (widget);
141
142 if (((m_windowStyle & wxHORIZONTAL) == wxHORIZONTAL) && (width > -1))
143 {
144 XtVaSetValues (widget, XmNscaleWidth, wxMax (width, 10), NULL);
145 }
146
147 if (((m_windowStyle & wxVERTICAL) == wxVERTICAL) && (height > -1))
148 {
149 XtVaSetValues (widget, XmNscaleHeight, wxMax (height, 10), NULL);
150 }
151
152 int xx = x; int yy = y;
153 AdjustForParentClientOrigin(xx, yy, sizeFlags);
154
155 if (x > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
156 XtVaSetValues (widget, XmNx, xx, NULL);
157 if (y > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
158 XtVaSetValues (widget, XmNy, yy, NULL);
159
160 if (managed)
161 XtManageChild (widget);
162 }
163
164 void wxSlider::SetRange(int minValue, int maxValue)
165 {
166 m_rangeMin = minValue;
167 m_rangeMax = maxValue;
168
169 XtVaSetValues ((Widget) m_mainWidget, XmNminimum, minValue, XmNmaximum, maxValue, NULL);
170 }
171
172 // For trackbars only
173 void wxSlider::SetPageSize(int pageSize)
174 {
175 // Not implemented in Motif
176 m_pageSize = pageSize;
177 }
178
179 int wxSlider::GetPageSize() const
180 {
181 return m_pageSize;
182 }
183
184 void wxSlider::SetLineSize(int lineSize)
185 {
186 // Not implemented in Motif
187 m_lineSize = lineSize;
188 }
189
190 int wxSlider::GetLineSize() const
191 {
192 // Not implemented in Motif
193 return m_lineSize;
194 }
195
196 void wxSlider::SetThumbLength(int WXUNUSED(len))
197 {
198 // Not implemented in Motif (?)
199 }
200
201 int wxSlider::GetThumbLength() const
202 {
203 // Not implemented in Motif (?)
204 return 0;
205 }
206
207 void wxSlider::Command (wxCommandEvent & event)
208 {
209 SetValue (event.GetInt());
210 ProcessCommand (event);
211 }
212
213 void wxSliderCallback (Widget widget, XtPointer clientData,
214 XmScaleCallbackStruct * cbs)
215 {
216 wxSlider *slider = (wxSlider *) clientData;
217 wxEventType scrollEvent;
218
219 switch (cbs->reason)
220 {
221 case XmCR_VALUE_CHANGED:
222 scrollEvent = wxEVT_SCROLL_THUMBRELEASE;
223 break;
224
225 case XmCR_DRAG:
226 scrollEvent = wxEVT_SCROLL_THUMBTRACK;
227 break;
228
229 default:
230 return;
231 }
232
233 wxScrollEvent event(scrollEvent, slider->GetId());
234 XtVaGetValues (widget, XmNvalue, &event.m_commandInt, NULL);
235 event.SetEventObject(slider);
236 slider->GetEventHandler()->ProcessEvent(event);
237
238 // Also send a wxCommandEvent for compatibility.
239 wxCommandEvent event2(wxEVT_COMMAND_SLIDER_UPDATED, slider->GetId());
240 event2.SetEventObject(slider);
241 event2.SetInt( event.GetInt() );
242 slider->GetEventHandler()->ProcessEvent(event2);
243 }
244