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))
#f
(let ([objs (container->children panel #f)])
(ormap
(lambda (x)
(and (is-a? x wx:button%)
(send x has-border?)
(let ([v (make-object wx:control-event% 'button)])
(as-exit (lambda () (send x command v)))
#t)))
objs)
#t)))]
(or (ormap
(lambda (x)
(and (is-a? x wx:button%)
(send x has-border?)
(let ([v (make-object wx:control-event% 'button)])
(as-exit (lambda () (send x command v)))
#t)))
objs)
(not (is-a? o wx-text-editor-canvas%))))))]
[(escape)
(and (is-a? this wx:dialog%)
(let ([o (get-focus-window)])