Add Layouts TUp, TDown, TLeft, TRight

[bbtk.git] / packages / wx / bbs / boxes / bbLayoutTUp.bbs

diff --git a/packages/wx/bbs/boxes/bbLayoutTUp.bbs b/packages/wx/bbs/boxes/bbLayoutTUp.bbs
new file mode 100644 (file)
index 0000000..0caa762
--- /dev/null
+++ b/packages/wx/bbs/boxes/bbLayoutTUp.bbs
@@ -0,0 +1,22 @@
+load std
+load wx
+
+define LayoutTUp wx
+
+description "Creates a complex box : Up {DownLeft, DownRight} as w1{w2,w3}"
+author "jean-pierre.roux@creatis.univ-lyon1.fr"
+category "box"
+
+new LayoutSplit currentBox
+ set currentBox.Orientation H
+ new LayoutSplit down
+
+ connect down.Widget currentBox.Widget2 
+
+ set down.Orientation V
+
+ input Widget1 currentBox.Widget1 "Up"
+ input Widget2 down.Widget1       "DownLeft" 
+ input Widget3 down.Widget2       "DownRight"  
+
+endefine