11 lines
194 B
Racket
11 lines
194 B
Racket
|
|
(module snipclass mzscheme
|
|
(require mred
|
|
mzlib/class)
|
|
(provide sc)
|
|
|
|
(define sc (make-object snip-class%))
|
|
(send sc set-classname "card")
|
|
(send (get-the-snip-class-list) add sc))
|
|
|