+++ /dev/null
-description "Simple test of wx::Sizer widgets"
-author "jean-pierre.roux@creatis.univ-lyon1.fr"
-category "test"
-
-load std
-load wx
-
-
-#----- I N T E R F A C E -------------------------------------
-
-
-new LayoutLine main
- set main.Orientation H
-
-new LayoutLine up
-set up.Orientation 0
-
-new LayoutLine down
- set down.Orientation 1
- new Slider sDown
- set sDown.Title "sDown"
- connect sDown.Widget down.Widget1
- 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
- connect rb.Widget down.Widget2
-
-
-connect up.Widget main.Widget1
-connect down.Widget main.Widget2
-
-
- new LayoutLine upLeft
- #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 LayoutLine upRight
- set upRight.Orientation 0
- 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 upRight.Widget up.Widget2
-
-#------p i p e l i n e---------------------------------------
-#...
-#------------------------------------------------------------
-
-
-//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
-*/
-