11 lines
378 B
Scheme
11 lines
378 B
Scheme
(unit/sig framework:pasteboard^
|
|
(import mred^
|
|
[editor : framework:editor^])
|
|
|
|
(rename [-keymap% keymap%])
|
|
|
|
(define basic% (editor:basic-mixin pasteboard%))
|
|
(define -keymap% (editor:keymap-mixin basic%))
|
|
(define file% (editor:file-mixin -keymap%))
|
|
(define backup-autosave% (editor:backup-autosave-mixin file%))
|
|
(define info% (editor:info-mixin backup-autosave%))) |