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
|
#object-oriented replacement for the old article tree code
#XXX Later move tree outside...
source $script_dir/Tree.tcl
source $script_dir/ArtTree.tcl
ArtTree .articleTree -toplevel 1
#XXX later this will be fixed up:
.articleTree configure -title "Article Tree"
#Procedures in the old style...
proc trn_draw_article_tree {x y} {
global ttk_msgid
.articleTree draw $ttk_msgid
}
proc endgroup {} {
.articleTree erase
update idletasks
}
proc wipetree {} {
.articleTree erase
}
|
