description "Simple test of  wx::Sizer widgets"
author "jean-pierre.roux@creatis.univ-lyon1.fr"
category "test"

load std
load wx

new Sizer main
#set main.Orientation 1

new Sizer up
set up.Orientation 0

new Sizer down
set down.Orientation 1

new Sizer upRight
set upRight.Orientation 0

new Sizer upLeft

connect up.Widget   main.Widget1
connect down.Widget main.Widget2

connect upLeft.Widget  up.Widget1
connect upRight.Widget up.Widget2

# -- todo : add it, again later
# --        (when RadioButton exists again)

new RadioButton rb
set rb.Title "Rad But"
set rb.In0 "Choix 1"
set rb.In1 "Choix 2"
set rb.In2 "Choix 3"
set rb.In3 "Choix 4"
set rb.In 1


new Slider sUpLeft
new Slider sDown

new Slider s1
set s1.Orientation 1
set s1.Title "s1"
new Slider s2
set s2.Orientation 1
set s2.Title "s2"
new Slider s3
set s3.Orientation 1
set s3.Title "s3"
new Slider s4
set s4.Orientation 1
set s4.Title "s4"

connect s1.Widget upRight.Widget1 
connect s2.Widget upRight.Widget2 
connect s3.Widget upRight.Widget3 
connect s4.Widget upRight.Widget4 

connect sUpLeft.Widget upLeft.Widget1
connect rb.Widget      down.Widget2
connect sDown.Widget   down.Widget1

#graph
#set main.WinDialog 1
exec main

set s1.BoxProcessMode 1

print rb=$rb.Out$\n
print s1=$s1.Out$\n
print s2=$s2.Out$\n
print s3=$s3.Out$\n
print s4=$s4.Out$\n
print sUpLeft=$sUpLeft.Out$\n
print sDown=$sDown.Out$\n