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

fix trampoline fix

Browse Source 
svn: r14877
This commit is contained in:
Matthew Flatt 2009-05-19 23:58:50 +00:00
parent 43c8b6cafd
commit af94e11d19
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))) 0 0 #t #t)))
(inherit editor-canvas-on-scroll) (inherit editor-canvas-on-scroll)
(define/override (on-scroll e) (define/override (on-scroll e)
(if (or (eq? 'msw (system-type)) (if (or (eq? 'windows (system-type))
(eq? 'macosx (system-type))) (eq? 'macosx (system-type)))
(queue-window-callback (queue-window-callback
this this

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

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