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

svn: r3883
2006-07-28 21:44:22 +00:00 · 2006-07-28 21:44:22 +00:00 · 450bf5b46f
commit 450bf5b46f
parent 1ded337d53
1 changed files with 5 additions and 1 deletions
--- a/collects/drscheme/private/unit.ss
+++ b/collects/drscheme/private/unit.ss
@ -1379,7 +1379,11 @@ module browser threading seems wrong.
                string))
          
          (define/private (get-save-diamond-prefix)
-            (let ([candidate-prefixes '("◆ " "* ")])
+            (let ([candidate-prefixes (list 
+                                       (case (system-type)
+                                         [(windows) "• "]
+                                         [else "◆ "])
+                                       "* ")])
              (ormap
               (lambda (candidate)
                 (and (andmap (λ (x) (send normal-control-font screen-glyph-exists? x #t))