home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xuibuilder / xuiLabelCreator.tcl < prev    next >
Text File  |  2000-11-02  |  390b  |  17 lines

  1.  
  2. class labelCreator {
  3.     inherit stringCreator
  4.     method createObject {token xuiBuilder}
  5. }
  6.  
  7. body labelCreator::createObject {token xuiBuilder} {
  8.     if [string length [set parentName [$xuiBuilder cget -currentParentName]]] {
  9.     set name $parentName.[dom::getAttribute $token name]
  10.     } else {
  11.     set name ::#auto
  12.     }                        
  13.     return [xuiLabel $name]
  14. }
  15.  
  16.  
  17.