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