home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xuibuilder / xuiChoiceCreator.tcl < prev    next >
Text File  |  2000-11-02  |  1KB  |  36 lines
  1.  
  2. class choiceCreator {
  3.     inherit objectCreator
  4.     method processSyntax {token object xuiBuilder}
  5.     method createObject {token xuiBuilder}
  6.     method loadValueFromNode
  7.     method loadDefaultFromNode    
  8. }
  9.  
  10. body choiceCreator::createObject {token xuiBuilder} {
  11.     if [string length [set parentName [$xuiBuilder cget -currentParentName]]] {
  12.     set name $parentName.[dom::getAttribute $token name]
  13.     } else {
  14.     set name ::#auto
  15.     }                        
  16.     return [xuiChoice $name]
  17. }
  18.  
  19. body choiceCreator::loadValueFromNode {valueToken object xuiBuilder} {
  20.         $object selectItem [dom::getText $valueToken] 
  21. }
  22.  
  23. body choiceCreator::loadDefaultFromNode {defaultToken object xuiBuilder} {
  24.         $object setDefault [dom::getText $defaultToken]
  25. }
  26.  
  27. body choiceCreator::processSyntax { token object xuiBuilder} {
  28.      set syntaxToken [dom::rp $token syntax]
  29.      foreach item [dom::getElementsByTagName $syntaxToken option] {
  30.         $object addChoice \
  31.     [dom::getAttribute $item name] \
  32.     [mesg::get [ dom::getAttribute $item value]]
  33.      }
  34. }
  35.  
  36.