diff --git a/src/univ/slider.cpp b/src/univ/slider.cpp
index 9e63cfd48a..88b6b914b0 100644
--- a/src/univ/slider.cpp
+++ b/src/univ/slider.cpp
@@ -209,6 +209,12 @@ bool wxSlider::ChangeValueTo(int value)
     // value!
     wxCHECK_MSG( IsInRange(value), false, wxT("invalid slider value") );
 
+    // and also generate a command event for compatibility
+    wxCommandEvent cmdevent( wxEVT_SLIDER, GetId() );
+    cmdevent.SetInt( value );
+    cmdevent.SetEventObject( this );
+    GetEventHandler()->ProcessEvent(cmdevent);
+
     m_value = value;
 
     Refresh();