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
defs
(if fn
(get-tab-label-from-filename fn tab)
(get-tab-label-from-filename fn)
(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
(λ (n lst)
(let loop ([n n]
@ -1321,12 +1321,12 @@ module browser threading seems wrong.
[exp (reverse (explode-path fn))]
[other-exps
(filter
(λ (x) x)
(λ (x) (and x
(not (equal? exp x))))
(map (λ (other-tab)
(and (not (eq? other-tab tab))
(let ([fn (send (send other-tab get-defs) get-filename)])
(and fn
(reverse (explode-path fn))))))
(let ([fn (send (send other-tab get-defs) get-filename)])
(and fn
(reverse (explode-path fn)))))
tabs))]
[size
(let loop ([other-exps other-exps]
@ -2036,7 +2036,7 @@ module browser threading seems wrong.
(send new-tab set-ints ints)
(set! tabs (append tabs (list new-tab)))
(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)))
(init-definitions-text new-tab)
(when filename (send defs load-file filename))