improved white on black setup a little more

svn: r1788

collects/drscheme/private/font.ss

@@ -171,7 +171,6 @@
                      (send text set-position 0 0)
                      (send text lock #t)
                      (send text end-edit-sequence))])
-             (send text set-styles-fixed #t)
              (preferences:add-callback
               'framework:standard-style-list:font-size
               (λ (p v) (send size-slider set-value v)))

collects/framework/private/text.ss

@@ -363,7 +363,11 @@ WARNING: printf is rebound in the body of the unit to always
       (define foreground-color-mixin
         (mixin (basic<%> editor:standard-style-list<%>) (foreground-color<%>)
           (inherit begin-edit-sequence end-edit-sequence change-style get-style-list)
-	  (define/override (get-fixed-style)
+          
+          (define/override (default-style-name)
+            (editor:get-default-color-style-name))
+	  
+          (define/override (get-fixed-style)
             (send (editor:get-standard-style-list)
 		  find-named-style
 		  (editor:get-default-color-style-name)))

collects/sirmail/readr.ss

@@ -880,12 +880,9 @@
           i))
 
       (define display-text%
-        (class (html-text-mixin
-                (text:foreground-color-mixin
-                 text:standard-style-list%))
-          (super-new)
-          (inherit set-styles-fixed)
-          (set-styles-fixed #t)))
+        (html-text-mixin
+         (text:foreground-color-mixin
+          text:standard-style-list%)))
       
       ;; Class for the panel that has columns titles and
       ;; supports clicks to change the sort order