#	viewel.tcl -- viewel Tcl Command for QeTcl package
#*************************
proc viewel {c args} {
   upvar #0 $c data
   eval tclInt_CreateCommand $c viewelClass ViewElClass $args
   return $c
}

proc viewelClass::CreateClassRec {} {
   global viewelClass
   # OPTIONS
   set viewelClass(rootOptions)   {}
   set viewelClass(options)       {}
   # DEFAULT VALUES
   # METHODS
   set viewelClass(methods)       {view field }
}

proc viewelClass::ConstructCommand {c} {
   upvar #0 $c data
   # initialization stuff
}

#*************************
proc viewelClass::view {c args} {
   upvar  #0 $c data
   return [$data(source)::mk_view $c]
}
#*************************
proc viewelClass::field {c args} {
   upvar  #0 $c data
   return [$data(source)::mk_field $c]
}

