From 2c35a98ad89b6f59c5f7c87b7f441528da77ad11 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 9 Feb 2013 14:58:21 -0600 Subject: [PATCH] Adjust keybinding code to fall back from get-active-canvas to get-canvas Unclear if this is a bug in get-active-canvas or not closes PR 13507 --- collects/framework/private/keymap.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/keymap.rkt b/collects/framework/private/keymap.rkt index 6ec8592db0..afe5c38410 100644 --- a/collects/framework/private/keymap.rkt +++ b/collects/framework/private/keymap.rkt @@ -1314,7 +1314,8 @@ (let ([frame (cond [(is-a? edit editor<%>) - (let ([canvas (send edit get-active-canvas)]) + (let ([canvas (or (send edit get-active-canvas) + (send edit get-canvas))]) (and canvas (send canvas get-top-level-window)))] [(is-a? edit area<%>)