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