From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 vendor/x11iraf/guidemo/ltree.gui | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 vendor/x11iraf/guidemo/ltree.gui

(limited to 'vendor/x11iraf/guidemo/ltree.gui')

diff --git a/vendor/x11iraf/guidemo/ltree.gui b/vendor/x11iraf/guidemo/ltree.gui
new file mode 100644
index 00000000..67c5dbf0
--- /dev/null
+++ b/vendor/x11iraf/guidemo/ltree.gui
@@ -0,0 +1,33 @@
+# LTREE.GUI -- Test the ListTree widget.
+
+reset-server
+appInitialize lTree LTree {
+
+LTree*objects:\
+    toplevel		Form		helloForm\
+    helloForm		ListTree	list\
+
+    *background:		ivory3
+    *list.width:		300
+    *list.height:		300
+    *list.font:			-*-helvetica-bold-r-normal-*-14-*-iso8859-1
+    *list.horizontalSpacing:	10
+}
+
+createObjects
+
+send list setListTree {a1 { b1 { {a2 {a3 b3 c3 d3}} { b2 {z1 z2}} }  } c1}
+#send list setListTree {{x1 {y1 y2}} {z2 {a b c d}}} append
+#send list setListTree {{x1 {y1 y2}} {z2 {a b c d}}}
+
+#	a1
+#	b1
+#	  a2
+#	    a3
+#	    b3
+#	  b2
+#	c1
+
+activate
+
+proc foo { args } { print $args } ; send list addCallback foo
-- 
cgit