From 450bf5b46f09218438fd0381b4fea46913e14814 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 28 Jul 2006 21:44:22 +0000
Subject: [PATCH] found better unsaved-in-a-tab character for windows

svn: r3883
---
 collects/drscheme/private/unit.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss
index c4364c45e3..bdbbbec307 100644
--- 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))