+ wxScrollEvent event( command, win->GetId(), value, orient );
+ event.SetEventObject( win );
+ win->GetEventHandler()->ProcessEvent( event );
+
+ wxCommandEvent cevent( wxEVT_COMMAND_SLIDER_UPDATED, win->GetId() );
+ cevent.SetEventObject( win );
+ cevent.SetInt( value );
+ win->GetEventHandler()->ProcessEvent( cevent );
+}
+
+//-----------------------------------------------------------------------------
+// wxSlider
+//-----------------------------------------------------------------------------
+
+IMPLEMENT_DYNAMIC_CLASS(wxSlider,wxControl)
+
+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 )
+{
+ m_acceptsFocus = TRUE;
+ m_needParent = TRUE;
+
+ if (!PreCreation( parent, pos, size ) ||
+ !CreateBase( parent, id, pos, size, style, validator, name ))
+ {
+ wxFAIL_MSG( wxT("wxSlider creation failed") );
+ return FALSE;
+ }
+
+ m_oldPos = 0.0;
+
+ if (style & wxSL_VERTICAL)
+ m_widget = gtk_vscale_new( (GtkAdjustment *) NULL );
+ else
+ m_widget = gtk_hscale_new( (GtkAdjustment *) NULL );
+
+ if (style & wxSL_LABELS)
+ {
+ gtk_scale_set_draw_value( GTK_SCALE( m_widget ), TRUE );
+ gtk_scale_set_digits( GTK_SCALE( m_widget ), 0 );
+
+ /* labels need more space and too small window will
+ cause junk to appear on the dialog */
+ if (style & wxSL_VERTICAL)
+ {
+ wxSize sz( size );
+ if (sz.x < 35)
+ {
+ sz.x = 35;
+ SetSize( sz );
+ }
+ }
+ else
+ {
+ wxSize sz( size );
+ if (sz.y < 35)
+ {
+ sz.y = 35;
+ SetSize( sz );
+ }
+ }
+ }
+ else
+ gtk_scale_set_draw_value( GTK_SCALE( m_widget ), FALSE );
+
+ m_adjust = gtk_range_get_adjustment( GTK_RANGE(m_widget) );
+
+ GtkEnableEvents();
+
+ SetRange( minValue, maxValue );
+ SetValue( value );
+
+ m_parent->DoAddChild( this );
+
+ PostCreation(size);
+
+ return TRUE;
+}
+
+int wxSlider::GetValue() const