From a66b3b7a2a58cf013f3ec5f64e1df0c89401129a Mon Sep 17 00:00:00 2001 From: Mike MacHenry Date: Fri, 6 Dec 2002 23:38:52 +0000 Subject: [PATCH] fixed run-after-edit-sequence bug original commit: 3af183ec8ece7b3c8f9d0207a7db810a2bf60d36 --- .../private/aligned-pasteboard/aligned-pasteboard.ss | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.ss b/collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.ss index 73c58222..68d2e47f 100644 --- a/collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.ss +++ b/collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.ss @@ -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))