Require Class/basicSurfaceNewDomain

basicSurfaceNewDomain Subclass SurfaceNewDomain {
  Var "domain {[basicSurfaceNewDomain get domain]}"
  Method <Domain> {domain} {set [var domain] $domain}
  ClassVar "Domain-template {{[basicSurfaceNewDomain get domain]}}"

  ClassVar {script-templates {Domain}}

  Method ScriptBegin {} {
    Vars domain
    Parent ScriptBegin
    set domain [Parent get domain]
  }
}

SurfaceNewDomain Register
