neingeist
/
arduinisten
Archived
1
0
Fork 0
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.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.

78 lines
1.8 KiB
Plaintext

# 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}}
}
}