You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
1.8 KiB
Plaintext
78 lines
1.8 KiB
Plaintext
15 years ago
|
# Variable tree class definition for Insight.
|
||
|
|
# Copyright (C) 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}}
|
||
|
|
}
|
||
|
|
}
|