blob: 67c5dbf067ab71572624c2556bf65c24485d87ba (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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
|
