home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xul / xuiLabel.tcl < prev    next >
Encoding:
Text File  |  2000-11-02  |  501 b   |  31 lines
  1.  
  2. class xuiLabel {
  3.     inherit xuiString
  4.     constructor {} {
  5.     setXuiClass label
  6.     }   
  7.     method clone
  8.     method copyClone
  9.     method getText
  10. }
  11.  
  12. body xuiLabel::clone {{parentName {::#auto}}} {
  13.    set clone [xuiLabel $parentName.$name]
  14.    copyClone $clone
  15.    return $clone
  16. }
  17.  
  18. body xuiLabel::copyClone { clone } {
  19.    xuiObject::copyClone $clone
  20.    xuiString::copyClone $clone
  21.    $clone setXuiClass $xuiClass  
  22. }
  23.  
  24.  
  25. body xuiLabel::getText { } {
  26.     return $label
  27. }
  28.  
  29.  
  30.  
  31.