From a55d38677155bd240f2867495572d7b7247b66ec Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 11 Jan 2002 20:41:03 +0000 Subject: [PATCH] . original commit: 88511a7a78e2f8f0beeb8f4a3901922a3de14457 --- collects/mred/mred.ss | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index b7cc67ae..a17cdc8a 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -1186,7 +1186,8 @@ (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-on-kill-focus on-kill-focus] + [super-pre-on-char pre-on-char]) (private-field [pre-wx->proxy (lambda (w k) ; MacOS: w may not be something the user knows (if w @@ -1241,11 +1242,13 @@ this (lambda () (send (get-proxy) on-focus #f))) (as-exit (lambda () (super-on-kill-focus)))))] - [pre-on-char (entry-point - (lambda (w e) - (pre-wx->proxy w (lambda (m) - (as-exit (lambda () - (send (get-proxy) on-subwindow-char m e)))))))] + [pre-on-char (lambda (w e) + (or (super-pre-on-char w e) + (as-entry + (lambda () + (pre-wx->proxy w (lambda (m) + (as-exit (lambda () + (send (get-proxy) on-subwindow-char m e)))))))))] [pre-on-event (entry-point (lambda (w e) (pre-wx->proxy w (lambda (m)