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 new Slider     slider
  16  set slider.ReactiveOnTrack 1
  17  set slider.Min 10
  18  set slider.Max 100
  19  set slider.In 25
  20  set slider.Label 1
  21  set slider.Orientation H
  22  set slider.Title "initialisations with Set"
  23 new OutputText text
  24
  25 new Add a
  26    set a.In1 5
  27
  28 // Initialisations with Connect
  29
  30 new Slider     slider2
  31  set slider2.ReactiveOnTrack 1
  32  set a.In2 5
  33  connect a.Out slider2.Min
  34  set a.In2 95
  35  connect a.Out slider2.Max
  36  set a.In2 20
  37  connect a.Out slider2.In
  38  set slider2.Label 1
  39  set slider2.Orientation H
  40  set slider2.Title "initialisations with Connect"
  41 new OutputText text2
  42
  43
  44 # Graphical pipeline
  45 connect slider.Widget    layout.Widget1
  46 connect text.Widget      layout.Widget2
  47
  48 connect slider2.Widget    layout.Widget3
  49 connect text2.Widget      layout.Widget4
  50
  51 # Execution pipeline
  52 connect slider.BoxChange text.BoxExecute
  53 connect slider.Out       text.In
  54
  55 connect slider2.BoxChange text2.BoxExecute
  56 connect slider2.Out       text2.In
  57
  58 # Go!
  59 exec layout