+++ /dev/null
-description "Simple test of wx::LayoutTRight widgets"
-author "jean-pierre.roux@creatis.univ-lyon1.fr"
-category "test"
-
-load std
-include wx
-
-new LayoutTRight main
-
-new Slider s1
- set s1.Title "SliderLeft"
- set s1.Orientation V
-
-new Slider s2
- set s2.Title "SliderRigthUpt"
-
-new Slider s3
- set s3.Title "SliderRightDown"
-
-connect s1.Widget main.Widget1
-connect s2.Widget main.Widget2
-connect s3.Widget main.Widget3
-
-exec main
--- /dev/null
+description "More complicated example of wx::Split widgets"
+author "jean-pierre.roux@creatis.univ-lyon1.fr"
+category "test"
+
+load std
+load wx
+
+
+#----- I N T E R F A C E -------------------------------------
+
+// Just to see the mess when you want something not so simple...
+
+// upLeft upRight
+// ----------|-----------|
+// | | |
+// | | |
+// | | |
+// UP |---------| |
+// | | |
+// | | |
+// | | |
+// ---------- -----------------------
+// | |
+// | |
+// | |
+// | |
+// DOWN ----------|-----------|
+// | | |
+// | | |
+// | | | downDown
+// | | |
+// ----------------------
+new LayoutLine main
+ set main.Orientation V
+
+new LayoutLine up
+ set up.Orientation H
+
+new LayoutLine down
+ set down.Orientation V
+ new Slider s1Down
+ set s1Down.Title "s1Down"
+ connect s1Down.Widget down.Widget1
+
+ new LayoutLine downDown
+ set downDown.Orientation H
+ connect downDown.Widget down.Widget2
+
+ new RadioButton rb1
+ set rb1.Title "Rad But DownLeft"
+ set rb1.In0 "Choix 1"
+ set rb1.In1 "Choix 2"
+ set rb1.In2 "Choix 3"
+ set rb1.In3 "Choix 4"
+ set rb1.In 1
+ connect rb1.Widget downDown.Widget1
+
+
+ new RadioButton rb2
+ set rb2.Title "Rad But DownLeft"
+ set rb2.In0 "Choix 1"
+ set rb2.In1 "Choix 2"
+ set rb2.In2 "Choix 3"
+ set rb2.In3 "Choix 4"
+ set rb2.In 4
+ connect rb2.Widget downDown.Widget2
+
+
+ connect up.Widget main.Widget1
+ connect down.Widget main.Widget2
+
+ new LayoutLine upLeft
+
+ new Slider sUpLeft10
+ set sUpLeft10.Title "sUpLeft10"
+ connect sUpLeft10.Widget upLeft.Widget1
+ new Slider sUpLeft11
+ set sUpLeft11.Title "sUpLeft11"
+ connect sUpLeft11.Widget upLeft.Widget2
+ new Slider sUpLeft12
+ set sUpLeft12.Title "sUpLeft12"
+ connect sUpLeft12.Widget upLeft.Widget3
+ new Slider sUpLeft13
+ set sUpLeft13.Title "sUpLeft13"
+ connect sUpLeft13.Widget upLeft.Widget4
+
+ new Slider sUpLeft14
+ set sUpLeft14.Title "sUpLeft14"
+ connect sUpLeft14.Widget upLeft.Widget5
+ new Slider sUpLeft15
+ set sUpLeft15.Title "sUpLeft15"
+ connect sUpLeft15.Widget upLeft.Widget6
+ new Slider sUpLeft16
+ set sUpLeft16.Title "sUpLeft16"
+ connect sUpLeft16.Widget upLeft.Widget7
+ new Slider sUpLeft17
+ set sUpLeft17.Title "sUpLeft17"
+ connect sUpLeft17.Widget upLeft.Widget8
+ connect upLeft.Widget up.Widget1
+
+ new LayoutLine upRight
+ set upRight.Orientation H
+ new Slider s1
+ set s1.Orientation V
+ set s1.Title "s1"
+ new Slider s2
+ set s2.Orientation V
+ set s2.Title "s2"
+ new Slider s3
+ set s3.Orientation V
+ set s3.Title "s3"
+ new Slider s4
+ set s4.Orientation V
+ 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
+*/
+
--- /dev/null
+description "More complicated example of wx::Split widgets"
+author "jean-pierre.roux@creatis.univ-lyon1.fr"
+category "test"
+
+load std
+load wx
+
+
+#----- I N T E R F A C E -------------------------------------
+
+// Just to see the mess when you want something not so simple...
+
+// upLeft upRight
+// ----------|-----------|
+// | | |
+// | | |
+// | | |
+// UP |---------| |
+// | | |
+// | | |
+// | | |
+// ---------- -----------------------
+// | |
+// | |
+// | |
+// | |
+// DOWN ----------|-----------|
+// | | |
+// | | |
+// | | | downDown
+// | | |
+// ----------------------
+new LayoutSplit main
+ set main.Orientation V
+
+new LayoutSplit up
+set up.Orientation H
+
+new LayoutSplit down
+ set down.Orientation V
+ new Slider s1Down
+ set s1Down.Title "s1Down"
+ connect s1Down.Widget down.Widget1
+
+ new LayoutSplit downDown
+ set downDown.Orientation H
+
+ connect downDown.Widget down.Widget2
+
+ new RadioButton rb1
+ set rb1.Title "Rad But DownLeft"
+ set rb1.In0 "Choix 1"
+ set rb1.In1 "Choix 2"
+ set rb1.In2 "Choix 3"
+ set rb1.In3 "Choix 4"
+ set rb1.In 1
+ connect rb1.Widget downDown.Widget1
+
+
+ new RadioButton rb2
+ set rb2.Title "Rad But DownLeft"
+ set rb2.In0 "Choix 1"
+ set rb2.In1 "Choix 2"
+ set rb2.In2 "Choix 3"
+ set rb2.In3 "Choix 4"
+ set rb2.In 4
+ connect rb2.Widget downDown.Widget2
+
+
+ connect up.Widget main.Widget1
+ connect down.Widget main.Widget2
+
+
+ new LayoutSplit upLeft
+ set upLeft.Proportion 80
+ // only 2 objetsare allowed here
+ 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 H
+ new Slider s1
+ set s1.Orientation V
+ set s1.Title "s1"
+ new Slider s2
+ set s2.Orientation V
+ set s2.Title "s2"
+ new Slider s3
+ set s3.Orientation V
+ set s3.Title "s3"
+ new Slider s4
+ set s4.Orientation V
+ 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
+*/
+
+++ /dev/null
-description "Simple test of wx::Split 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 LayoutSplit main
- set main.Orientation V
-
-new LayoutSplit up
-set up.Orientation H
-
-new LayoutSplit 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 Down"
- 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 LayoutSplit 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 H
- new Slider s1
- set s1.Orientation V
- set s1.Title "s1"
- new Slider s2
- set s2.Orientation V
- set s2.Title "s2"
- new Slider s3
- set s3.Orientation V
- set s3.Title "s3"
- new Slider s4
- set s4.Orientation V
- 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
-*/
-