#	indexel.tcl -- indexel Tcl Command for QeTcl package
#*************************
proc indexel {c args} {
   upvar #0 $c data
   eval tclInt_CreateCommand $c indexelClass IndexElClass $args
   return $c
}

proc indexelClass::CreateClassRec {} {
   global indexelClass
   # OPTIONS
   set indexelClass(rootOptions)   {}
   set indexelClass(options)       {}
   # DEFAULT VALUES
   # METHODS
   set indexelClass(methods)       {index field descending }
}

proc indexelClass::ConstructCommand {c} {
   upvar #0 $c data
   # initialization stuff
}
#*************************
proc indexelClass::index {c args} {
   upvar  #0 $c data
   return [$data(source)::mk_index $c]
}
#*************************
proc indexelClass::field {c args} {
   upvar  #0 $c data
   return [$data(source)::mk_field_indel $c]
}
proc indexelClass::descending {c args} {
   upvar  #0 $c data
   return [$data(source)::is_descend $c]
}
