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

mzscheme

Browse Source 
original commit: 5c394c37b38382f0712a666c5799897cc599d540
This commit is contained in:
Matthew Flatt 1998-11-12 18:13:43 +00:00
parent f3676130e0
commit a4e59a2237
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/mred/wrap/mred.ss
View File

@ -654,15 +654,15 @@
(if (and o (send o handles-key-code code)) (if (and o (send o handles-key-code code))
#f #f
(let ([objs (container->children panel #f)]) (let ([objs (container->children panel #f)])
(ormap (or (ormap
(lambda (x) (lambda (x)
(and (is-a? x wx:button%) (and (is-a? x wx:button%)
(send x has-border?) (send x has-border?)
(let ([v (make-object wx:control-event% 'button)]) (let ([v (make-object wx:control-event% 'button)])
(as-exit (lambda () (send x command v))) (as-exit (lambda () (send x command v)))
#t))) #t)))
objs) objs)
#t)))] (not (is-a? o wx-text-editor-canvas%))))))]
[(escape) [(escape)
(and (is-a? this wx:dialog%) (and (is-a? this wx:dialog%)
(let ([o (get-focus-window)]) (let ([o (get-focus-window)])