suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
the background.

original commit: ec9e1b4e47918747d65562f45cf85f4ecc8cd8a5
This commit is contained in:
Robby Findler 1996-09-04 14:15:31 +00:00
parent 93a3a7f895
commit 8506fa453e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/edit.ss
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