improved white on black setup a little more

svn: r1788

original commit: 6d8ddc10fefad1318287472d7131fb44fd91844b
This commit is contained in:
Robby Findler 2006-01-09 00:07:49 +00:00
parent 53d7c80139
commit 9f0d6ddf3f

View File

@ -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)))