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

added return-edit%

Browse Source 
original commit: 16232d90512a59bb10cc99ac5e8c325340aa18d9
This commit is contained in:
Robby Findler 1996-11-11 17:29:57 +00:00
parent 6ca32ee508
commit ad3077be3a
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/mred/edit.ss
View File

@ -505,5 +505,26 @@
(define edit% (make-edit% mred:connections:connections-media-edit%))
(define make-return-edit%
(lambda (super%)
(class super% (return . args)
(rename [super-on-local-char on-local-char])
(public
[on-local-char
(lambda (key)
(let ([cr-code 13]
[lf-code 10]
[code (send key get-key-code)])
(or (and (or (= lf-code code)
(= cr-code code))
(return))
(super-on-local-char key))))])
(sequence
(apply super-init args)))))
(define return-edit% (make-return-edit% edit%))
(define make-pasteboard% make-std-buffer%)
(define pasteboard% (make-pasteboard% mred:connections:connections-media-pasteboard%))))