suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed run-after-edit-sequence bug

Browse Source 
original commit: 3af183ec8ece7b3c8f9d0207a7db810a2bf60d36
This commit is contained in:
Mike MacHenry 2002-12-06 23:38:52 +00:00
parent 81d51e6815
commit a66b3b7a2a
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.ss
View File

@ -2,6 +2,7 @@
(require
(lib "mred.ss" "mred")
(lib "framework.ss" "framework")
(lib "click-forwarding-editor.ss" "mrlib")
"geometry-managed-pasteboard.ss"
"event-handling-pasteboard.ss"
@ -13,11 +14,12 @@
;; contruct the basic mixin that both pasteboards will be created from
(define (make-aligned-pasteboard type)
(click-forwarding-editor-mixin
(locked-pasteboard-mixin
(event-handling-pasteboard-mixin
(geometry-managed-pasteboard-mixin
pasteboard% type)))))
(editor:basic-mixin
(click-forwarding-editor-mixin
(locked-pasteboard-mixin
(event-handling-pasteboard-mixin
(geometry-managed-pasteboard-mixin
pasteboard% type))))))
(define vertical-pasteboard%
(make-aligned-pasteboard 'vertical))