home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xuibuilder / xuiNumberCreator.tcl < prev    next >
Text File  |  2000-11-02  |  594b  |  24 lines
  1.  
  2. class numberCreator {
  3.     inherit stringCreator
  4.     method createObject {token xuiBuilder}
  5.     method extraStuff
  6. }
  7.  
  8. body numberCreator::createObject {token xuiBuilder} {
  9.     if [string length [set parentName [$xuiBuilder cget -currentParentName]]] {
  10.     set name $parentName.[dom::getAttribute $token name]
  11.     } else {
  12.     set name ::#auto
  13.     }                        
  14.     return [xuiNumber $name]
  15. }
  16.  
  17.  
  18. body numberCreator::extraStuff {token object xuiBuilder} {
  19.         if [llength [set w [dom::getAttribute $token width]]] {
  20.            $object setWidth $w
  21.         }
  22. }    
  23.  
  24.