home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xuibuilder / xuiDirDefinitionCreator.tcl < prev    next >
Text File  |  2000-11-02  |  494b  |  17 lines
  1.  
  2. class dirDefinitionCreator {
  3.     inherit structureCreator
  4.     method processSyntax {token object xuiBuilder}
  5. }
  6.  
  7.  
  8. body dirDefinitionCreator::processSyntax { token object xuiBuilder} {
  9.      $object setAlign [dom::getAttribute $token align]
  10.      $object setStyle [dom::getAttribute $token style]
  11.      foreach component [dom::getElements $token] {
  12.     $xuiBuilder configure -currentParentName $object        
  13.         $object addComponent [ $xuiBuilder handleObject $component]
  14.      }
  15. }
  16.  
  17.