Add 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
new file mode 100644 (file)
index 0000000..8e7e11e
--- /dev/null
+++ b/packages/wx/bbs/appli/testSplitInSplit.bbs
@@ -0,0 +1,80 @@
+description "Simple test of wx::Sizer 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
+
+new Sizer down
+set down.Orientation 1
+
+new Sizer upRight
+set upRight.Orientation 0
+
+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
+#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
+
+