From ae5c9186911c7e8cd9a55a459f833ff74394663f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 9 Sep 1999 20:24:53 +0000 Subject: [PATCH] .. original commit: f3ced4c8b62addf41b50ca2a87ccb12318e477bf --- collects/framework/text.ss | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/framework/text.ss b/collects/framework/text.ss index 01dad253..c901398b 100644 --- a/collects/framework/text.ss +++ b/collects/framework/text.ss @@ -218,8 +218,6 @@ [b/w-bitmap (rectangle-b/w-bitmap rectangle)] [color (let* ([rc (rectangle-color rectangle)] [tmpc (make-object color% 0 0 0)]) - (and - #f (if rc (begin (send dc try-color rc tmpc) (and (<= (max (abs (- (send rc red) (send tmpc red))) @@ -227,7 +225,7 @@ (abs (- (send rc green) (send tmpc green)))) 50) rc)) - rc)))] + rc))] [first-number (lambda (x y) (if (number? x) x y))] [left (max left-margin (first-number (rectangle-left rectangle) view-x))] [top (max top-margin (rectangle-top rectangle))] @@ -476,4 +474,4 @@ (define clever-file-format% (clever-file-format-mixin file%)) (define backup-autosave% (editor:backup-autosave-mixin clever-file-format%)) (define searching% (searching-mixin backup-autosave%)) - (define info% (info-mixin (editor:info-mixin searching%)))) \ No newline at end of file + (define info% (info-mixin (editor:info-mixin searching%))))