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