home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / bin / prime / oz'sprite.tcl < prev    next >
Text File  |  2005-10-29  |  421b  |  20 lines
  1. class oz'sprite {
  2.     proc oz'sprite {this filename} oz'widget {sprite$filename} {
  3.         set ($this,image)  [new oz'pixmap $filename]
  4.         oz'widget::pixmap $this $($this,image)
  5.     }
  6.  
  7.     proc ~oz'sprite {this} {
  8.         delete $($this,image)
  9.     }
  10.  
  11.     proc width {this} {
  12.         oz'pixmap::width $($this,image)
  13.     }
  14.  
  15.     proc height {this} {
  16.         oz'pixmap::height $($this,image)
  17.     }
  18. }
  19.  
  20.