1 files changed, 33 insertions, 0 deletions
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