src/motif/slider.cpp

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