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 >
Wrap
Text File
|
2005-10-29
|
421b
|
20 lines
class oz'sprite {
proc oz'sprite {this filename} oz'widget {sprite$filename} {
set ($this,image) [new oz'pixmap $filename]
oz'widget::pixmap $this $($this,image)
}
proc ~oz'sprite {this} {
delete $($this,image)
}
proc width {this} {
oz'pixmap::width $($this,image)
}
proc height {this} {
oz'pixmap::height $($this,image)
}
}