..
original commit: eacd86ffacf6042b7538c5a6d5a671e45c50d847
This commit is contained in:
parent
d553228b36
commit
45f3b8b0ba
|
@ -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<%>)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user