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

undid last commit

Browse Source 
svn: r6791
This commit is contained in:
Robby Findler 2007-07-02 03:32:54 +00:00
parent 0ef2e50e96
commit 81fc35f5a7
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -282,7 +282,7 @@ module browser threading seems wrong.
(define make-execute-bitmap (define make-execute-bitmap
(bitmap-label-maker (string-constant execute-button-label) (bitmap-label-maker (string-constant execute-button-label)
(get-running-bitmap))) (build-path (collection-path "icons") "run.png")))
(define make-save-bitmap (define make-save-bitmap
(bitmap-label-maker (string-constant save-button-label) (bitmap-label-maker (string-constant save-button-label)
(build-path (collection-path "icons") "save.png"))) (build-path (collection-path "icons") "save.png")))
@ -1464,7 +1464,7 @@ module browser threading seems wrong.
(if (equal? f1 f2) (if (equal? f1 f2)
(loop (cdr p1) (cdr p2) (+ i 1)) (loop (cdr p1) (cdr p2) (+ i 1))
i))])))] i))])))]
[exp (reverse (explode-path (normalize-path/exists fn)))] [exp (reverse (explode-path (normalize-path fn)))]
[other-exps [other-exps
(filter (filter
(λ (x) (and x (λ (x) (and x
@ -1472,7 +1472,7 @@ module browser threading seems wrong.
(map (λ (other-tab) (map (λ (other-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 (normalize-path/exists fn)))))) (reverse (explode-path (normalize-path fn))))))
tabs))] tabs))]
[size [size
(let loop ([other-exps other-exps] (let loop ([other-exps other-exps]
@ -1484,11 +1484,6 @@ module browser threading seems wrong.
(max new-size size)))]))]) (max new-size size)))]))])
(path->string (apply build-path (reverse (take-n size exp)))))) (path->string (apply build-path (reverse (take-n size exp))))))
(define/private (normalize-path/exists fn)
(if (file-exists? fn)
(normalize-path fn)
fn))
(define/private (add-modified-flag text string) (define/private (add-modified-flag text string)
(if (send text is-modified?) (if (send text is-modified?)
(let ([prefix (get-save-diamond-prefix)]) (let ([prefix (get-save-diamond-prefix)])