load std
load wx
define GUIdouble wx
  kind DEFAULT_GUI
  new Slider slider
  set slider.Label true
#  set slider.ReactiveOnTrack true
  set slider.ChangeResolution true
  set slider.Max 100
  new Div div
  set div.In2 100
  connect slider.Out div.In1
  new Mul mul
  set mul.In2 100
  connect mul.Out slider.In
  input In mul.In1 "Initial position"
  input Label slider.Title "Label"
  output Out div.Out "Current position"
  output Widget slider.Widget "Widget"
  output BoxChange slider.BoxChange "BoxChange"
endefine