highlighting used to take over the style completely, now it just takes over

the background.

original commit: ec9e1b4e47918747d65562f45cf85f4ecc8cd8a5
This commit is contained in:
Robby Findler 1996-09-04 14:15:31 +00:00
parent 93a3a7f895
commit 8506fa453e

View File

@ -389,8 +389,10 @@
(opt-lambda (start end color [bitmap #f])
(let ([l (make-range start end bitmap color)]
[colored-delta (make-object wx:style-delta%)]
[uncolored-delta (make-object wx:style-delta%)]
[hack-time? (and (eq? 'unix wx:platform) (<= 8 (wx:display-depth)))])
(when hack-time?
(send uncolored-delta set-delta-background "WHITE")
(send colored-delta set-delta-background color)
(change-style colored-delta start end))
(set! ranges (cons l ranges))
@ -404,8 +406,7 @@
(cdr r)
(cons (car r) (loop (cdr r))))])))
(when hack-time?
(change-style (send (get-style-list) find-named-style "Standard")
start end))
(change-style uncolored-delta start end))
(recompute-range-rectangles))))]
[on-paint