# 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