packages/wx/bbs/boxes/bbGUIdouble.bbs

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