packages/wx/bbs/boxes/bbGUIdouble.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 load std
  28 load wx
  29 define GUIdouble wx
  30   kind DEFAULT_GUI
  31   category "complex box, widget"
  32   new InputText text
  33   input In text.In "Initial value"
  34   input Label text.Title "Label"
  35   output Out text.Out "Current value"
  36   output Widget text.Widget "Widget"
  37   output BoxChange text.BoxChange "BoxChange"
  38 /*
  39 //  IT IS A BAD IDEA TO USE A SLIDER : HOW TO SET THE RANGE AUTOMATICALLY ?
  40   new Slider slider
  41   set slider.Label true
  42 #  set slider.ReactiveOnTrack true
  43   set slider.ChangeResolution true
  44   set slider.Max 100
  45   new Div div
  46   set div.In2 100
  47   connect slider.Out div.In1
  48   new Mul mul
  49   set mul.In2 100
  50   connect mul.Out slider.In
  51   input In mul.In1 "Initial position"
  52   input Label slider.Title "Label"
  53   output Out div.Out "Current position"
  54   output Widget slider.Widget "Widget"
  55   output BoxChange slider.BoxChange "BoxChange"
  56 */
  57 endefine