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

partial fix for the bug where tabs scroll positions move around when switching tabs

Browse Source 
svn: r1913
This commit is contained in:
Robby Findler 2006-01-21 18:12:56 +00:00
parent f1c0a36200
commit 4b27eba829
1 changed files with 26 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
collects/drscheme/private/unit.ss
View File

@ -2135,21 +2135,17 @@ module browser threading seems wrong.
(define/private (save-visible-tab-regions)
(define (get-visible-regions txt)
(map (λ (canvas) (get-visible-region txt canvas))
(map (λ (canvas)
(let-values ([(x y w h _) (get-visible-region canvas)])
(list x y w h)))
(send txt get-canvases)))
(define (get-visible-region txt canvas)
(let ([xb (box 0)]
[yb (box 0)]
[wb (box 0)]
[hb (box 0)])
(send canvas call-as-primary-owner
(λ ()
(let ([admin (send txt get-admin)])
(when admin
(send admin get-view xb yb wb hb)))))
(list (unbox xb) (unbox yb) (unbox wb) (unbox hb))))
(send current-tab set-visible-ints (get-visible-regions interactions-text) interactions-shown?)
(send current-tab set-visible-defs (get-visible-regions definitions-text) definitions-shown?)
(send current-tab set-visible-ints
(get-visible-regions interactions-text)
interactions-shown?)
(send current-tab set-visible-defs
(get-visible-regions definitions-text)
definitions-shown?)
(send current-tab set-focus-d/i
(if (ormap (λ (x) (send x has-focus?)) interactions-canvases)
'ints
@ -2162,20 +2158,23 @@ module browser threading seems wrong.
(when (equal? (length canvases) (length regions))
(for-each (λ (c r) (set-visible-region txt c r)) canvases regions)))))
(define (set-visible-region txt canvas region)
(send canvas scroll-to
(first region)
(second region)
(third region)
(fourth region)
#t))
(let-values ([(vi is?) (send current-tab get-visible-ints)])
(set-visible-regions interactions-text vi)
(set! interactions-shown? is?))
(let-values ([(vd ds?) (send current-tab get-visible-defs)])
(let ([admin (send txt get-admin)])
;(printf "setting to ~s\n" region)
(send admin scroll-to
(first region)
(second region)
(third region)
(fourth region))
#;
(let-values ([(x y w h _) (get-visible-region canvas)])
(printf " set to ~s\n" (list x y w h)))))
(let-values ([(vi is?) (send current-tab get-visible-ints)]
[(vd ds?) (send current-tab get-visible-defs)])
(set! interactions-shown? is?)
(set! definitions-shown? ds?)
(update-shown)
(set-visible-regions definitions-text vd)
(set! definitions-shown? ds?))
(update-shown)
(set-visible-regions interactions-text vi))
(case (send current-tab get-focus-d/i)
[(defs) (send (car definitions-canvases) focus)]
[(ints) (send (car interactions-canvases) focus)]))