From fe455ba4df3ec334ad809d82a51f261f1edcd343 Mon Sep 17 00:00:00 2001 From: jean-pierre roux Date: Thu, 14 Feb 2008 12:14:49 +0000 Subject: [PATCH] Add scripts --- packages/wx/bbs/appli/testSizerInSizer.bbs | 77 ++++++++++++++++++ packages/wx/bbs/appli/testSplitInSplit.bbs | 80 +++++++++++++++++++ .../wx/bbs/appli/testSplitOrientation.bbs | 30 +++++++ 3 files changed, 187 insertions(+) create mode 100644 packages/wx/bbs/appli/testSizerInSizer.bbs create mode 100644 packages/wx/bbs/appli/testSplitInSplit.bbs create mode 100644 packages/wx/bbs/appli/testSplitOrientation.bbs diff --git a/packages/wx/bbs/appli/testSizerInSizer.bbs b/packages/wx/bbs/appli/testSizerInSizer.bbs new file mode 100644 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 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 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 + -- 2.47.1