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

check to make sure that color is available for graying out parens

Browse Source 
.

original commit: 03a2ad724deaa66476e550075abf61f633cb6c16
This commit is contained in:
Robby Findler 1996-10-17 23:55:42 +00:00
parent 50c2d7869d
commit de7a4bd743
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mred/edit.ss
View File

@ -459,7 +459,16 @@
[old-brush (send dc get-brush)]
[old-logical-function (send dc get-logical-function)]
[b/w-bitmap (rectangle-b/w-bitmap rectangle)]
[color (rectangle-color rectangle)]
[color (let* ([rc (rectangle-color rectangle)]
[tmpc (make-object wx:colour% 0 0 0)])
(if rc
(begin (send dc try-colour rc tmpc)
(and (<= (max (abs (- (send rc red) (send tmpc red)))
(abs (- (send rc blue) (send tmpc blue)))
(abs (- (send rc green) (send tmpc green))))
15)
rc))
rc))]
[left (rectangle-left rectangle)]
[top (rectangle-top rectangle)]
[width (rectangle-width rectangle)]