7d50e61c7f
* Another big chunk of v4-require-isms * Allow `#lang framework/keybinding-lang' for keybinding files * Move hierlist sources into "mrlib/hierlist", leave stub behind svn: r10689
23 lines
549 B
Scheme
23 lines
549 B
Scheme
(module aligned-pasteboard mzscheme
|
|
|
|
(require
|
|
mrlib/click-forwarding-editor
|
|
"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)))
|