packages/wx/bbs/boxes/bbGUIdouble.bbs

   1 load std
   2 load wx
   3 define GUIdouble wx
   4   kind DEFAULT_GUI
   5   new InputText text
   6   input In text.In "Initial value"
   7   input Label text.Title "Label"
   8   output Out text.Out "Current value"
   9   output Widget text.Widget "Widget"
  10   output BoxChange text.BoxChange "BoxChange"
  11 /*
  12 //  IT IS A BAD IDEA TO USE A SLIDER : HOW TO SET THE RANGE AUTOMATICALLY ?
  13   new Slider slider
  14   set slider.Label true
  15 #  set slider.ReactiveOnTrack true
  16   set slider.ChangeResolution true
  17   set slider.Max 100
  18   new Div div
  19   set div.In2 100
  20   connect slider.Out div.In1
  21   new Mul mul
  22   set mul.In2 100
  23   connect mul.Out slider.In
  24   input In mul.In1 "Initial position"
  25   input Label slider.Title "Label"
  26   output Out div.Out "Current position"
  27   output Widget slider.Widget "Widget"
  28   output BoxChange slider.BoxChange "BoxChange"
  29 */
  30 endefine