1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/gtk/slider.cpp
4 // Author: Robert Roebling
6 // Copyright: (c) 1998 Robert Roebling
7 // Licence: wxWindows licence
8 /////////////////////////////////////////////////////////////////////////////
10 // For compilers that support precompilation, includes "wx.h".
11 #include "wx/wxprec.h"
15 #include "wx/slider.h"
24 //-----------------------------------------------------------------------------
26 //-----------------------------------------------------------------------------
28 extern bool g_blockEventsOnDrag
;
30 // ----------------------------------------------------------------------------
32 // ----------------------------------------------------------------------------
34 // process a scroll event
36 ProcessScrollEvent(wxSlider
*win
, wxEventType evtType
)
38 const int orient
= win
->HasFlag(wxSL_VERTICAL
) ? wxVERTICAL
41 const int value
= win
->GetValue();
43 // if we have any "special" event (i.e. the value changed by a line or a
44 // page), send this specific event first
45 if ( evtType
!= wxEVT_NULL
)
47 wxScrollEvent
event( evtType
, win
->GetId(), value
, orient
);
48 event
.SetEventObject( win
);
49 win
->HandleWindowEvent( event
);
52 // but, in any case, except if we're dragging the slider (and so the change
53 // is not definitive), send a generic "changed" event
54 if ( evtType
!= wxEVT_SCROLL_THUMBTRACK
)
56 wxScrollEvent
event(wxEVT_SCROLL_CHANGED
, win
->GetId(), value
, orient
);
57 event
.SetEventObject( win
);
58 win
->HandleWindowEvent( event
);
61 // and also generate a command event for compatibility
62 wxCommandEvent
event( wxEVT_COMMAND_SLIDER_UPDATED
, win
->GetId() );
63 event
.SetEventObject( win
);
64 event
.SetInt( value
);
65 win
->HandleWindowEvent( event
);
68 static inline wxEventType
GtkScrollTypeToWx(int scrollType
)
70 wxEventType eventType
;
73 case GTK_SCROLL_STEP_BACKWARD
:
74 case GTK_SCROLL_STEP_LEFT
:
75 case GTK_SCROLL_STEP_UP
:
76 eventType
= wxEVT_SCROLL_LINEUP
;
78 case GTK_SCROLL_STEP_DOWN
:
79 case GTK_SCROLL_STEP_FORWARD
:
80 case GTK_SCROLL_STEP_RIGHT
:
81 eventType
= wxEVT_SCROLL_LINEDOWN
;
83 case GTK_SCROLL_PAGE_BACKWARD
:
84 case GTK_SCROLL_PAGE_LEFT
:
85 case GTK_SCROLL_PAGE_UP
:
86 eventType
= wxEVT_SCROLL_PAGEUP
;
88 case GTK_SCROLL_PAGE_DOWN
:
89 case GTK_SCROLL_PAGE_FORWARD
:
90 case GTK_SCROLL_PAGE_RIGHT
:
91 eventType
= wxEVT_SCROLL_PAGEDOWN
;
93 case GTK_SCROLL_START
:
94 eventType
= wxEVT_SCROLL_TOP
;
97 eventType
= wxEVT_SCROLL_BOTTOM
;
100 eventType
= wxEVT_SCROLL_THUMBTRACK
;
103 wxFAIL_MSG(_T("Unknown GtkScrollType"));
104 eventType
= wxEVT_NULL
;
110 // Determine if increment is the same as +/-x, allowing for some small
111 // difference due to possible inexactness in floating point arithmetic
112 static inline bool IsScrollIncrement(double increment
, double x
)
114 wxASSERT(increment
> 0);
115 const double tolerance
= 1.0 / 1024;
116 return fabs(increment
- fabs(x
)) < tolerance
;
119 //-----------------------------------------------------------------------------
121 //-----------------------------------------------------------------------------
125 gtk_value_changed(GtkRange
* range
, wxSlider
* win
)
127 GtkAdjustment
* adj
= gtk_range_get_adjustment (range
);
128 const int pos
= wxRound(adj
->value
);
129 const double oldPos
= win
->m_pos
;
130 win
->m_pos
= adj
->value
;
132 if (!win
->m_hasVMT
|| g_blockEventsOnDrag
)
135 if (win
->m_blockScrollEvent
)
137 win
->m_scrollEventType
= GTK_SCROLL_NONE
;
141 wxEventType eventType
= wxEVT_NULL
;
142 if (win
->m_isScrolling
)
144 eventType
= wxEVT_SCROLL_THUMBTRACK
;
146 else if (win
->m_scrollEventType
!= GTK_SCROLL_NONE
)
148 // Scroll event from "move-slider" (keyboard)
149 eventType
= GtkScrollTypeToWx(win
->m_scrollEventType
);
151 else if (win
->m_mouseButtonDown
)
153 // Difference from last change event
154 const double diff
= adj
->value
- oldPos
;
155 const bool isDown
= diff
> 0;
157 if (IsScrollIncrement(adj
->page_increment
, diff
))
159 eventType
= isDown
? wxEVT_SCROLL_PAGEDOWN
: wxEVT_SCROLL_PAGEUP
;
161 else if (wxIsSameDouble(adj
->value
, 0))
163 eventType
= wxEVT_SCROLL_PAGEUP
;
165 else if (wxIsSameDouble(adj
->value
, adj
->upper
))
167 eventType
= wxEVT_SCROLL_PAGEDOWN
;
171 // Assume track event
172 eventType
= wxEVT_SCROLL_THUMBTRACK
;
173 // Remember that we're tracking
174 win
->m_isScrolling
= true;
178 win
->m_scrollEventType
= GTK_SCROLL_NONE
;
180 // If integral position has changed
181 if (wxRound(oldPos
) != pos
)
183 ProcessScrollEvent(win
, eventType
);
184 win
->m_needThumbRelease
= eventType
== wxEVT_SCROLL_THUMBTRACK
;
189 //-----------------------------------------------------------------------------
190 // "move_slider" (keyboard event)
191 //-----------------------------------------------------------------------------
195 gtk_move_slider(GtkRange
*, GtkScrollType scrollType
, wxSlider
* win
)
197 // Save keyboard scroll type for "value_changed" handler
198 win
->m_scrollEventType
= scrollType
;
202 //-----------------------------------------------------------------------------
203 // "button_press_event"
204 //-----------------------------------------------------------------------------
208 gtk_button_press_event(GtkWidget
*, GdkEventButton
*, wxSlider
* win
)
210 win
->m_mouseButtonDown
= true;
216 //-----------------------------------------------------------------------------
218 //-----------------------------------------------------------------------------
222 gtk_event_after(GtkRange
* range
, GdkEvent
* event
, wxSlider
* win
)
224 if (event
->type
== GDK_BUTTON_RELEASE
)
226 g_signal_handlers_block_by_func(range
, (gpointer
) gtk_event_after
, win
);
228 if (win
->m_needThumbRelease
)
230 win
->m_needThumbRelease
= false;
231 ProcessScrollEvent(win
, wxEVT_SCROLL_THUMBRELEASE
);
233 // Keep slider at an integral position
234 win
->m_blockScrollEvent
= true;
235 gtk_range_set_value(GTK_RANGE (win
->m_widget
), win
->GetValue());
236 win
->m_blockScrollEvent
= false;
241 //-----------------------------------------------------------------------------
242 // "button_release_event"
243 //-----------------------------------------------------------------------------
247 gtk_button_release_event(GtkRange
* range
, GdkEventButton
*, wxSlider
* win
)
249 win
->m_mouseButtonDown
= false;
250 if (win
->m_isScrolling
)
252 win
->m_isScrolling
= false;
253 g_signal_handlers_unblock_by_func(range
, (gpointer
) gtk_event_after
, win
);
259 //-----------------------------------------------------------------------------
261 //-----------------------------------------------------------------------------
264 static gchar
* gtk_format_value(GtkScale
*, double value
, void*)
266 // Format value as nearest integer
267 return g_strdup_printf("%d", wxRound(value
));
271 //-----------------------------------------------------------------------------
273 //-----------------------------------------------------------------------------
275 IMPLEMENT_DYNAMIC_CLASS(wxSlider
,wxControl
)
280 m_scrollEventType
= GTK_SCROLL_NONE
;
281 m_needThumbRelease
= false;
282 m_blockScrollEvent
= false;
285 bool wxSlider::Create(wxWindow
*parent
,
293 const wxValidator
& validator
,
294 const wxString
& name
)
297 m_scrollEventType
= GTK_SCROLL_NONE
;
299 if (!PreCreation( parent
, pos
, size
) ||
300 !CreateBase( parent
, id
, pos
, size
, style
, validator
, name
))
302 wxFAIL_MSG( wxT("wxSlider creation failed") );
306 if (style
& wxSL_VERTICAL
)
307 m_widget
= gtk_vscale_new( (GtkAdjustment
*) NULL
);
309 m_widget
= gtk_hscale_new( (GtkAdjustment
*) NULL
);
311 gtk_scale_set_draw_value(GTK_SCALE (m_widget
), (style
& wxSL_LABELS
) != 0);
312 // Keep full precision in position value
313 gtk_scale_set_digits(GTK_SCALE (m_widget
), -1);
315 if (style
& wxSL_INVERSE
)
316 gtk_range_set_inverted( GTK_RANGE(m_widget
), TRUE
);
318 g_signal_connect(m_widget
, "button_press_event", G_CALLBACK(gtk_button_press_event
), this);
319 g_signal_connect(m_widget
, "button_release_event", G_CALLBACK(gtk_button_release_event
), this);
320 g_signal_connect(m_widget
, "move_slider", G_CALLBACK(gtk_move_slider
), this);
321 g_signal_connect(m_widget
, "format_value", G_CALLBACK(gtk_format_value
), NULL
);
322 g_signal_connect(m_widget
, "value_changed", G_CALLBACK(gtk_value_changed
), this);
323 gulong handler_id
= g_signal_connect(m_widget
, "event_after", G_CALLBACK(gtk_event_after
), this);
324 g_signal_handler_block(m_widget
, handler_id
);
326 SetRange( minValue
, maxValue
);
328 // don't call the public SetValue() as it won't do anything unless the
329 // value really changed
330 GTKSetValue( value
);
332 m_parent
->DoAddChild( this );
339 int wxSlider::GetValue() const
341 return wxRound(m_pos
);
344 void wxSlider::SetValue( int value
)
346 if (GetValue() != value
)
350 void wxSlider::GTKSetValue(int value
)
352 m_blockScrollEvent
= true;
353 gtk_range_set_value(GTK_RANGE (m_widget
), value
);
354 m_blockScrollEvent
= false;
357 void wxSlider::SetRange( int minValue
, int maxValue
)
359 m_blockScrollEvent
= true;
360 if (minValue
== maxValue
)
362 gtk_range_set_range(GTK_RANGE (m_widget
), minValue
, maxValue
);
363 gtk_range_set_increments(GTK_RANGE (m_widget
), 1, (maxValue
- minValue
+ 9) / 10);
364 m_blockScrollEvent
= false;
367 int wxSlider::GetMin() const
369 return int(gtk_range_get_adjustment (GTK_RANGE (m_widget
))->lower
);
372 int wxSlider::GetMax() const
374 return int(gtk_range_get_adjustment (GTK_RANGE (m_widget
))->upper
);
377 void wxSlider::SetPageSize( int pageSize
)
379 m_blockScrollEvent
= true;
380 gtk_range_set_increments(GTK_RANGE (m_widget
), GetLineSize(), pageSize
);
381 m_blockScrollEvent
= false;
384 int wxSlider::GetPageSize() const
386 return int(gtk_range_get_adjustment (GTK_RANGE (m_widget
))->page_increment
);
389 // GTK does not support changing the size of the slider
390 void wxSlider::SetThumbLength(int)
394 int wxSlider::GetThumbLength() const
399 void wxSlider::SetLineSize( int lineSize
)
401 m_blockScrollEvent
= true;
402 gtk_range_set_increments(GTK_RANGE (m_widget
), lineSize
, GetPageSize());
403 m_blockScrollEvent
= false;
406 int wxSlider::GetLineSize() const
408 return int(gtk_range_get_adjustment (GTK_RANGE (m_widget
))->step_increment
);
411 GdkWindow
*wxSlider::GTKGetWindow(wxArrayGdkWindows
& WXUNUSED(windows
)) const
413 return GTK_RANGE(m_widget
)->event_window
;
418 wxSlider::GetClassDefaultAttributes(wxWindowVariant
WXUNUSED(variant
))
420 return GetDefaultAttributesFromGTKWidget(gtk_vscale_new
);
423 #endif // wxUSE_SLIDER