home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xuibuilder / xuiNodeCreator.tcl < prev    next >
Text File  |  2000-11-02  |  652b  |  24 lines
  1.  
  2. class nodeCreator {
  3.     inherit objectCreator
  4.     method processSyntax {token object xuiBuilder}
  5.     method createObject {token xuiBuilder}
  6.     method loadValueFromNode
  7.     method loadDefaultFromNode    
  8. }
  9.  
  10. body nodeCreator::createObject {token xuiBuilder} {
  11.     return [xuiNode ::#auto]
  12. }
  13.  
  14.  
  15. body structureCreator::loadValueFromNode {valueToken object xuiBuilder} {
  16.     $object setId [dom::getAttribute $valueToken id]
  17.     $object setOpenIcon [dom::getAttribute $valueToken openIcon]
  18.     $object setClosedIcon [dom::getAttribute $valueToken closedIcon]
  19. }
  20.  
  21. body structureCreator::loadDefaultFromNode {defaultToken object xuiBuilder} {
  22. }
  23.  
  24.