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

change `text-field%' to treat numpad Enter like normal Enter/Return

Browse Source 
Closes PR 7890
This commit is contained in:
Matthew Flatt 2011-01-18 07:30:36 -07:00
parent e95957483c
commit 3ff7ca2d31
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wxtextfield.rkt
View File

@ -90,7 +90,9 @@
(entry-point (entry-point
(lambda (e) (lambda (e)
(let ([c (send e get-key-code)]) (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
(return-cb (lambda () (callback 'text-field-enter) #t))) (return-cb (lambda () (callback 'text-field-enter) #t)))
(as-exit (lambda () (super-on-char e)))))))] (as-exit (lambda () (super-on-char e)))))))]

2
collects/scribblings/gui/text-field-class.scrbl
View File

@ -10,7 +10,7 @@ A @scheme[text-field%] object is an editable text field with an
@itemize[ @itemize[
@item{A single line of text is visible, and a special control event @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 focus) and the event is not handled by the text field's frame or
dialog (see @xmethod[top-level-window<%> on-traverse-char] ).} dialog (see @xmethod[top-level-window<%> on-traverse-char] ).}