23 lines
562 B
Scheme
23 lines
562 B
Scheme
(module aligned-pasteboard mzscheme
|
|
|
|
(require
|
|
(lib "click-forwarding-editor.ss" "mrlib")
|
|
"geometry-managed-pasteboard.ss"
|
|
"locked-pasteboard.ss")
|
|
|
|
(provide
|
|
vertical-pasteboard%
|
|
horizontal-pasteboard%)
|
|
|
|
;; contruct the basic mixin that both pasteboards will be created from
|
|
(define (click/lock type)
|
|
(click-forwarding-editor-mixin
|
|
(locked-pasteboard-mixin
|
|
(make-aligned-pasteboard type))))
|
|
|
|
(define vertical-pasteboard%
|
|
(click/lock 'vertical))
|
|
|
|
(define horizontal-pasteboard%
|
|
(click/lock 'horizontal)))
|