#	domain.tcl -- domain Tcl Command for QeTcl package
#***********************
proc domain {c args} {
   upvar #0 $c data
   eval tclInt_CreateCommand $c domainClass DomainClass $args
   return $c
}

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

proc domainClass::ConstructCommand {c} {
   upvar #0 $c data
   # initialization stuff
}
proc domainClass::ph_type {c args} {
  upvar  #0 $c data
  upvar  #0 $data(class) class
  return [$data(source)::dom_ph_type $c]
}
