#----- 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 H
+ set main.Orientation V
new LayoutLine up
-set up.Orientation 0
+ set up.Orientation H
new LayoutLine down
- set down.Orientation 1
- new Slider sDown
- set sDown.Title "sDown"
- connect sDown.Widget down.Widget1
- 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
- connect rb.Widget down.Widget2
-
-
-connect up.Widget main.Widget1
-connect down.Widget main.Widget2
-
+ 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
- #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
+
+ 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 0
+ set upRight.Orientation H
new Slider s1
- set s1.Orientation 1
+ set s1.Orientation V
set s1.Title "s1"
new Slider s2
- set s2.Orientation 1
+ set s2.Orientation V
set s2.Title "s2"
new Slider s3
- set s3.Orientation 1
+ set s3.Orientation V
set s3.Title "s3"
new Slider s4
- set s4.Orientation 1
+ set s4.Orientation V
set s4.Title "s4"
connect s1.Widget upRight.Widget1
connect s2.Widget upRight.Widget2
#----- 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
+// | | |
+// ----------------------
+//
+// Better use a mix of LayoutTxxx (xxx = Up, Down, Right, Left)!
+//
+//
+// TODO : add same structure using only LayoutTxxx
+
new LayoutSplit main
set main.Orientation V
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 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 objets are 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
description "Simple test of wx::RadioButton widget"
-author "jean-pierre.roux@creatis.insa-lyon.fr"
-category "example;widget"
+author "jean-pierre.roux@creatis.univ-lyon1.fr"
+category "example"
load wx
load std
-print "Ceci est un essai de RadioButton"
+print "Simple check of RadioButton"
new RadioButton rb
-set rb.Title "My Radio Button"
-set rb.In0 "This"
-set rb.In1 "Is"
-set rb.In2 "Not"
-set rb.In4 "A"
-set rb.In5 "Love"
-# Here we put "Song" in In9 : if it is selected, the output is '9'
-set rb.In9 "Song"
-set rb.In 2
+//
+// Note : missing positions are dealt with
+//
+ set rb.Title "My Radio Fantastic RadioButton"
+ set rb.In0 "Zero/Cero/Cepher"
+ set rb.In1 "One/Uno/Wahed"
+ set rb.In2 "Two/Dos/Thayn"
+ set rb.In4 "Four/Quatro/Arbaa"
+ set rb.In5 "Five/Cinco/Khamsin"
+ set rb.In8 "Twelve/Ocho/Thamanya"
+ set rb.In 2
print $rb.Out$\n
-//new StaticText t
-//connect rb.Out t.In
-//connect rb.BoxChange t.BoxExecute
+new OutputText t
+ set t.Title "This is what you clicked"
+ set t.WinHeight 80
+ set t.WinWidth 500
+
+connect rb.Out t.In
+connect rb.BoxChange t.BoxExecute
+++ /dev/null
-description "More complicated example of wx::Split widgets"
-author "jean-pierre.roux@creatis.univ-lyon1.fr"
-category "example"
-
-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
-*/
-
+++ /dev/null
-description "More complicated example of wx::Split widgets"
-author "jean-pierre.roux@creatis.univ-lyon1.fr"
-category "example"
-
-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
-// | | |
-// ----------------------
-//
-// Better use a mix of LayoutTxxx (xxx = Up, Down, Right, Left)!
-//
-//
-// TODO : add same structure using only LayoutTxxx
-
-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
-*/
-
+++ /dev/null
-description "Simple test of wx::LayoutLine widgets"
-author "jean-pierre.roux@creatis.univ-lyon1.fr"
-category "exemple"
-
-load std
-load wx
-
-new LayoutLine main
- set main.Orientation V
-new LayoutLine Sizer2
-
-new Slider s1
- set s1.Title "SliderUp"
-new Slider s2
- set s2.Title "SliderDownLeft"
-new Slider s3
- set s3.Title "SliderDownRight"
-
-connect s1.Widget main.Widget1
-connect Sizer2.Widget main.Widget2
-
-set Sizer2.Orientation H
-connect s2.Widget Sizer2.Widget1
-connect s3.Widget Sizer2.Widget2
-
-print s1=$s1.Out$\n
-print s2=$s2.Out$\n
-print s3=$s3.Out$\n
-
-exec main
+++ /dev/null
-description "Simple test of wx::LayoutLine widgets"
-author "jean-pierre.roux [at] creatis [dot] univ [dash] lyon1 [dot] fr"
-category "exemple"
-
-load std
-load wx
-
-new LayoutSplit main
- set main.Orientation V
-new LayoutSplit split2
-
-new Slider s1
- set s1.Title "SliderUp"
-new Slider s2
- set s2.Title "SliderDownLeft"
-new Slider s3
- set s3.Title "SliderDownRight"
-
-connect s1.Widget main.Widget1
-connect split2.Widget main.Widget2
-
-set split2.Orientation H
-connect s2.Widget split2.Widget1
-connect s3.Widget split2.Widget2
-
-print s1=$s1.Out$\n
-print s2=$s2.Out$\n
-print s3=$s3.Out$\n
-
-exec main
+++ /dev/null
-description "Simple test of wx::LayoutTDown widgets"
-author "jean-pierre.roux@creatis.univ-lyon1.fr"
-category "example"
-
-load std
-include wx
-
-new LayoutTDown main
-
-new Slider s1
- set s1.Title "SliderUpLeft"
-
-new Slider s2
- set s2.Title "SliderUpRight"
-
-new Slider s3
- set s3.Title "SliderDown"
-
-connect s1.Widget main.Widget1
-connect s2.Widget main.Widget2
-connect s3.Widget main.Widget3
-
-exec main
+++ /dev/null
-description "Simple test of wx::LayoutTLeft widgets"
-author "jean-pierre.roux@creatis.univ-lyon1.fr"
-category "example"
-
-load std
-include wx
-
-new LayoutTLeft 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
+++ /dev/null
-description "Simple test of wx::LayoutTUp widgets"
-author "jean-pierre.roux@creatis.univ-lyon1.fr"
-category "example"
-
-load std
-include wx
-
-new LayoutTUp main
-
-new Slider s1
- set s1.Title "SliderUp"
-
-new Slider s2
- set s2.Title "SliderDownLeft"
-
-new Slider s3
- set s3.Title "SliderDownRight"
-
-connect s1.Widget main.Widget1
-connect s2.Widget main.Widget2
-connect s3.Widget main.Widget3
-
-exec main
+++ /dev/null
-description "Simple test of wx::RadioButton widgets"
-author "jean-pierre.roux@creatis.univ-lyon1.fr"
-category "exemple"
-
-load wx
-load std
-
-print "Simple check of RadioButton"
-new RadioButton rb
-//
-// Note : missing positions are dealt with
-//
- set rb.Title "My Radio Fantastic RadioButton"
- set rb.In0 "Zero/Cero/Cepher"
- set rb.In1 "One/Uno/Wahed"
- set rb.In2 "Two/Dos/Thayn"
- set rb.In4 "Four/Quatro/Arbaa"
- set rb.In5 "Five/Cinco/Khamsin"
- set rb.In8 "Twelve/Ocho/Thamanya"
- set rb.In 2
-
-print $rb.Out$\n
-
-new OutputText t
- set t.Title "This is what you clicked"
- set t.WinHeight 80
- set t.WinWidth 500
-
-
-
-connect rb.Out t.In
-connect rb.BoxChange t.BoxExecute
+++ /dev/null
-description "Simple test of wx::LayoutLine widget"
-author "eduardo.davila@creatis.insa-lyon.fr"
-category "example"
-
-load wx
-
-new Slider slider1
-new Slider slider2
-new LayoutLine main
-
-connect slider1.Widget main.Widget1
-connect slider2.Widget main.Widget2
-
-exec main
+++ /dev/null
-description "Simple test of wx::Split widget"
-author "laurent.guigues@creatis.insa-lyon.fr"
-category "example"
-
-load wx
-
-new Slider slider1
-new Slider slider2
-new LayoutSplit main
-
-connect slider1.Widget main.Widget1
-connect slider2.Widget main.Widget2
-
-exec main
git://git.creatis.insa-lyon.fr / bbtk.git / commitdiff