From 9f0d6ddf3f19a0f4114d797bf3ffeca55b6e34f5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 9 Jan 2006 00:07:49 +0000 Subject: [PATCH] improved white on black setup a little more svn: r1788 original commit: 6d8ddc10fefad1318287472d7131fb44fd91844b --- 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 123f2df8..800ffff7 100644 --- a/collects/framework/private/text.ss +++ b/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)))