packages/wx/bbs/appli/exampleComplexLayoutLine_In_LayoutLine.bbs

   1 # ---------------------------------------------------------------------
   2 #
   3 # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
   4 #                        pour la SantÈ)
   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
   8 #
   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.
  15 #
  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
  20 #  liability.
  21 #
  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 # ------------------------------------------------------------------------ */
  25
  26
  27 description "More complicated example of wx::LayoutLine widgets"
  28 author "jean-pierre.roux@creatis.univ-lyon1.fr"
  29 category "example"
  30
  31 load std
  32 load wx
  33
  34
  35 #----- I N T E R F A C E  -------------------------------------
  36
  37 // Just to see the mess when you want something not so simple...
  38
  39 //                          upLeft    upRight
  40 //                        ----------|-----------|
  41 //                        |         |           |
  42 //                        |         |           |
  43 //                        |         |           |
  44 //      UP                |---------|           |
  45 //                        |         |           |
  46 //                        |         |           |
  47 //                        |         |           |
  48 //     ----------         -----------------------
  49 //                        |                     |
  50 //                        |                     |
  51 //                        |                     |
  52 //                        |                     |
  53 //        DOWN            ----------|-----------|
  54 //                        |         |           |
  55 //                        |         |           |
  56 //                        |         |           |  downDown
  57 //                        |         |           |
  58 //                        ----------------------
  59 new LayoutLine main
  60  set main.Orientation V
  61
  62 new LayoutLine up
  63   set up.Orientation H
  64
  65 new LayoutLine down
  66   set down.Orientation V
  67   new Slider s1Down
  68       set s1Down.Title "s1Down"
  69   connect s1Down.Widget   down.Widget1
  70
  71  new LayoutLine downDown
  72   set downDown.Orientation H
  73   connect downDown.Widget down.Widget2
  74
  75   new RadioButton rb1
  76     set rb1.Title "Rad But DownLeft"
  77     set rb1.In0 "Choix 1"
  78     set rb1.In1 "Choix 2"
  79     set rb1.In2 "Choix 3"
  80     set rb1.In3 "Choix 4"
  81     set rb1.In 1
  82    connect rb1.Widget downDown.Widget1
  83
  84
  85   new RadioButton rb2
  86     set rb2.Title "Rad But DownLeft"
  87     set rb2.In0 "Choix 1"
  88     set rb2.In1 "Choix 2"
  89     set rb2.In2 "Choix 3"
  90     set rb2.In3 "Choix 4"
  91     set rb2.In 4
  92    connect rb2.Widget downDown.Widget2
  93
  94
  95   connect up.Widget   main.Widget1
  96   connect down.Widget main.Widget2
  97
  98   new LayoutLine upLeft
  99
 100     new Slider sUpLeft10
 101       set sUpLeft10.Title "sUpLeft10"
 102     connect sUpLeft10.Widget upLeft.Widget1
 103     new Slider sUpLeft11
 104       set sUpLeft11.Title "sUpLeft11"
 105     connect sUpLeft11.Widget upLeft.Widget2
 106     new Slider sUpLeft12
 107       set sUpLeft12.Title "sUpLeft12"
 108     connect sUpLeft12.Widget upLeft.Widget3
 109     new Slider sUpLeft13
 110       set sUpLeft13.Title "sUpLeft13"
 111     connect sUpLeft13.Widget upLeft.Widget4
 112
 113     new Slider sUpLeft14
 114       set sUpLeft14.Title "sUpLeft14"
 115     connect sUpLeft14.Widget upLeft.Widget5
 116     new Slider sUpLeft15
 117       set sUpLeft15.Title "sUpLeft15"
 118     connect sUpLeft15.Widget upLeft.Widget6
 119     new Slider sUpLeft16
 120       set sUpLeft16.Title "sUpLeft16"
 121     connect sUpLeft16.Widget upLeft.Widget7
 122     new Slider sUpLeft17
 123       set sUpLeft17.Title "sUpLeft17"
 124     connect sUpLeft17.Widget upLeft.Widget8
 125   connect upLeft.Widget up.Widget1
 126
 127   new LayoutLine upRight
 128     set upRight.Orientation H
 129     new Slider s1
 130     set s1.Orientation V
 131     set s1.Title "s1"
 132     new Slider s2
 133     set s2.Orientation V
 134     set s2.Title "s2"
 135     new Slider s3
 136     set s3.Orientation V
 137     set s3.Title "s3"
 138     new Slider s4
 139     set s4.Orientation V
 140     set s4.Title "s4"
 141     connect s1.Widget upRight.Widget1
 142     connect s2.Widget upRight.Widget2
 143     connect s3.Widget upRight.Widget3
 144     connect s4.Widget upRight.Widget4
 145   connect upRight.Widget up.Widget2
 146
 147 #------p i p e l i n e---------------------------------------
 148 #...
 149 #------------------------------------------------------------
 150
 151
 152 //graph
 153 #set main.WinDialog 1
 154 exec main
 155
 156
 157 set s1.BoxProcessMode 1
 158
 159
 160 //print rb=$rb.Out$\n
 161
 162 /*
 163 print s1=$s1.Out$\n
 164 print s2=$s2.Out$\n
 165 print s3=$s3.Out$\n
 166 print s4=$s4.Out$\n
 167 print sUpLeft=$sUpLeft.Out$\n
 168 print sDown=$sDown.Out$\n
 169 */
 170