packages/wx/bbs/appli/exampleComplexSlider.bbs

   1 description "More complex test of wx::Slider widget"
   2 author "jpr[at]creatis[dot]insa[dash]lyon[dot]fr"
   3 category "example"
   4
   5 load wx
   6 // std needed for <std::string> to <int> adaptor
   7 load std
   8
   9 new LayoutLine main
  10    set main.Orientation H
  11 new LayoutLine left
  12 new LayoutLine right
  13    set right.Orientation H
  14 connect left.Widget  main.Widget1
  15 connect right.Widget main.Widget2
  16
  17 // =============================================================
  18
  19 new Slider s1
  20    set s1.Title  "s1 : Simple Slider,  Init = 33, O.Text : Reactive"
  21    set s1.In 33
  22
  23 new OutputText o1
  24    set o1.Title "Sortie s1"
  25    set o1.BoxProcessMode Reactive
  26
  27 connect s1.Widget left.Widget1
  28 connect s1.Out o1.In
  29
  30 // -----------------------------------
  31 new Slider s2
  32    set s2.Min -110
  33    set s2.Max 140
  34    set s2.In -1
  35    set s2.Title "s2 : Slider with Min, Max, ReactiveOnTrack, O.Text : Reactive"
  36    set s2.ReactiveOnTrack 1
  37
  38 new OutputText o2
  39    set o2.Title "Sortie s2"
  40    set o2.BoxProcessMode Reactive
  41 connect s2.Widget left.Widget2
  42 connect s2.Out o2.In
  43
  44 // -----------------------------------
  45 new Slider s3
  46    set s3.Min 12
  47    set s3.Max 123456
  48    set s3.Title "s3 : Slider with ChangeResolution, Always, O.Text : Reactive"
  49    set s3.ChangeResolution True
  50
  51 new OutputText o3
  52    set o3.Title "Sortie s3"
  53    set o3.BoxProcessMode Reactive
  54
  55 connect s3.Widget left.Widget3
  56 connect s3.Out o3.In
  57
  58 // -----------------------------------
  59
  60 new Add a
  61    connect s1.Out a.In1
  62    connect s2.Out a.In2
  63    set a.BoxProcessMode Reactive
  64
  65 new Slider s4
  66    set s4.Title "s4 : Slider pos s1+s2"
  67    set s4.BoxProcessMode Reactive
  68 connect a.Out s4.In
  69 # Warning : 'In' is the initial position, nothing more
  70 #            Don't try to modify it later!
  71
  72 connect s4.Widget left.Widget4
  73
  74 new OutputText o4
  75    set o4.Title "Entree s4 (Add s1, s2)"
  76    set o4.BoxProcessMode Reactive
  77 connect a.Out o4.In
  78
  79 // -----------------------------------
  80 connect o1.Widget left.Widget5
  81 connect o2.Widget left.Widget6
  82 connect o3.Widget left.Widget7
  83 connect o4.Widget left.Widget8
  84
  85 // =======================================================
  86
  87 new OutputText ot11
  88    set ot11.In  "Simple Slider"
  89 connect ot11.Widget right.Widget1
  90 new Slider s11
  91    set s11.Orientation V
  92 connect s11.Widget right.Widget2
  93
  94 new OutputText ot12
  95    set ot12.In "Slider with Min, Max"
  96    connect ot12.Widget right.Widget3
  97 new Slider s12
  98    set s12.Orientation V
  99    set s12.Min -110
 100    set s12.Max 140
 101 connect s12.Widget right.Widget4
 102
 103 new OutputText ot13
 104    set ot13.In "Slider with ChangeResolution"
 105    connect ot13.Widget right.Widget5
 106 new Slider s13
 107    set s13.Orientation V
 108    set s13.Min 230
 109    set s13.Max 1140
 110    set s13.ChangeResolution True
 111 connect s13.Widget right.Widget6
 112
 113 // ---------------------------------------------------
 114
 115 new CommandButton cmdBtn
 116    set cmdBtn.In "exec s4; exec main"
 117    set cmdBtn.Label "Refresh main"
 118 connect cmdBtn.Widget left.Widget9
 119
 120 exec main