From b6cfbf597729f7796db6f8a7eaab0420a434fca4 Mon Sep 17 00:00:00 2001 From: jean-pierre roux Date: Mon, 18 Feb 2008 17:36:26 +0000 Subject: [PATCH] Add some examples --- packages/wx/bbs/appli/exLayoutTRight.bbs | 24 --- .../bbs/appli/exempleComplexLinesInRows.bbs | 144 ++++++++++++++++++ .../bbs/appli/exempleComplexSplitInSplit.bbs | 130 ++++++++++++++++ ...LayoutTDown.bbs => exempleLayoutTDown.bbs} | 0 ...LayoutTLeft.bbs => exempleLayoutTLeft.bbs} | 0 .../{exLayoutTUp.bbs => exempleLayoutTUp.bbs} | 0 packages/wx/bbs/appli/testSplitInSplit.bbs | 91 ----------- 7 files changed, 274 insertions(+), 115 deletions(-) delete mode 100644 packages/wx/bbs/appli/exLayoutTRight.bbs create mode 100644 packages/wx/bbs/appli/exempleComplexLinesInRows.bbs create mode 100644 packages/wx/bbs/appli/exempleComplexSplitInSplit.bbs rename packages/wx/bbs/appli/{exLayoutTDown.bbs => exempleLayoutTDown.bbs} (100%) rename packages/wx/bbs/appli/{exLayoutTLeft.bbs => exempleLayoutTLeft.bbs} (100%) rename packages/wx/bbs/appli/{exLayoutTUp.bbs => exempleLayoutTUp.bbs} (100%) delete mode 100644 packages/wx/bbs/appli/testSplitInSplit.bbs diff --git a/packages/wx/bbs/appli/exLayoutTRight.bbs b/packages/wx/bbs/appli/exLayoutTRight.bbs deleted file mode 100644 index 26600cb..0000000 --- a/packages/wx/bbs/appli/exLayoutTRight.bbs +++ /dev/null @@ -1,24 +0,0 @@ -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 diff --git a/packages/wx/bbs/appli/exempleComplexLinesInRows.bbs b/packages/wx/bbs/appli/exempleComplexLinesInRows.bbs new file mode 100644 index 0000000..1d426fc --- /dev/null +++ b/packages/wx/bbs/appli/exempleComplexLinesInRows.bbs @@ -0,0 +1,144 @@ +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 +*/ + diff --git a/packages/wx/bbs/appli/exempleComplexSplitInSplit.bbs b/packages/wx/bbs/appli/exempleComplexSplitInSplit.bbs new file mode 100644 index 0000000..62b4f0e --- /dev/null +++ b/packages/wx/bbs/appli/exempleComplexSplitInSplit.bbs @@ -0,0 +1,130 @@ +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 +*/ + diff --git a/packages/wx/bbs/appli/exLayoutTDown.bbs b/packages/wx/bbs/appli/exempleLayoutTDown.bbs similarity index 100% rename from packages/wx/bbs/appli/exLayoutTDown.bbs rename to packages/wx/bbs/appli/exempleLayoutTDown.bbs diff --git a/packages/wx/bbs/appli/exLayoutTLeft.bbs b/packages/wx/bbs/appli/exempleLayoutTLeft.bbs similarity index 100% rename from packages/wx/bbs/appli/exLayoutTLeft.bbs rename to packages/wx/bbs/appli/exempleLayoutTLeft.bbs diff --git a/packages/wx/bbs/appli/exLayoutTUp.bbs b/packages/wx/bbs/appli/exempleLayoutTUp.bbs similarity index 100% rename from packages/wx/bbs/appli/exLayoutTUp.bbs rename to packages/wx/bbs/appli/exempleLayoutTUp.bbs diff --git a/packages/wx/bbs/appli/testSplitInSplit.bbs b/packages/wx/bbs/appli/testSplitInSplit.bbs deleted file mode 100644 index e662920..0000000 --- a/packages/wx/bbs/appli/testSplitInSplit.bbs +++ /dev/null @@ -1,91 +0,0 @@ -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 -*/ - -- 2.47.1