packages/wx/bbs/appli/exampleSynchronizeWidgets.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 "Show how to synchronize multiple sliders (when one changes all the others are updated)"
  28 author "laurent.guigues@creatis.insa-lyon.fr"
  29 category "example"
  30
  31 load wx
  32 load std
  33
  34 new Slider slider1
  35 new Slider slider2
  36 new Slider slider3
  37 new Slider slider4
  38 new LayoutLine layout
  39 new SharedMemory position
  40
  41 set position.In 20
  42 set position.BoxProcessMode Reactive
  43
  44 connect slider1.Out position.In1
  45 connect slider2.Out position.In2
  46 connect slider3.Out position.In3
  47 connect slider4.Out position.In4
  48 connect position.Out slider1.In
  49 connect position.Out slider2.In
  50 connect position.Out slider3.In
  51 connect position.Out slider4.In
  52
  53 connect slider1.Widget layout.Widget1
  54 connect slider2.Widget layout.Widget2
  55 connect slider3.Widget layout.Widget3
  56 connect slider4.Widget layout.Widget4
  57
  58 exec layout
  59