From ba4fd474071ee89b058b9cca25aa1ebc223f974b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 24 Jul 2009 04:56:46 +0000 Subject: [PATCH] made numberpad enter and control-enter and alt-enter all submit the current REPL interaction svn: r15546 --- collects/drscheme/private/rep.ss | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss index e24b289b19..5e7b6dc3a1 100644 --- a/collects/drscheme/private/rep.ss +++ b/collects/drscheme/private/rep.ss @@ -959,9 +959,12 @@ TODO (send context enable-evaluation)) (define/augment (submit-to-port? key) - (and prompt-position - (only-whitespace-after-insertion-point) - (submit-predicate this prompt-position))) + (or (eq? (send key get-key-code) 'numpad-enter) + (send key get-control-down) + (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) (let ([start (get-start-position)]