..

original commit: eacd86ffacf6042b7538c5a6d5a671e45c50d847
2003-01-16 20:36:16 +00:00 · 2003-01-16 20:36:16 +00:00 · 45f3b8b0ba
commit 45f3b8b0ba
parent d553228b36
1 changed files with 2 additions and 1 deletions
--- 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<%>)