description "A tour of wx boxes"
author "laurent.guigues@creatis.insa-lyon.fr"
category "demo"

include wx
#==================================================================
print " "
print "===================================================="
print "A Slider whose output is plugged into an OutputText"
message echo 2

# Create the Slider
new Slider     slider
# Make it signal it has changed when it is moved (not only released)
set slider.ReactiveOnTrack 1
# Create the OutputText
new OutputText text
# Add the Layout
new LayoutLine main
# Make it a Dialog 
set main.WinDialog true

# Setting up the Layout :
connect slider.Widget    main.Widget1
connect text.Widget      main.Widget2

# The output of the slider is plugged into the input of the text
# To do this, we must have an int to string adaptor, hence load std
load std
connect slider.Out       text.In

# Any change of the slider must update the text
connect slider.BoxChange text.BoxExecute

# Go!
exec main

#==================================================================
message echo 0
clear
print " "
print "===================================================="
print "Splitting a window into two adjustable parts"
#==================================================================
message echo 2

new LayoutSplit main
set main.WinDialog true

exec main

#==================================================================
message echo 0
clear
#==================================================================