X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/4bb6408c2631988fab9925014c6619358bf867de..9f4de6b2cf06f53a98b28f53640f3b9ec8cf4182:/src/motif/slider.cpp diff --git a/src/motif/slider.cpp b/src/motif/slider.cpp index a7c3788bf6..369cecc720 100644 --- a/src/motif/slider.cpp +++ b/src/motif/slider.cpp @@ -14,35 +14,55 @@ #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; + m_tickFreq = 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) +{ + if ( !((style & wxSL_HORIZONTAL) || (style & wxSL_VERTICAL)) ) + style |= wxSL_HORIZONTAL; + SetName(name); SetValidator(validator); + m_backgroundColour = parent->GetBackgroundColour(); + m_foregroundColour = parent->GetForegroundColour(); if (parent) parent->AddChild(this); @@ -51,18 +71,58 @@ bool wxSlider::Create(wxWindow *parent, wxWindowID id, m_tickFreq = 0; if ( id == -1 ) - m_windowId = (int)NewControlId(); + m_windowId = (int)NewControlId(); else - m_windowId = id; + 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); + + m_font = parent->GetFont(); + + ChangeFont(FALSE); + SetCanAddEventHandler(TRUE); + AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, size.x, size.y); - return FALSE; + ChangeBackgroundColour(); + + return TRUE; } wxSlider::~wxSlider() @@ -71,28 +131,50 @@ 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 { - // TODO + wxControl::GetSize(width, height); } -void wxSlider::GetPosition(int *x, int *y) const +void wxSlider::DoSetSize(int x, int y, int width, int height, int sizeFlags) { - // TODO -} + Widget widget = (Widget) m_mainWidget; -void wxSlider::SetSize(int x, int y, int width, int height, int sizeFlags) -{ - // TODO + bool managed = XtIsManaged(widget); + + 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 +182,19 @@ 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) +void wxSlider::SetTickFreq(int n, int WXUNUSED(pos)) { - // TODO + // Not implemented in Motif m_tickFreq = n; } void wxSlider::SetPageSize(int pageSize) { - // TODO + // Not implemented in Motif m_pageSize = pageSize; } @@ -123,68 +205,105 @@ int wxSlider::GetPageSize() const void wxSlider::ClearSel() { - // TODO + // Not implemented in Motif } void wxSlider::ClearTicks() { - // TODO + // Not implemented in Motif } 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 { - // TODO + // Not implemented in Motif return 0; } int wxSlider::GetSelStart() const { - // TODO + // Not implemented in Motif return 0; } -void wxSlider::SetSelection(int minPos, int maxPos) +void wxSlider::SetSelection(int WXUNUSED(minPos), int WXUNUSED(maxPos)) { - // TODO + // Not implemented in Motif } -void wxSlider::SetThumbLength(int len) +void wxSlider::SetThumbLength(int WXUNUSED(len)) { - // TODO + // Not implemented in Motif (?) } int wxSlider::GetThumbLength() const { - // TODO + // Not implemented in Motif (?) return 0; } -void wxSlider::SetTick(int tickPos) +void wxSlider::SetTick(int WXUNUSED(tickPos)) { - // TODO + // Not implemented in Motif } void wxSlider::Command (wxCommandEvent & event) { - SetValue (event.GetInt()); - ProcessCommand (event); + SetValue (event.GetInt()); + ProcessCommand (event); } -bool wxSlider::Show(bool show) +void wxSlider::ChangeFont(bool keepOriginalSize) { - // TODO - return TRUE; + wxWindow::ChangeFont(keepOriginalSize); +} + +void wxSlider::ChangeBackgroundColour() +{ + wxWindow::ChangeBackgroundColour(); +} + +void wxSlider::ChangeForegroundColour() +{ + wxWindow::ChangeForegroundColour(); +} + +void wxSliderCallback (Widget widget, XtPointer clientData, XmScaleCallbackStruct * cbs) +{ + wxSlider *slider = (wxSlider *) clientData; + switch (cbs->reason) + { + case XmCR_VALUE_CHANGED: + case XmCR_DRAG: + default: + { + // TODO: the XmCR_VALUE_CHANGED case should be handled + // differently (it's not sent continually as the slider moves). + // In which case we need a similar behaviour for other platforms. + + wxScrollEvent event(wxEVT_SCROLL_THUMBTRACK, slider->GetId()); + XtVaGetValues (widget, XmNvalue, &event.m_commandInt, NULL); + event.SetEventObject(slider); + slider->ProcessCommand(event); + + // Also send a wxCommandEvent for compatibility. + wxCommandEvent event2(wxEVT_COMMAND_SLIDER_UPDATED, slider->GetId()); + event2.SetEventObject(slider); + event2.SetInt( event.GetInt() ); + slider->ProcessCommand(event2); + break; + } + } }