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

fix paren hiliting

Browse Source 
original commit: 8c0c3f661b39d2967c842144751a78eefd94f638
This commit is contained in:
Matthew Flatt 1998-07-15 20:28:17 +00:00
parent 5e70c70bf6
commit b9a6facaa8
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/edit.ss
View File

@ -472,15 +472,13 @@
[height (max 0 (- bottom top))])
(let/ec k
(cond
[(and (not before)
color)
[(and before 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 (not before)
b/w-bitmap)
[(and (not before) (not color) b/w-bitmap)
(send pen set-stipple b/w-bitmap)
(send pen set-style wx:const-stipple)
(send brush set-stipple b/w-bitmap)