...

original commit: 55ed940b046dcd033c47e61c7db032e86be56aed
2001-11-16 02:33:13 +00:00 · 2001-11-16 02:33:13 +00:00 · 215bb59183
commit 215bb59183
parent 5801521c26
1 changed files with 5 additions and 0 deletions
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@ -912,6 +912,11 @@
                (set! super-root s-root)
                (set! rest-panel r-root)
                r-root))]
+
+	  (rename [super-get-editor<%> get-editor<%>])
+	  (define/override (get-editor<%>)
+	    (interface ((super-get-editor<%>) text:delegate<%>)))
+
          (rename [super-get-editor% get-editor%])
          (define/override (get-editor%)
            (text:delegate-mixin (super-get-editor%)))