14 lines
198 B
Racket
14 lines
198 B
Racket
#lang racket/base
|
|
|
|
(require racket/class)
|
|
|
|
(provide image-provider%)
|
|
|
|
(define image-provider%
|
|
(class object%
|
|
(abstract
|
|
has-image?
|
|
image->file
|
|
image->mimetype)
|
|
(super-new)))
|