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