1 description "More complex test of wx::Slider widget"
2 author "jpr[at]creatis[dot]insa[dash]lyon[dot]fr"
6 // std needed for <std::string> to <int> adaptor
10 set main.Orientation H
13 set right.Orientation H
14 connect left.Widget main.Widget1
15 connect right.Widget main.Widget2
17 // =============================================================
20 set s1.Title "s1 : Simple Slider, Init = 33, O.Text : Reactive"
24 set o1.Title "Sortie s1"
25 set o1.BoxProcessMode Reactive
27 connect s1.Widget left.Widget1
30 // -----------------------------------
35 set s2.Title "s2 : Slider with Min, Max, ReactiveOnTrack, O.Text : Reactive"
36 set s2.ReactiveOnTrack 1
39 set o2.Title "Sortie s2"
40 set o2.BoxProcessMode Reactive
41 connect s2.Widget left.Widget2
44 // -----------------------------------
48 set s3.Title "s3 : Slider with ChangeResolution, Always, O.Text : Reactive"
49 set s3.ChangeResolution True
52 set o3.Title "Sortie s3"
53 set o3.BoxProcessMode Reactive
55 connect s3.Widget left.Widget3
58 // -----------------------------------
63 set a.BoxProcessMode Reactive
66 set s4.Title "s4 : Slider pos s1+s2"
67 set s4.BoxProcessMode Reactive
69 # Warning : 'In' is the initial position, nothing more
70 # Don't try to modify it later!
72 connect s4.Widget left.Widget4
75 set o4.Title "Entree s4 (Add s1, s2)"
76 set o4.BoxProcessMode Reactive
79 // -----------------------------------
80 connect o1.Widget left.Widget5
81 connect o2.Widget left.Widget6
82 connect o3.Widget left.Widget7
83 connect o4.Widget left.Widget8
85 // =======================================================
88 set ot11.In "Simple Slider"
89 connect ot11.Widget right.Widget1
92 connect s11.Widget right.Widget2
95 set ot12.In "Slider with Min, Max"
96 connect ot12.Widget right.Widget3
101 connect s12.Widget right.Widget4
104 set ot13.In "Slider with ChangeResolution"
105 connect ot13.Widget right.Widget5
107 set s13.Orientation V
110 set s13.ChangeResolution True
111 connect s13.Widget right.Widget6
113 // ---------------------------------------------------
115 new CommandButton cmdBtn
116 set cmdBtn.In "exec s4; exec main"
117 set cmdBtn.Label "Refresh main"
118 connect cmdBtn.Widget left.Widget9