- Normalize scripts

[bbtk.git] / packages / wx / bbs / appli / testSplitInSplit.bbs

diff --git a/packages/wx/bbs/appli/testSplitInSplit.bbs b/packages/wx/bbs/appli/testSplitInSplit.bbs
index 8e7e11e2521863535715a5b182ceac5ade4a106f..5485f3ebbc0c5fc6fb5da032acd8d2fd81f4333b 100644 (file)
--- a/packages/wx/bbs/appli/testSplitInSplit.bbs
+++ b/packages/wx/bbs/appli/testSplitInSplit.bbs
@@ -1,80 +1,91 @@
-description "Simple test of wx::Sizer widgets"
+description "Simple test of wx::Split widgets"
 author "jean-pierre.roux@creatis.univ-lyon1.fr"
 category "test"
 
 load std
 load wx
 
-new Split main
-#set main.Orientation 1
 
-new Sizer up
-set up.Orientation 0
+#----- I N T E R F A C E  -------------------------------------
 
-new Sizer down
-set down.Orientation 1
 
-new Sizer upRight
-set upRight.Orientation 0
+new Split main
+ set main.Orientation V
+
+new Split up
+set up.Orientation H
+
+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 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
 
-new Split upLeft
-#set upLeft.Proportion 80
 
 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
+
+  new Split 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 Sizer 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 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
-
+*/