Fixed some warnings

[wxWidgets.git] / src / motif / slider.cpp

diff --git a/src/motif/slider.cpp b/src/motif/slider.cpp
index a7c3788bf633397acf7e8550d98c7a41858a72c6..70c5c66a24aa3a94624fab6521cc04c5e45c514a 100644 (file)
--- a/src/motif/slider.cpp
+++ b/src/motif/slider.cpp
@@ -1,68 +1,101 @@
 /////////////////////////////////////////////////////////////////////////////
 /////////////////////////////////////////////////////////////////////////////

-// Name:        slider.cpp
+// Name:        src/motif/slider.cpp

 // Purpose:     wxSlider
 // Author:      Julian Smart
 // Modified by:
 // Created:     17/09/98
 // RCS-ID:      $Id$
 // Copyright:   (c) Julian Smart
 // Purpose:     wxSlider
 // Author:      Julian Smart
 // Modified by:
 // Created:     17/09/98
 // RCS-ID:      $Id$
 // Copyright:   (c) Julian Smart

-// Licence:    wxWindows licence
+// Licence:     wxWindows licence

 /////////////////////////////////////////////////////////////////////////////
 
 /////////////////////////////////////////////////////////////////////////////
 

-#ifdef __GNUG__
-#pragma implementation "slider.h"
-#endif
+// For compilers that support precompilation, includes "wx.h".
+#include "wx/wxprec.h"
+
+#if wxUSE_SLIDER

 
 #include "wx/slider.h"
 
 
 #include "wx/slider.h"
 

-#if !USE_SHARED_LIBRARY
-IMPLEMENT_DYNAMIC_CLASS(wxSlider, wxControl)
+#ifndef WX_PRECOMP
+    #include "wx/utils.h"
+#endif
+
+#ifdef __VMS__
+#pragma message disable nosimpint
+#endif
+#include <Xm/Xm.h>
+#include <Xm/Label.h>
+#include <Xm/LabelG.h>
+#include <Xm/RowColumn.h>
+#include <Xm/Scale.h>
+#ifdef __VMS__
+#pragma message enable nosimpint
+#endif
+
+#include "wx/motif/private.h"
+
+static void wxSliderCallback (Widget widget, XtPointer clientData, XmScaleCallbackStruct * cbs);

 
 BEGIN_EVENT_TABLE(wxSlider, wxControl)
 END_EVENT_TABLE()
 
 BEGIN_EVENT_TABLE(wxSlider, wxControl)
 END_EVENT_TABLE()

-#endif

 
 
 
 // Slider
 wxSlider::wxSlider()
 {
 
 
 
 // Slider
 wxSlider::wxSlider()
 {

-  m_pageSize = 1;
-  m_lineSize = 1;
-  m_rangeMax = 0;
-  m_rangeMin = 0;
-  m_tickFreq = 0;
+    m_pageSize = 1;
+    m_lineSize = 1;
+    m_rangeMax = 0;
+    m_rangeMin = 0;

 }
 
 bool wxSlider::Create(wxWindow *parent, wxWindowID id,
 }
 
 bool wxSlider::Create(wxWindow *parent, wxWindowID id,

-           int value, int minValue, int maxValue,
-           const wxPoint& pos,
-           const wxSize& size, long style,
-           const wxValidator& validator,
-           const wxString& name)
+                      int value, int minValue, int maxValue,
+                      const wxPoint& pos,
+                      const wxSize& size, long style,
+                      const wxValidator& validator,
+                      const wxString& name)

 {
 {

-    SetName(name);
-    SetValidator(validator);
+    if ( !((style & wxSL_HORIZONTAL) || (style & wxSL_VERTICAL)) )
+         style |= wxSL_HORIZONTAL;

 
 

-    if (parent) parent->AddChild(this);
+    if( !CreateControl( parent, id, pos, size, style, validator, name ) )
+        return false;
+    PreCreation();

 
     m_lineSize = 1;
     m_windowStyle = style;
 
     m_lineSize = 1;
     m_windowStyle = style;

-    m_tickFreq = 0;
-
-    if ( id == -1 )
-           m_windowId = (int)NewControlId();
-    else
-           m_windowId = id;

 
     m_rangeMax = maxValue;
     m_rangeMin = minValue;
 
 
     m_rangeMax = maxValue;
     m_rangeMin = minValue;
 

+    // Not used in Motif, I think

     m_pageSize = (int)((maxValue-minValue)/10);
 
     m_pageSize = (int)((maxValue-minValue)/10);
 

-    // TODO create slider
+    Widget parentWidget = (Widget) parent->GetClientWidget();
+
+    Widget sliderWidget = XtVaCreateManagedWidget ("sliderWidget",
+        xmScaleWidgetClass, parentWidget,
+        XmNorientation,
+        (((m_windowStyle & wxSL_VERTICAL) == wxSL_VERTICAL) ? XmVERTICAL : XmHORIZONTAL),
+        XmNprocessingDirection,
+        (((m_windowStyle & wxSL_VERTICAL) == wxSL_VERTICAL) ? XmMAX_ON_TOP : XmMAX_ON_RIGHT),
+        XmNmaximum, maxValue,
+        XmNminimum, minValue,
+        XmNvalue, value,
+        XmNshowValue, True,
+        NULL);
+
+    m_mainWidget = (WXWidget) sliderWidget;

 
 

-    return FALSE;
+    XtAddCallback (sliderWidget, XmNvalueChangedCallback, (XtCallbackProc) wxSliderCallback, (XtPointer) this);
+    XtAddCallback (sliderWidget, XmNdragCallback, (XtCallbackProc) wxSliderCallback, (XtPointer) this);
+
+    PostCreation();
+    AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, size.x, size.y);
+
+    return true;

 }
 
 wxSlider::~wxSlider()
 }
 
 wxSlider::~wxSlider()


@@ -71,28 +104,45 @@ wxSlider::~wxSlider()
 
 int wxSlider::GetValue() const
 {
 
 int wxSlider::GetValue() const
 {

-    // TODO
-    return 0;
+    int val;
+    XtVaGetValues ((Widget) m_mainWidget, XmNvalue, &val, NULL);
+    return val;

 }
 
 void wxSlider::SetValue(int value)
 {
 }
 
 void wxSlider::SetValue(int value)
 {

-    // TODO
+    XtVaSetValues ((Widget) m_mainWidget, XmNvalue, value, NULL);

 }
 
 }
 

-void wxSlider::GetSize(int *width, int *height) const
+void wxSlider::DoSetSize(int x, int y, int width, int height, int sizeFlags)

 {
 {

-    // TODO
-}
+    Widget widget = (Widget) m_mainWidget;

 
 

-void wxSlider::GetPosition(int *x, int *y) const
-{
-    // TODO
-}
+    bool managed = XtIsManaged(widget);

 
 

-void wxSlider::SetSize(int x, int y, int width, int height, int sizeFlags)
-{
-    // TODO
+    if (managed)
+        XtUnmanageChild (widget);
+
+    if (((m_windowStyle & wxHORIZONTAL) == wxHORIZONTAL) && (width > -1))
+    {
+        XtVaSetValues (widget, XmNscaleWidth, wxMax (width, 10), NULL);
+    }
+
+    if (((m_windowStyle & wxVERTICAL) == wxVERTICAL) && (height > -1))
+    {
+        XtVaSetValues (widget, XmNscaleHeight, wxMax (height, 10), NULL);
+    }
+
+    int xx = x; int yy = y;
+    AdjustForParentClientOrigin(xx, yy, sizeFlags);
+
+    if (x > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
+        XtVaSetValues (widget, XmNx, xx, NULL);
+    if (y > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
+        XtVaSetValues (widget, XmNy, yy, NULL);
+
+    if (managed)
+        XtManageChild (widget);

 }
 
 void wxSlider::SetRange(int minValue, int maxValue)
 }
 
 void wxSlider::SetRange(int minValue, int maxValue)


@@ -100,19 +150,13 @@ void wxSlider::SetRange(int minValue, int maxValue)
     m_rangeMin = minValue;
     m_rangeMax = maxValue;
 
     m_rangeMin = minValue;
     m_rangeMax = maxValue;
 

-    // TODO
+    XtVaSetValues ((Widget) m_mainWidget, XmNminimum, minValue, XmNmaximum, maxValue, NULL);

 }
 
 // For trackbars only
 }
 
 // For trackbars only

-void wxSlider::SetTickFreq(int n, int pos)
-{
-    // TODO
-    m_tickFreq = n;
-}
-

 void wxSlider::SetPageSize(int pageSize)
 {
 void wxSlider::SetPageSize(int pageSize)
 {

-    // TODO
+    // Not implemented in Motif

     m_pageSize = pageSize;
 }
 
     m_pageSize = pageSize;
 }
 


@@ -121,70 +165,67 @@ int wxSlider::GetPageSize() const
     return m_pageSize;
 }
 
     return m_pageSize;
 }
 

-void wxSlider::ClearSel()
-{
-    // TODO
-}
-
-void wxSlider::ClearTicks()
-{
-    // TODO
-}
-

 void wxSlider::SetLineSize(int lineSize)
 {
 void wxSlider::SetLineSize(int lineSize)
 {

+    // Not implemented in Motif

     m_lineSize = lineSize;
     m_lineSize = lineSize;

-    // TODO

 }
 
 int wxSlider::GetLineSize() const
 {
 }
 
 int wxSlider::GetLineSize() const
 {

-    // TODO
-    return 0;
+    // Not implemented in Motif
+    return m_lineSize;

 }
 
 }
 

-int wxSlider::GetSelEnd() const
+void wxSlider::SetThumbLength(int WXUNUSED(len))

 {
 {

-    // TODO
-    return 0;
+    // Not implemented in Motif (?)

 }
 
 }
 

-int wxSlider::GetSelStart() const
+int wxSlider::GetThumbLength() const

 {
 {

-    // TODO
+    // Not implemented in Motif (?)

     return 0;
 }
 
     return 0;
 }
 

-void wxSlider::SetSelection(int minPos, int maxPos)
+void wxSlider::Command (wxCommandEvent & event)

 {
 {

-    // TODO
+    SetValue (event.GetInt());
+    ProcessCommand (event);

 }
 
 }
 

-void wxSlider::SetThumbLength(int len)
+void wxSliderCallback (Widget widget, XtPointer clientData,
+                       XmScaleCallbackStruct * cbs)

 {
 {

-    // TODO
-}
+    wxSlider *slider = (wxSlider *) clientData;
+    wxEventType scrollEvent;

 
 

-int wxSlider::GetThumbLength() const
-{
-    // TODO
-    return 0;
-}
+    switch (cbs->reason)
+    {
+    case XmCR_VALUE_CHANGED:
+        scrollEvent = wxEVT_SCROLL_THUMBRELEASE;
+        break;

 
 

-void wxSlider::SetTick(int tickPos)
-{
-    // TODO
-}
+    case XmCR_DRAG:
+        scrollEvent = wxEVT_SCROLL_THUMBTRACK;
+        break;

 
 

-void wxSlider::Command (wxCommandEvent & event)
-{
-  SetValue (event.GetInt());
-  ProcessCommand (event);
-}
+    default:
+        return;
+    }

 
 

-bool wxSlider::Show(bool show)
-{
-    // TODO
-    return TRUE;
+    wxScrollEvent event(scrollEvent, slider->GetId());
+    int commandInt = event.GetInt();
+    XtVaGetValues (widget, XmNvalue, &commandInt, NULL);
+    event.SetInt(commandInt);
+    event.SetEventObject(slider);
+    slider->HandleWindowEvent(event);
+
+    // Also send a wxCommandEvent for compatibility.
+    wxCommandEvent event2(wxEVT_COMMAND_SLIDER_UPDATED, slider->GetId());
+    event2.SetEventObject(slider);
+    event2.SetInt( event.GetInt() );
+    slider->HandleWindowEvent(event2);

 }
 
 }
 

+#endif // wxUSE_SLIDER