home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xuibuilder / xuiBooleanCreator.tcl < prev    next >
Text File  |  2000-11-02  |  789b  |  32 lines
  1.  
  2. class booleanCreator {
  3.     inherit objectCreator
  4.     method createObject {token xuiBuilder}
  5.     method loadValueFromNode
  6.     method loadDefaultFromNode
  7. }
  8.  
  9. body booleanCreator::createObject {token xuiBuilder} {
  10.     if [string length [set parentName [$xuiBuilder cget -currentParentName]]] {
  11.         set name $parentName.[dom::getAttribute $token name]
  12.     } else {
  13.        set name ::#auto
  14.     }
  15.     return [xuiBoolean $name]
  16. }
  17.  
  18. body booleanCreator::loadValueFromNode {valueToken object xuiBuilder} {
  19.     set val [dom::getText $valueToken]
  20.         switch $val {
  21.     1 {
  22.         $object setValue
  23.     } 0 {
  24.         $object clearValue
  25.     }
  26.     }
  27. }
  28.  
  29. body booleanCreator::loadDefaultFromNode {defaultToken object xuibuilder} {
  30.        $object setDefault [dom::getText $defaultToken]
  31. }
  32.