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

restore (compared to old implementation) trampolines needed on some editor-canvas methods

Browse Source 
svn: r14876

original commit: 43c8b6cafd6b058a42ba19935e04c3d4291c03b6
This commit is contained in:
Matthew Flatt 2009-05-19 23:53:36 +00:00
parent 3b53d5dc67
commit 9b112e3600
2 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -224,5 +224,10 @@
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)
(editor-canvas-on-scroll)) (if (or (eq? 'msw (system-type))
(eq? 'macosx (system-type)))
(queue-window-callback
this
(lambda () (editor-canvas-on-scroll)))
(editor-canvas-on-scroll)))
(super-new)))) (super-new))))

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

@ -5,6 +5,7 @@
"editor-admin.ss" "editor-admin.ss"
"private.ss" "private.ss"
(only-in "cycle.ss" popup-menu%) (only-in "cycle.ss" popup-menu%)
(only-in "../helper.ss" queue-window-callback)
"wx.ss") "wx.ss")
(provide editor-canvas%) (provide editor-canvas%)
@ -350,9 +351,17 @@
(thunk))) (thunk)))
(define/override (on-set-focus) (define/override (on-set-focus)
(on-focus #t)) (if (eq? 'msw (system-type))
(queue-window-callback
this
(lambda () (on-focus #t)))
(on-focus #t)))
(define/override (on-kill-focus) (define/override (on-kill-focus)
(on-focus #f)) (if (eq? 'msw (system-type))
(queue-window-callback
this
(lambda () (on-focus #f)))
(on-focus #f)))
(define/public (is-focus-on?) focuson?) (define/public (is-focus-on?) focuson?)