From b882281b33e67b500dc366d60d14c5d7124f4a5e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 19 May 2015 13:59:15 -0600 Subject: [PATCH] canvas% on-scroll: call in non-atomic mode Add a missing exit from atomic mode on the way to an overidden `on-scroll` method. Closes PR 15068 --- gui-lib/mred/private/wxcanvas.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gui-lib/mred/private/wxcanvas.rkt b/gui-lib/mred/private/wxcanvas.rkt index 59f309f6..1bdd2db0 100644 --- a/gui-lib/mred/private/wxcanvas.rkt +++ b/gui-lib/mred/private/wxcanvas.rkt @@ -62,7 +62,7 @@ (lambda (e) (let ([mred (get-mred)]) (if mred - (send mred on-scroll e) + (as-exit (lambda () (send mred on-scroll e))) (as-exit (lambda () (super on-scroll e)))))))] [on-paint (entry-point (lambda ()