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

.

Browse Source 
original commit: 3a45c2f3929484cad2bb841585d4ee131e9965b6
This commit is contained in:
Matthew Flatt 1999-07-17 15:42:14 +00:00
parent 9f2290c284
commit af0257fe2d
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -719,7 +719,7 @@
(do-command x v)
#t)))
objs)
(not (is-a? o wx-text-editor-canvas%))))))]
(not (is-a? o wx-editor-canvas%))))))]
[(escape)
(and (is-a? this wx:dialog%)
(let ([o (get-focus-window)])
@ -1059,9 +1059,7 @@
(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-pre-on-char pre-on-char]
[super-pre-on-event pre-on-event])
[super-on-kill-focus on-kill-focus])
(private
[pre-wx->proxy (lambda (w k) ; MacOS: w may not be something the user knows
(if w
@ -1118,13 +1116,11 @@
(lambda () (send (get-proxy) on-focus #f)))))]
[pre-on-char (entry-point-2
(lambda (w e)
(super-pre-on-char w e)
(pre-wx->proxy w (lambda (m)
(as-exit (lambda ()
(send (get-proxy) on-subwindow-char m e)))))))]
[pre-on-event (entry-point-2
(lambda (w e)
(super-pre-on-event w e)
(pre-wx->proxy w (lambda (m)
(as-exit (lambda ()
(send (get-proxy) on-subwindow-event m e)))))))])