Needs["GUIKit`"]

\(TraditionalForm\`SimpleSlider[] := 
      GUIRunModal[
Widget["Panel", 
WidgetGroup[{
Widget["TextField", \ {
"text" -> "0", 
"columns" -> 3, \ "editable" -> 
                    False}, 
Name -> "textField"], 
Widget["Slider", {
BindEvent["change", \ "minimum" -> \(-50\), 
"maximum" -> 50, \ 
                    Script[
SetPropertyValue[{"textField", \ "text"}, \ 
ToString[
                          PropertyValue[
{"slider", \ "value"}], \ InputForm]]; 
Print[
                        PropertyValue[{"slider", \ "value"}]]
]]}, \ Name -> "slider"]
}, \ 
            WidgetLayout -> Row]]
]\)

SimpleSlider[]