From af0257fe2d235c8182840911b1b638f2a8644fbd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 17 Jul 1999 15:42:14 +0000 Subject: [PATCH] . original commit: 3a45c2f3929484cad2bb841585d4ee131e9965b6 --- src/mred/wrap/mred.ss | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index 6bb070d7..d92db802 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -719,7 +719,7 @@ (do-command x v) #t))) objs) - (not (is-a? o wx-text-editor-canvas%))))))] + (not (is-a? o wx-editor-canvas%))))))] [(escape) (and (is-a? this wx:dialog%) (let ([o (get-focus-window)]) @@ -1059,9 +1059,7 @@ (inherit get-x get-y get-width get-height area-parent get-mred get-proxy) (rename [super-on-size on-size] [super-on-set-focus on-set-focus] - [super-on-kill-focus on-kill-focus] - [super-pre-on-char pre-on-char] - [super-pre-on-event pre-on-event]) + [super-on-kill-focus on-kill-focus]) (private [pre-wx->proxy (lambda (w k) ; MacOS: w may not be something the user knows (if w @@ -1118,13 +1116,11 @@ (lambda () (send (get-proxy) on-focus #f)))))] [pre-on-char (entry-point-2 (lambda (w e) - (super-pre-on-char w e) (pre-wx->proxy w (lambda (m) (as-exit (lambda () (send (get-proxy) on-subwindow-char m e)))))))] [pre-on-event (entry-point-2 (lambda (w e) - (super-pre-on-event w e) (pre-wx->proxy w (lambda (m) (as-exit (lambda () (send (get-proxy) on-subwindow-event m e)))))))])