original commit: eacd86ffacf6042b7538c5a6d5a671e45c50d847
This commit is contained in:
Robby Findler 2003-01-16 20:36:16 +00:00
parent d553228b36
commit 45f3b8b0ba

View File

@ -793,7 +793,8 @@
(error 'frame:editor% (error 'frame:editor%
"result of get-canvas% method must match ~e interface; got: ~e" "result of get-canvas% method must match ~e interface; got: ~e"
<%> %)) <%> %))
(make-object % (get-area-container))))] (instantiate % ()
(parent (get-area-container)))))]
(define (get-editor%) (define (get-editor%)
(error 'editor-frame% "abstract method: no editor% class specified")) (error 'editor-frame% "abstract method: no editor% class specified"))
(define (get-editor<%>) (define (get-editor<%>)