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 "A tour of wx boxes"
28 author "laurent.guigues@creatis.insa-lyon.fr"
32 #==================================================================
34 print "============================"
35 print "A Slider whose output is plugged into an OutputText"
36 print "============================"
38 #==================================================================
43 # Make it signal it has changed when it is moved (not only released)
44 set slider.ReactiveOnTrack 1
45 # Create the OutputText
50 set main.WinDialog true
52 # Setting up the Layout
53 connect slider.Widget main.Widget1
54 connect text.Widget main.Widget2
56 #The output of the slider is plugged into the input of the text
57 #To do this, we must have an int to string adaptor, hence load std
59 connect slider.Out text.In
61 # Any change of the slider must update the text
62 connect slider.BoxChange text.BoxExecute
67 #==================================================================
71 print "============================"
72 print "Splitting a window into two adjustable parts"
73 print "============================"
75 #==================================================================
81 connect slider1.Widget main.Widget1
82 connect slider2.Widget main.Widget2
83 set main.Proportion 75
84 set main.Orientation Horizontal
85 set main.WinDialog true
88 #==================================================================
91 #==================================================================