packages/wx/bbs/boxes/bbGUIdouble.bbs

   1 load std
   2 load wx
   3 define GUIdouble wx
   4   kind DEFAULT_GUI
   5   new Slider slider
   6   set slider.Label true
   7 #  set slider.ReactiveOnTrack true
   8   set slider.ChangeResolution true
   9   set slider.Max 100
  10   new Div div
  11   set div.In2 100
  12   connect slider.Out div.In1
  13   new Mul mul
  14   set mul.In2 100
  15   connect mul.Out slider.In
  16   input In mul.In1 "Initial position"
  17   input Label slider.Title "Label"
  18   output Out div.Out "Current position"
  19   output Widget slider.Widget "Widget"
  20   output BoxChange slider.BoxChange "BoxChange"
  21 endefine