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