home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xuibuilder / xuiIncludeCreator.tcl < prev    next >
Text File  |  2000-11-02  |  777b  |  28 lines
  1.  
  2.  
  3. # includeCreator --
  4. #    This is used to process <include> directives in property pages
  5. # definitions. At instantation time the directive definition object is
  6. # passed as a parameter. When it encounters a include tag, it looks for the
  7. # name attribute and fetchs the appropriate directive.
  8.  
  9. class includeCreator {
  10.      variable dirDef
  11.      variable rootConf
  12.      constructor { directiveDef } {
  13.      set dirDef $directiveDef
  14.      }
  15.      method create {token xuiBuilder}
  16. }
  17.  
  18. body includeCreator::create {token xuiBuilder} {
  19.     set name [dom::getAttribute $token name]
  20.     set dir [$dirDef getDirectiveByName [string tolower $name]]
  21.     if ![llength  $dir] {
  22.      error "Include directive not encountered: $name"
  23.     } else {
  24.     return $dir
  25.     }
  26. }
  27.  
  28.