suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adjust keybinding code to fall back from

Browse Source 
get-active-canvas to get-canvas

Unclear if this is a bug in get-active-canvas or not

closes PR 13507
This commit is contained in:
Robby Findler 2013-02-09 14:58:21 -06:00
parent 5c21ab0e42
commit 2c35a98ad8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/keymap.rkt
View File

@ -1314,7 +1314,8 @@
(let ([frame (let ([frame
(cond (cond
[(is-a? edit editor<%>) [(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 (and canvas
(send canvas get-top-level-window)))] (send canvas get-top-level-window)))]
[(is-a? edit area<%>) [(is-a? edit area<%>)