suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r7988

Browse Source
This commit is contained in:
Matthias Felleisen 2007-12-13 12:33:30 +00:00
parent b1fefcdd7c
commit fa0c028d26
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/mrlib/cache-image-snip.ss
View File

@ -6,6 +6,7 @@
(lib "list.ss"))
(provide cache-image-snip%
cache-image-snip-class%
snip-class)
;; type argb = (make-argb (vectorof rational[between 0 & 255]) int)
@ -143,18 +144,24 @@
(define cache-image-snip-class%
(class snip-class%
(define/override (read f)
(let ([data (read-from-string (send f get-bytes) (lambda () #f))])
(if data
(data->snip (read-from-string (send f get-bytes) (lambda () #f))))
(define/public (data->snip data)
(if data
(argb->cache-image-snip (make-argb (first data) (second data))
(third data)
(fourth data))
(make-null-cache-image-snip))))
(make-null-cache-image-snip)))
(super-new)))
(define snip-class (new cache-image-snip-class%))
(send snip-class set-version 1)
(send snip-class set-classname (format "~s" `(lib "cache-image-snip.ss" "mrlib")))
(send (get-the-snip-class-list) add snip-class)
;; ***** WARNING: illegal activities **** -- MF
(define the-drscheme-snip-class (get-the-snip-class-list))
(send the-drscheme-snip-class add snip-class)
(provide the-drscheme-snip-class)
;; ***** WARNING: illegal activities ****
(define (make-null-cache-image-snip)
(define size 10)