From de7a4bd743595690d0d415f8a6da7672169bce2d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 17 Oct 1996 23:55:42 +0000 Subject: [PATCH] check to make sure that color is available for graying out parens . original commit: 03a2ad724deaa66476e550075abf61f633cb6c16 --- collects/mred/edit.ss | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss index f6e2912b..ebce5bd6 100644 --- a/collects/mred/edit.ss +++ b/collects/mred/edit.ss @@ -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)]