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

added missing call-as-primary-owner

Browse Source 
related to PR 10853
This commit is contained in:
Robby Findler 2010-12-28 14:22:50 -06:00
parent 5ea0c93e0f
commit ae2d7c47b6
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/drracket/private/unit.rkt
View File

@ -2909,12 +2909,14 @@ module browser threading seems wrong.
(define (set-visible-regions txt regions) (define (set-visible-regions txt regions)
(when regions (when regions
(for-each (λ (canvas region) (for-each (λ (canvas region)
(let ([admin (send txt get-admin)]) (send canvas call-as-primary-owner
(send admin scroll-to (λ ()
(first region) (let ([admin (send txt get-admin)])
(second region) (send admin scroll-to
(third region) (first region)
(fourth region)))) (second region)
(third region)
(fourth region))))))
(send txt get-canvases) (send txt get-canvases)
regions))) regions)))