1 # ---------------------------------------------------------------------
3 # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
5 # Authors : Eduardo Davila, Frederic Cervenansky, Claire Mouton
6 # Previous Authors : Laurent Guigues, Jean-Pierre Roux
7 # CreaTools website : www.creatis.insa-lyon.fr/site/fr/creatools_accueil
9 # This software is governed by the CeCILL-B license under French law and
10 # abiding by the rules of distribution of free software. You can use,
11 # modify and/ or redistribute the software under the terms of the CeCILL-B
12 # license as circulated by CEA, CNRS and INRIA at the following URL
13 # http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html
14 # or in the file LICENSE.txt.
16 # As a counterpart to the access to the source code and rights to copy,
17 # modify and redistribute granted by the license, users are provided only
18 # with a limited warranty and the software's author, the holder of the
19 # economic rights, and the successive licensors have only limited
22 # The fact that you are presently reading this means that you have had
23 # knowledge of the CeCILL-B license and that you accept its terms.
24 # ------------------------------------------------------------------------ */
27 description "More complex test of wx::Slider widget"
28 author "jpr[at]creatis[dot]insa[dash]lyon[dot]fr"
32 // std needed for <std::string> to <int> adaptor
36 set main.Orientation H
39 set right.Orientation H
40 connect left.Widget main.Widget1
41 connect right.Widget main.Widget2
43 // =============================================================
46 set s1.Title "s1 : Simple Slider, Init = 33, O.Text : Reactive"
50 set o1.Title "Sortie s1"
51 set o1.BoxProcessMode Reactive
53 connect s1.Widget left.Widget1
56 // -----------------------------------
61 set s2.Title "s2 : Slider with Min, Max, ReactiveOnTrack, O.Text : Reactive"
62 set s2.ReactiveOnTrack 1
65 set o2.Title "Sortie s2"
66 set o2.BoxProcessMode Reactive
67 connect s2.Widget left.Widget2
70 // -----------------------------------
74 set s3.Title "s3 : Slider with ChangeResolution, Always, O.Text : Reactive"
75 set s3.ChangeResolution True
78 set o3.Title "Sortie s3"
79 set o3.BoxProcessMode Reactive
81 connect s3.Widget left.Widget3
84 // -----------------------------------
89 set a.BoxProcessMode Reactive
92 set s4.Title "s4 : Slider pos s1+s2"
93 set s4.BoxProcessMode Reactive
95 # Warning : 'In' is the initial position, nothing more
96 # Don't try to modify it later!
98 connect s4.Widget left.Widget4
101 set o4.Title "Entree s4 (Add s1, s2)"
102 set o4.BoxProcessMode Reactive
105 // -----------------------------------
106 connect o1.Widget left.Widget5
107 connect o2.Widget left.Widget6
108 connect o3.Widget left.Widget7
109 connect o4.Widget left.Widget8
111 // =======================================================
114 set ot11.In "Simple Slider"
115 connect ot11.Widget right.Widget1
117 set s11.Orientation V
118 connect s11.Widget right.Widget2
121 set ot12.In "Slider with Min, Max"
122 connect ot12.Widget right.Widget3
124 set s12.Orientation V
127 connect s12.Widget right.Widget4
130 set ot13.In "Slider with ChangeResolution"
131 connect ot13.Widget right.Widget5
133 set s13.Orientation V
136 set s13.ChangeResolution True
137 connect s13.Widget right.Widget6
139 // ---------------------------------------------------
141 new CommandButton cmdBtn
142 set cmdBtn.In "exec s4; exec main"
143 set cmdBtn.Label "Refresh main"
144 connect cmdBtn.Widget left.Widget9