Add scripts

diff --git a/packages/wx/bbs/appli/testSizerInSizer.bbs b/packages/wx/bbs/appli/testSizerInSizer.bbs
new file mode 100644 (file)
index 0000000..3a3eed7
--- /dev/null
+++ b/packages/wx/bbs/appli/testSizerInSizer.bbs
@@ -0,0 +1,77 @@
+description "Simple test of  wx::Sizer widgets"
+author "jean-pierre.roux@creatis.univ-lyon1.fr"
+category "test"
+
+load std
+load wx
+
+new Sizer 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 Sizer upLeft
+
+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

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
+
+

diff --git a/packages/wx/bbs/appli/testSplitOrientation.bbs b/packages/wx/bbs/appli/testSplitOrientation.bbs
new file mode 100644 (file)
index 0000000..034d1c2
--- /dev/null
+++ b/packages/wx/bbs/appli/testSplitOrientation.bbs
@@ -0,0 +1,30 @@
+description "Simple test of wx::Split widgets"
+author "jean-pierre.roux@creatis.univ-lyon1.fr"
+category "test"
+
+load std
+load wx
+
+new Slider s1
+new Slider s2
+new Slider s3
+
+new Split split1
+new Split split2
+
+connect s1.WinParent     split1.WinChild 
+connect split2.WinParent split1.WinChild 
+
+set split2.Orientation 1
+connect s2.WinParent split2.WinChild 
+connect s3.WinParent split2.WinChild 
+
+#set s1.BoxProcessMode 2
+#set s2.BoxProcessMode 2
+
+#set split1.WinDialog true
+
+print s1=$s1.Out$\n
+print s2=$s2.Out$\n
+print s3=$s3.Out$\n
+