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

attempted fix to PR 7470

Browse Source 
svn: r1543
This commit is contained in:
Robby Findler 2005-12-06 22:18:48 +00:00
parent e0eb139f42
commit 4dc9942fcf
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1294,10 +1294,10 @@ module browser threading seems wrong.
(add-modified-flag (add-modified-flag
defs defs
(if fn (if fn
(get-tab-label-from-filename fn tab) (get-tab-label-from-filename fn)
(send defs get-filename/untitled-name))))) (send defs get-filename/untitled-name)))))
(define/private (get-tab-label-from-filename fn tab) (define/private (get-tab-label-from-filename fn)
(let* ([take-n (let* ([take-n
(λ (n lst) (λ (n lst)
(let loop ([n n] (let loop ([n n]
@ -1321,12 +1321,12 @@ module browser threading seems wrong.
[exp (reverse (explode-path fn))] [exp (reverse (explode-path fn))]
[other-exps [other-exps
(filter (filter
(λ (x) x) (λ (x) (and x
(not (equal? exp x))))
(map (λ (other-tab) (map (λ (other-tab)
(and (not (eq? other-tab tab)) (let ([fn (send (send other-tab get-defs) get-filename)])
(let ([fn (send (send other-tab get-defs) get-filename)]) (and fn
(and fn (reverse (explode-path fn)))))
(reverse (explode-path fn))))))
tabs))] tabs))]
[size [size
(let loop ([other-exps other-exps] (let loop ([other-exps other-exps]
@ -2036,7 +2036,7 @@ module browser threading seems wrong.
(send new-tab set-ints ints) (send new-tab set-ints ints)
(set! tabs (append tabs (list new-tab))) (set! tabs (append tabs (list new-tab)))
(send tabs-panel append (if filename (send tabs-panel append (if filename
(get-tab-label-from-filename filename #f) (get-tab-label-from-filename filename)
(get-defs-tab-label defs #f))) (get-defs-tab-label defs #f)))
(init-definitions-text new-tab) (init-definitions-text new-tab)
(when filename (send defs load-file filename)) (when filename (send defs load-file filename))