From 86697e85555f6cdecd3a4276c8d980c12839597f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 1 Dec 2009 15:59:49 +0000 Subject: [PATCH] fixed a bug in the last commit (it made keybindings get the editor-canvas instead of the editor) svn: r17138 --- collects/drscheme/private/frame.ss | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/frame.ss b/collects/drscheme/private/frame.ss index 26a5b13b37..ff8c7ca4b0 100644 --- a/collects/drscheme/private/frame.ss +++ b/collects/drscheme/private/frame.ss @@ -29,7 +29,12 @@ (mixin (frame:standard-menus<%>) (basics<%>) (define/override (on-subwindow-char receiver event) - (let ([user-key? (send (keymap:get-user) handle-key-event receiver event)]) + (let ([user-key? (send (keymap:get-user) + handle-key-event + (if (is-a? receiver editor-canvas%) + (send receiver get-editor) + receiver) + event)]) ;; (printf "user-key? ~s\n" user-key?) returns #t for key release events -- is this a problem? (we'll find out!) (or user-key? (super on-subwindow-char receiver event))))