From 45f3b8b0badbad3c39e61d583d61060680137cd9 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 16 Jan 2003 20:36:16 +0000 Subject: [PATCH] .. original commit: eacd86ffacf6042b7538c5a6d5a671e45c50d847 --- collects/framework/private/frame.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 32139d7a..e082e76c 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -793,7 +793,8 @@ (error 'frame:editor% "result of get-canvas% method must match ~e interface; got: ~e" <%> %)) - (make-object % (get-area-container))))] + (instantiate % () + (parent (get-area-container)))))] (define (get-editor%) (error 'editor-frame% "abstract method: no editor% class specified")) (define (get-editor<%>)