description "Simple use of wx::Slider widget" author "jpr@creatis.insa-lyon.fr" category "example" # Load the packages load std load wx # Create the Objects new LayoutLine layout // Initialisations with Set //--------------------------- new Slider slider set slider.ReactiveOnTrack 1 set slider.Min 10 set slider.Max 100 set slider.In 25 set slider.Label 1 set slider.Orientation H set slider.Title "initialisations with Set" new OutputText text new Add a1 set a1.In1 5 new Add a2 set a2.In1 5 new Add a3 set a3.In1 5 // Initialisations with Connect //--------------------------------- new Slider slider2 set slider2.ReactiveOnTrack 1 set a1.In2 5 connect a1.Out slider2.Min set a2.In2 95 connect a2.Out slider2.Max set a3.In2 20 connect a3.Out slider2.In set slider2.Label 1 set slider2.Orientation H set slider2.Title "initialisations with Connect" new OutputText text2 # Graphical pipeline connect slider.Widget layout.Widget1 connect text.Widget layout.Widget2 connect slider2.Widget layout.Widget3 connect text2.Widget layout.Widget4 # Execution pipeline connect slider.BoxChange text.BoxExecute connect slider.Out text.In connect slider2.BoxChange text2.BoxExecute connect slider2.Out text2.In # Go! exec layout