17 lines
308 B
Scheme
17 lines
308 B
Scheme
(module embedded-message mzscheme
|
|
|
|
(require
|
|
(lib "mred.ss" "mred")
|
|
(lib "class.ss")
|
|
"snip-wrapper.ss")
|
|
|
|
(provide embedded-message%)
|
|
|
|
(define embedded-message%
|
|
(class snip-wrapper%
|
|
|
|
(init label)
|
|
|
|
(super-new
|
|
(snip (make-object string-snip% label)))))
|
|
) |