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

fix paren hilighting

Browse Source 
original commit: 2319a333149ca2263bc9ce7f87cdc439d2e7b8cd
This commit is contained in:
Matthew Flatt 1998-07-02 20:31:15 +00:00
parent 3472d2c7bc
commit 3b5fa2cf5b
1 changed files with 6 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/mred/edit.ss
View File

@ -473,28 +473,19 @@
(let/ec k
(cond
[(and (not before)
color
(not (eq? wx:platform 'unix))
(<= 8 (wx:display-depth)))
color)
(send pen set-style wx:const-solid)
(send brush set-style wx:const-solid)
(send pen set-colour color)
(send brush set-colour color)
(send dc set-logical-function wx:const-and)]
[(and before
color
(<= 8 (wx:display-depth)))
(send* pen (set-style wx:const-solid)
(set-colour color))
(send* brush (set-style wx:const-solid)
(set-colour color))
(send dc set-logical-function wx:const-copy)]
[(and (not before)
(< (wx:display-depth) 8)
b/w-bitmap
(eq? wx:platform 'unix))
b/w-bitmap)
(send pen set-stipple b/w-bitmap)
(send brush set-stipple b/w-bitmap)]
(send pen set-style wx:const-stipple)
(send brush set-stipple b/w-bitmap)
(send brush set-style wx:const-stipple)
(send dc set-logical-function wx:const-and)]
[else (k (void))])
(send dc set-pen pen)
(send dc set-brush brush)