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