blob: b250f2ea2cbf76f3bf286799714d0cdad2a244ed (
plain)
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
77
|
# Variable tree class definition for Insight.
# Copyright 2002 Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
# the Free Software Foundation; either version 2 of the License, or (at
# your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
itcl::class VarTree {
inherit itk::Widget
public variable type "watch"
private {
# list of root variables in tree
variable rootlist {}
# mapping of varobj to canvas items
variable var_to_items
variable item_to_var
variable c ;#the canvas
variable pop ;#popup menu
variable _y 0
variable selection
variable selidx
variable closed
variable popup_temp
# when editing, these contain the entry widget and edited varobj
variable entry ""
variable entryobj
variable entrywin
}
common maskdata
common data
common openbm
common closedbm
common initialized 0
common colors
private {
method _init_data {}
method build {}
method buildlayer {tlist n}
method drawselection {}
method clicked {w x y open}
method setselection {var}
method closed {name}
method open {name}
method close {name}
method edit {j}
method unedit {j}
method changeValue {j}
method update_var {var ena check}
method _but3 {x y X Y}
method _change_format {var}
method _do_default_menu {X Y}
method _sort {}
method _compare {a b}
}
public {
method constructor {args}
method destructor {}
method add {varobj}
method remove {varobj}
method update {{check 0}}
}
}
|
