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

made numberpad enter and control-enter and alt-enter all submit the current REPL interaction

Browse Source 
svn: r15546
This commit is contained in:
Robby Findler 2009-07-24 04:56:46 +00:00
parent 0c73b84692
commit ba4fd47407
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/drscheme/private/rep.ss
View File

@ -959,9 +959,12 @@ TODO
(send context enable-evaluation)) (send context enable-evaluation))
(define/augment (submit-to-port? key) (define/augment (submit-to-port? key)
(and prompt-position (or (eq? (send key get-key-code) 'numpad-enter)
(only-whitespace-after-insertion-point) (send key get-control-down)
(submit-predicate this prompt-position))) (send key get-alt-down)
(and prompt-position
(only-whitespace-after-insertion-point)
(submit-predicate this prompt-position))))
(define/private (only-whitespace-after-insertion-point) (define/private (only-whitespace-after-insertion-point)
(let ([start (get-start-position)] (let ([start (get-start-position)]