From d88ba8d2cd7ee0346f04cc17f16c3a252d84e2a5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 17 Feb 2016 08:56:23 -0600 Subject: [PATCH] fix on-scroll-to callback method when an editor has multiple canvases closes PR 15252 --- gui-lib/mred/private/wxme/editor-canvas.rkt | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/gui-lib/mred/private/wxme/editor-canvas.rkt b/gui-lib/mred/private/wxme/editor-canvas.rkt index fd760791..98d2fd01 100644 --- a/gui-lib/mred/private/wxme/editor-canvas.rkt +++ b/gui-lib/mred/private/wxme/editor-canvas.rkt @@ -967,7 +967,11 @@ (when scroll-via-copy? (set! on-scroll-to-called? #t) (begin-refresh-sequence) - (when scroll-via-copy? (when ed (send ed on-scroll-to)))) + (when scroll-via-copy? + (when ed + (call-as-primary-owner + (λ () + (send ed on-scroll-to)))))) (set-scroll-pos 'horizontal x)) #t)))) ;; Set y @@ -981,7 +985,10 @@ (when scroll-via-copy? (set! on-scroll-to-called? #t) (begin-refresh-sequence) - (when ed (send ed on-scroll-to)))) + (when ed + (call-as-primary-owner + (λ () + (send ed on-scroll-to)))))) (set-scroll-pos 'vertical y)) #t)))))) @@ -1040,7 +1047,10 @@ (repaint))) (when on-scroll-to-called? - (when ed (send ed after-scroll-to)) + (when ed + (call-as-primary-owner + (λ () + (send ed after-scroll-to)))) (end-refresh-sequence)))) (define/override (set-scrollbars x y x2 y2 x3 y3 x4 y4 ?) (void))