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

fix trampoline fix

Browse Source 
svn: r14877

original commit: af94e11d19ff99d0d06ad72b6a75333b4d48ad7c
This commit is contained in:
Matthew Flatt 2009-05-19 23:58:50 +00:00
parent 9b112e3600
commit 67f573699a
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wxcanvas.ss
View File

@ -224,7 +224,7 @@
0 0 #t #t)))
(inherit editor-canvas-on-scroll)
(define/override (on-scroll e)
(if (or (eq? 'msw (system-type))
(if (or (eq? 'windows (system-type))
(eq? 'macosx (system-type)))
(queue-window-callback
this

4
collects/mred/private/wxme/editor-canvas.ss
View File

@ -351,13 +351,13 @@
(thunk)))
(define/override (on-set-focus)
(if (eq? 'msw (system-type))
(if (eq? 'windows (system-type))
(queue-window-callback
this
(lambda () (on-focus #t)))
(on-focus #t)))
(define/override (on-kill-focus)
(if (eq? 'msw (system-type))
(if (eq? 'windows (system-type))
(queue-window-callback
this
(lambda () (on-focus #f)))