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

.

Browse Source 
original commit: 88511a7a78e2f8f0beeb8f4a3901922a3de14457
This commit is contained in:
Matthew Flatt 2002-01-11 20:41:03 +00:00
parent d2dad83cc5
commit a55d386771
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/mred/mred.ss
View File

@ -1186,7 +1186,8 @@
(inherit get-x get-y get-width get-height area-parent get-mred get-proxy)
(rename [super-on-size on-size]
[super-on-set-focus on-set-focus]
[super-on-kill-focus on-kill-focus])
[super-on-kill-focus on-kill-focus]
[super-pre-on-char pre-on-char])
(private-field
[pre-wx->proxy (lambda (w k) ; MacOS: w may not be something the user knows
(if w
@ -1241,11 +1242,13 @@
this
(lambda () (send (get-proxy) on-focus #f)))
(as-exit (lambda () (super-on-kill-focus)))))]
[pre-on-char (entry-point
(lambda (w e)
(pre-wx->proxy w (lambda (m)
(as-exit (lambda ()
(send (get-proxy) on-subwindow-char m e)))))))]
[pre-on-char (lambda (w e)
(or (super-pre-on-char w e)
(as-entry
(lambda ()
(pre-wx->proxy w (lambda (m)
(as-exit (lambda ()
(send (get-proxy) on-subwindow-char m e)))))))))]
[pre-on-event (entry-point
(lambda (w e)
(pre-wx->proxy w (lambda (m)