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