packages/wx/bbs/boxes/bbGUIint.bbs

   1 load std
   2 load wx
   3 define GUIint 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   input In slider.In "Initial position"
  10   input Label slider.Title "Label"
  11   output Out slider.Out "Current position"
  12   output Widget slider.Widget "Widget"
  13   output BoxChange slider.BoxChange "BoxChange"
  14 endefine