#	template.tcl -- template Tcl Command for QeTcl package
#*************************
proc template {c args} {
   upvar #0 $c data
   eval tclInt_CreateCommand $c templateClass TemplateClass $args
   return $c
}

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

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

