From 405ade476585c0e6e735ac11a5504d57d6bf4758 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 15 Apr 2009 03:18:11 +0000
Subject: [PATCH] svn: r14517

---
 collects/framework/private/text.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index 63711e616a..391bf360b2 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -1170,7 +1170,11 @@ WARNING: printf is rebound in the body of the unit to always
               (set! clear-yellow void)
               (when (and searching-str (= (string-length searching-str) (- end start)))
                 (when (do-search searching-str start end)
-                  (set! clear-yellow (highlight-range start end "khaki" #f 'low 'ellipse))))
+                  (set! clear-yellow (highlight-range start end
+                                                      (if (preferences:get 'framework:white-on-black?)
+                                                          (make-object color% 50 50 5)
+                                                          "khaki")
+                                                      #f 'low 'ellipse))))
               (end-edit-sequence)]))]
         [else
          (clear-yellow)