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

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

@ -1119,7 +1119,7 @@ module browser threading seems wrong.
(define/public-final (get-defs) defs) (define/public-final (get-defs) defs)
(define/public-final (get-ints) ints) (define/public-final (get-ints) ints)
(define/public-final (get-visible-defs) (values visible-defs defs-shown?)) (define/public-final (get-visible-defs) (values visible-defs defs-shown?))
(define/public-final (set-visible-defs vd ds?) (define/public-final (set-visible-defs vd ds?)
(set! visible-defs vd) (set! visible-defs vd)
(set! defs-shown? ds?)) (set! defs-shown? ds?))
(define/public-final (get-visible-ints) (values visible-ints ints-shown?)) (define/public-final (get-visible-ints) (values visible-ints ints-shown?))
@ -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)))