X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/4bb6408c2631988fab9925014c6619358bf867de..a430d03e5f1b1fbd6c11a090a9aaaad84fb2a5d9:/src/motif/slider.cpp diff --git a/src/motif/slider.cpp b/src/motif/slider.cpp index a7c3788bf6..c0eee32152 100644 --- a/src/motif/slider.cpp +++ b/src/motif/slider.cpp @@ -9,60 +9,106 @@ // Licence: wxWindows licence ///////////////////////////////////////////////////////////////////////////// -#ifdef __GNUG__ +#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA) #pragma implementation "slider.h" #endif #include "wx/slider.h" +#include "wx/utils.h" + +#ifdef __VMS__ +#pragma message disable nosimpint +#endif +#include +#include +#include +#include +#include +#ifdef __VMS__ +#pragma message enable nosimpint +#endif + +#include "wx/motif/private.h" + +void wxSliderCallback (Widget widget, XtPointer clientData, XmScaleCallbackStruct * cbs); -#if !USE_SHARED_LIBRARY IMPLEMENT_DYNAMIC_CLASS(wxSlider, wxControl) BEGIN_EVENT_TABLE(wxSlider, wxControl) END_EVENT_TABLE() -#endif // 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, - 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; 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; + // Not used in Motif, I think 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; + +#ifdef __VMS__ +#pragma message disable codcauunr + // VMS gives here the compiler warning : + // statement either is unreachable or causes unreachable code +#endif + if(style & wxSL_NOTIFY_DRAG) + XtAddCallback (sliderWidget, XmNdragCallback, + (XtCallbackProc) wxSliderCallback, (XtPointer) this); + else + XtAddCallback (sliderWidget, XmNvalueChangedCallback, + (XtCallbackProc) wxSliderCallback, (XtPointer) this); +#ifdef __VMS__ +#pragma message enable codcauunr +#endif + + XtAddCallback (sliderWidget, XmNdragCallback, (XtCallbackProc) wxSliderCallback, (XtPointer) this); - return FALSE; + ChangeFont(FALSE); + AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, size.x, size.y); + + ChangeBackgroundColour(); + + return TRUE; } wxSlider::~wxSlider() @@ -71,28 +117,45 @@ wxSlider::~wxSlider() int wxSlider::GetValue() const { - // TODO - return 0; + int val; + XtVaGetValues ((Widget) m_mainWidget, XmNvalue, &val, NULL); + return val; } 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) @@ -100,19 +163,13 @@ void wxSlider::SetRange(int minValue, int maxValue) m_rangeMin = minValue; m_rangeMax = maxValue; - // TODO + XtVaSetValues ((Widget) m_mainWidget, XmNminimum, minValue, XmNmaximum, maxValue, NULL); } // For trackbars only -void wxSlider::SetTickFreq(int n, int pos) -{ - // TODO - m_tickFreq = n; -} - void wxSlider::SetPageSize(int pageSize) { - // TODO + // Not implemented in Motif m_pageSize = pageSize; } @@ -121,70 +178,64 @@ int wxSlider::GetPageSize() const return m_pageSize; } -void wxSlider::ClearSel() -{ - // TODO -} - -void wxSlider::ClearTicks() -{ - // TODO -} - void wxSlider::SetLineSize(int lineSize) { + // Not implemented in Motif m_lineSize = lineSize; - // TODO } 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; } -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()); + XtVaGetValues (widget, XmNvalue, &event.m_commandInt, NULL); + event.SetEventObject(slider); + slider->GetEventHandler()->ProcessEvent(event); + + // Also send a wxCommandEvent for compatibility. + wxCommandEvent event2(wxEVT_COMMAND_SLIDER_UPDATED, slider->GetId()); + event2.SetEventObject(slider); + event2.SetInt( event.GetInt() ); + slider->GetEventHandler()->ProcessEvent(event2); }