#	index.tcl -- index Tcl Command for QeTcl package
#*************************
proc index {c args} {
   upvar #0 $c data
   eval tclInt_CreateCommand $c indexClass IndexClass $args
   return $c
}

proc indexClass::CreateClassRec {} {
   global indexClass
   # OPTIONS
   set indexClass(rootOptions)   {}
   set indexClass(options)       {}
   # DEFAULT VALUES
   # METHODS
   set indexClass(methods)       {name entity list_of_elements is_unique full_name}
}

proc indexClass::ConstructCommand {c} {
   upvar #0 $c data
   # initialization stuff
}
#*************************
proc indexClass::entity {c args} {
   upvar  #0 $c data
   return [$data(source)::mk_entity_i $c]
}
#*************************
proc indexClass::list_of_elements {c args} {
   upvar  #0 $c data
   upvar  #0 $data(class) class
   return [$data(source)::i_list_of_elements $c]
}
#*************************
proc indexClass::name {c args} {
  upvar  #0 $c data
  upvar  #0 $data(class) class
  return [$data(source)::get_ind_name $c]
}
#*************************
proc indexClass::is_unique {c args} {
  upvar  #0 $c data
  upvar  #0 $data(class) class
  return [$data(source)::get_ind_unique $c]
}
#*************************
proc indexClass::full_name {c args} {
  upvar  #0 $c data
  upvar  #0 $data(class) class
  return [$data(source)::get_ind_full_name $c]
}
