home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xuibuilder / xuiStringCreator.tcl < prev    next >
Text File  |  2000-11-02  |  878b  |  35 lines
  1.  
  2. class stringCreator {
  3.     inherit objectCreator
  4.     method createObject {token xuiBuilder}
  5.     method loadValueFromNode
  6.     method loadDefaultFromNode
  7.     method extraStuff 
  8. }
  9.  
  10. body stringCreator::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 [xuiString $name]
  17. }
  18.  
  19.  
  20. body stringCreator::loadValueFromNode {valueToken object xuiBuilder} {
  21.     $object setValue [dom::getText $valueToken]
  22. }
  23.  
  24.  
  25. body stringCreator::loadDefaultFromNode {defaultToken object xuiBuilder} {
  26.         $object setDefault [dom::getText $defaultToken]
  27. }
  28.  
  29. body stringCreator::extraStuff {token object xuiBuilder} {
  30.         if [llength [set w [dom::getAttribute $token width]]] {
  31.        $object setWidth $w
  32.     }
  33. }
  34.  
  35.