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

canvas% on-scroll: call in non-atomic mode

Browse Source 
Add a missing exit from atomic mode on the way to an overidden
`on-scroll` method.

Closes PR 15068
This commit is contained in:
Matthew Flatt 2015-05-19 13:59:15 -06:00
parent bc87ded206
commit b882281b33
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gui-lib/mred/private/wxcanvas.rkt
View File

@ -62,7 +62,7 @@
(lambda (e) (lambda (e)
(let ([mred (get-mred)]) (let ([mred (get-mred)])
(if mred (if mred
(send mred on-scroll e) (as-exit (lambda () (send mred on-scroll e)))
(as-exit (lambda () (super on-scroll e)))))))] (as-exit (lambda () (super on-scroll e)))))))]
[on-paint (entry-point [on-paint (entry-point
(lambda () (lambda ()