load std
load wx
define GUIdouble wx
  kind DEFAULT_GUI
  category "complex box, widget"
  new InputText text
  input In text.In "Initial value"
  input Label text.Title "Label"
  output Out text.Out "Current value"
  output Widget text.Widget "Widget"
  output BoxChange text.BoxChange "BoxChange"
/*
//  IT IS A BAD IDEA TO USE A SLIDER : HOW TO SET THE RANGE AUTOMATICALLY ?
  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