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

use an aug-keymap instead of a keymap for the scheme mode keymap container

Browse Source 
original commit: dd4f307a4707712693927b8e8fd859e2fd85b733
This commit is contained in:
Robby Findler 2011-11-29 14:27:51 -06:00
parent ade72045be
commit c865a34f8a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/scheme.rkt
View File

@ -454,7 +454,7 @@
(inherit has-focus? find-snip split-snip (inherit has-focus? find-snip split-snip
position-location get-dc) position-location get-dc)
(define private-scheme-container-keymap (new keymap%)) (define private-scheme-container-keymap (new keymap:aug-keymap%))
(define/public (get-private-scheme-container-keymap) private-scheme-container-keymap) (define/public (get-private-scheme-container-keymap) private-scheme-container-keymap)
(define/override (get-keymaps) (define/override (get-keymaps)