From 5792cf2d7eed0f7b3a5aaa5ca7c7292af29b2978 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 6 Jul 1999 22:38:55 +0000 Subject: [PATCH] class to interface original commit: 58c7227972b31e1ba5a792edd0ec50657fb2a8b8 --- collects/framework/editor.ss | 2 +- collects/framework/frame.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/framework/editor.ss b/collects/framework/editor.ss index b6fdf2d3..66228032 100644 --- a/collects/framework/editor.ss +++ b/collects/framework/editor.ss @@ -130,7 +130,7 @@ (lambda (edit) (let ([admin (send edit get-admin)]) (cond - [(is-a? admin editor-snip-editor-admin%) + [(is-a? admin editor-snip-editor-admin<%>) (send (send (send admin get-snip) get-admin) get-editor)] ;; assume that any non-media-snip ;; administrator doesn't have embedded edits. diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss index 4bd0c8d2..787d47fc 100644 --- a/collects/framework/frame.ss +++ b/collects/framework/frame.ss @@ -445,7 +445,7 @@ [pop-out (lambda () (let ([admin (send edit get-admin)]) - (if (is-a? admin editor-snip-editor-admin%) + (if (is-a? admin editor-snip-editor-admin<%>) (let* ([snip (send admin get-snip)] [edit-above (send (send snip get-admin) get-editor)] [pos (send edit-above get-snip-position snip)]