#	view.tcl -- view Tcl Command for QeTcl package
#*************************
proc view {c args} {
   upvar #0 $c data
   eval tclInt_CreateCommand $c viewClass ViewClass $args
   return $c
}

proc viewClass::CreateClassRec {} {
   global viewClass
   # OPTIONS
   set viewClass(rootOptions)   {}
   set viewClass(options)       {}
   # DEFAULT VALUES
   # METHODS
   set viewClass(methods) { list_of_fields }
}

proc viewClass::ConstructCommand {c} {
   upvar #0 $c data
   # initialization stuff
}
proc viewClass::list_of_fields {c args} {
   upvar  #0 $c data
   upvar  #0 $data(class) class
   return [$data(source)::view_field_list $c]
}

