added missing call-as-primary-owner

related to PR 10853
2010-12-28 14:22:50 -06:00 · 2010-12-28 14:22:50 -06:00 · ae2d7c47b6
commit ae2d7c47b6
parent 5ea0c93e0f
1 changed files with 9 additions and 7 deletions
--- a/collects/drracket/private/unit.rkt
+++ b/collects/drracket/private/unit.rkt
@ -2909,12 +2909,14 @@ module browser threading seems wrong.
          (define (set-visible-regions txt regions)
            (when regions
              (for-each (λ (canvas region) 
-                          (let ([admin (send txt get-admin)])
-                            (send admin scroll-to 
-                                  (first region)
-                                  (second region)
-                                  (third region)
-                                  (fourth region)))) 
+                          (send canvas call-as-primary-owner
+                                (λ ()
+                                  (let ([admin (send txt get-admin)])
+                                    (send admin scroll-to 
+                                          (first region)
+                                          (second region)
+                                          (third region)
+                                          (fourth region)))))) 
                        (send txt get-canvases)
                        regions)))