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

found better unsaved-in-a-tab character for windows

Browse Source 
svn: r3883
This commit is contained in:
Robby Findler 2006-07-28 21:44:22 +00:00
parent 1ded337d53
commit 450bf5b46f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1379,7 +1379,11 @@ module browser threading seems wrong.
string)) string))
(define/private (get-save-diamond-prefix) (define/private (get-save-diamond-prefix)
(let ([candidate-prefixes '("◆ " "* ")]) (let ([candidate-prefixes (list
(case (system-type)
[(windows) "• "]
[else "◆ "])
"* ")])
(ormap (ormap
(lambda (candidate) (lambda (candidate)
(and (andmap (λ (x) (send normal-control-font screen-glyph-exists? x #t)) (and (andmap (λ (x) (send normal-control-font screen-glyph-exists? x #t))