highlighting used to take over the style completely, now it just takes over
the background. original commit: ec9e1b4e47918747d65562f45cf85f4ecc8cd8a5
This commit is contained in:
parent
93a3a7f895
commit
8506fa453e
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user