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 "Simple use of wx::Slider widget"
28 author "jpr@creatis.insa-lyon.fr"
39 // Initialisations with Set
40 //---------------------------
43 set slider.ReactiveOnTrack 1
48 set slider.Orientation H
49 set slider.Title "initialisations with Set"
61 // Initialisations with Connect
62 //---------------------------------
64 set slider2.ReactiveOnTrack 1
67 connect a1.Out slider2.Min
70 connect a2.Out slider2.Max
73 connect a3.Out slider2.In
76 set slider2.Orientation H
77 set slider2.Title "initialisations with Connect"
82 connect slider.Widget layout.Widget1
83 connect text.Widget layout.Widget2
85 connect slider2.Widget layout.Widget3
86 connect text2.Widget layout.Widget4
89 connect slider.BoxChange text.BoxExecute
90 connect slider.Out text.In
92 connect slider2.BoxChange text2.BoxExecute
93 connect slider2.Out text2.In