9 lines
223 B
Scheme
9 lines
223 B
Scheme
(require
|
|
(lib "class.ss")
|
|
(lib "embedded-gui.ss" "embedded-gui"))
|
|
|
|
(let* ([pb (new aligned-pasteboard%)]
|
|
[interactions (new vertical-alignment% (parent pb))])
|
|
(send interactions map-to-list (lambda (x) x))
|
|
#t)
|