#	model.tcl -- model Tcl Command for QeTcl package
#*************************
proc xmodel {c args} {
   upvar #0 $c data
   eval tclInt_CreateCommand $c xmodelClass XModelClass $args
   return $c
}

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

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