From 3ff7ca2d317396d3747b3c6dab35c5e29aac95ea Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 18 Jan 2011 07:30:36 -0700 Subject: [PATCH] change `text-field%' to treat numpad Enter like normal Enter/Return Closes PR 7890 --- collects/mred/private/wxtextfield.rkt | 4 +++- collects/scribblings/gui/text-field-class.scrbl | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wxtextfield.rkt b/collects/mred/private/wxtextfield.rkt index 5dac9e1954..56a6cc92b6 100644 --- a/collects/mred/private/wxtextfield.rkt +++ b/collects/mred/private/wxtextfield.rkt @@ -90,7 +90,9 @@ (entry-point (lambda (e) (let ([c (send e get-key-code)]) - (unless (and (or (eq? c #\return) (eq? c #\newline)) + (unless (and (or (eq? c #\return) + (eq? c #\newline) + (eq? c #\u3)) ; numpad enter return-cb (return-cb (lambda () (callback 'text-field-enter) #t))) (as-exit (lambda () (super-on-char e)))))))] diff --git a/collects/scribblings/gui/text-field-class.scrbl b/collects/scribblings/gui/text-field-class.scrbl index 3032ca10d1..f2e7a62003 100644 --- a/collects/scribblings/gui/text-field-class.scrbl +++ b/collects/scribblings/gui/text-field-class.scrbl @@ -10,7 +10,7 @@ A @scheme[text-field%] object is an editable text field with an @itemize[ @item{A single line of text is visible, and a special control event - is generated when the user presses Enter (when the text field has the + is generated when the user presses Return or Enter (when the text field has the focus) and the event is not handled by the text field's frame or dialog (see @xmethod[top-level-window<%> on-traverse-char] ).}