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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!/usr/bin/env wize
variable Users {
tom { Name "Tom Brown" Sex M Age 19 Class {4 5} Rate {A 1 B 2}}
mary { Name "Mary Brown" Sex F Age 16 Class {5} Rate {A 2}}
sam { Name "Sam Spade" Sex M Age 19 Class {3 4} Rate {B 3}}
}
set t [tree create]
foreach {i d} $Users {
$t insert 0 -tags $i -data $d -label $i
}
tree op update $t tom Sex F Name "Tomi Brown"
$t update tom Sex F Name "Tomi Brown"
$t append sam Name " Jr"
$t lappend sam Class 5
$t incr mary Age
$t update tom Rate(A) 2
$t set tom Sax F
$t set sam Rate(C) 0
$t incr 0->mary Age; # Address via label instead of tag.
puts [time { tree op incr $t mary Age } 1000]
proc ::Aupd {keys t id key op} {
tclLog "AA: $t $id $key $op"
if {[lsearch -exact $keys $key]<0} { error "bad key '$key' not in: $keys" }
}
$t trace create all * w [list ::Aupd [$t keys all]]
$t incr mary Age
$t set mary Sex M
pack [treeview .t -tree $t] -fill both -expand y
eval .t column insert end [$t keys all]
puts [$t dump 0]
console show
variable Info {
system {
sol { OS Linux Version 3.4 }
bing { OS Win Version 7 }
gui { OS Mac Version 8 }
}
network {
intra { Address 192.168.1 Netmask 255.255.255.0 }
dmz { Address 192.168.10 Netmask 255.255.255.0 }
wan { Address 0.0.0.0 Netmask 0.0.0.0 Class {A 1 B 4}}
}
admin {
sully { Name "Sully Van Damme" Level 3 }
maverick { Name "Maverick Gump" Level 1 }
}
}
set s [tree create]
foreach {n vals} $Info {
set ind [$s insert 0 -label $n]
foreach {i d} $vals {
if {[$s index $ind->$i]>=0} { error "Duplicate label: $i" }
$s insert $ind -label $i -data $d
}
}
set old [$s get 0->system->bing]
$s update 0->system->bing OS Linux Version 3.4
$s update 0->network->dmz Address 192.168.11
$s update 0->network->wan Class(A) 2
eval $s set 0->system->bing $old
$s insert 0->admin -label linus -data { Name "Linus Torvalds" Level 9 }
$s delete 0->admin->sully
pack [treeview .s -tree $s -width 600] -fill both -expand y
eval .s column insert end [$s keys all]
|
