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 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     int commandInt = event.GetInt();
 235     XtVaGetValues (widget, XmNvalue, &commandInt, NULL);
 236     event.SetInt(commandInt);
 237     event.SetEventObject(slider);
 238     slider->GetEventHandler()->ProcessEvent(event);
 239
 240     // Also send a wxCommandEvent for compatibility.
 241     wxCommandEvent event2(wxEVT_COMMAND_SLIDER_UPDATED, slider->GetId());
 242     event2.SetEventObject(slider);
 243     event2.SetInt( event.GetInt() );
 244     slider->GetEventHandler()->ProcessEvent(event2);
 245 }
 246
 247 #endif // wxUSE_SLIDER