-description "Simple test of wx::Sizer widgets"
+description "Simple test of wx::Split widgets"
author "jean-pierre.roux@creatis.univ-lyon1.fr"
category "test"
new Split main
- set main.Orientation H
+ set main.Orientation V
-new Sizer up
-set up.Orientation 0
+new Split up
+set up.Orientation H
-new Sizer down
- set down.Orientation 1
+new Split down
+ set down.Orientation V
new Slider sDown
+ set sDown.Title "sDown"
connect sDown.Widget down.Widget1
new RadioButton rb
- set rb.Title "Rad But"
+ set rb.Title "Rad But Down"
set rb.In0 "Choix 1"
set rb.In1 "Choix 2"
set rb.In2 "Choix 3"
new Split upLeft
- #set upLeft.Proportion 80
- new Slider eed
- connect eed.Widget upLeft.Widget1
- new Slider sUpLeft
- connect sUpLeft.Widget upLeft.Widget2
+ set upLeft.Proportion 80
+ new Slider sUpLeft1
+ set sUpLeft1.Title "sUpLeft1"
+ connect sUpLeft1.Widget upLeft.Widget1
+ new Slider sUpLeft2
+ set sUpLeft2.Title "sUpLeft2"
+ connect sUpLeft2.Widget upLeft.Widget2
connect upLeft.Widget up.Widget1
new Sizer upRight
- set upRight.Orientation 0
+ set upRight.Orientation H
new Slider s1
- set s1.Orientation 1
+ set s1.Orientation V
set s1.Title "s1"
new Slider s2
- set s2.Orientation 1
+ set s2.Orientation V
set s2.Title "s2"
new Slider s3
- set s3.Orientation 1
+ set s3.Orientation V
set s3.Title "s3"
new Slider s4
- set s4.Orientation 1
+ set s4.Orientation V
set s4.Title "s4"
connect s1.Widget upRight.Widget1
connect s2.Widget upRight.Widget2
#------------------------------------------------------------
-graph
+//graph
#set main.WinDialog 1
exec main
+
set s1.BoxProcessMode 1
-print rb=$rb.Out$\n
+
+//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
-
+*/