packages/wx/bbs/appli/exampleLayoutLine_Orientation.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 "Simple test 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 new LayoutLine main
  35  set main.Orientation V
  36 new LayoutLine Sizer2
  37
  38 new Slider s1
  39    set s1.Title "SliderUp"
  40 new Slider s2
  41    set s2.Title "SliderDownLeft"
  42 new Slider s3
  43    set s3.Title "SliderDownRight"
  44
  45 connect s1.Widget     main.Widget1
  46 connect Sizer2.Widget main.Widget2
  47
  48 set Sizer2.Orientation H
  49 connect s2.Widget Sizer2.Widget1
  50 connect s3.Widget Sizer2.Widget2
  51
  52 print s1=$s1.Out$\n
  53 print s2=$s2.Out$\n
  54 print s3=$s3.Out$\n
  55
  56 exec main