packages/wx/bbs/appli/exampleSlider.bbs

   1 description "Simple use of wx::Slider widget"
   2 author "jpr@creatis.insa-lyon.fr"
   3 category "example"
   4
   5 # Load the packages
   6 load std
   7 load wx
   8
   9 # Create the Objects
  10
  11 new LayoutLine layout
  12
  13 // Initialisations with Set
  14 //---------------------------
  15
  16 new Slider     slider
  17  set slider.ReactiveOnTrack 1
  18  set slider.Min 10
  19  set slider.Max 100
  20  set slider.In 25
  21  set slider.Label 1
  22  set slider.Orientation H
  23  set slider.Title "initialisations with Set"
  24 new OutputText text
  25
  26 new Add a1
  27    set a1.In1 5
  28
  29 new Add a2
  30    set a2.In1 5
  31
  32 new Add a3
  33    set a3.In1 5
  34
  35 // Initialisations with Connect
  36 //---------------------------------
  37 new Slider     slider2
  38  set slider2.ReactiveOnTrack 1
  39
  40  set a1.In2 5
  41  connect a1.Out slider2.Min
  42
  43  set a2.In2 95
  44  connect a2.Out slider2.Max
  45
  46  set a3.In2 20
  47  connect a3.Out slider2.In
  48
  49  set slider2.Label 1
  50  set slider2.Orientation H
  51  set slider2.Title "initialisations with Connect"
  52 new OutputText text2
  53
  54
  55 # Graphical pipeline
  56 connect slider.Widget    layout.Widget1
  57 connect text.Widget      layout.Widget2
  58
  59 connect slider2.Widget    layout.Widget3
  60 connect text2.Widget      layout.Widget4
  61
  62 # Execution pipeline
  63 connect slider.BoxChange text.BoxExecute
  64 connect slider.Out       text.In
  65
  66 connect slider2.BoxChange text2.BoxExecute
  67 connect slider2.Out       text2.In
  68
  69 # Go!
  70 exec layout