From 4e263e7d8fa178286ed177d77192d4365db30c8d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 3 Jun 1999 18:41:48 +0000 Subject: [PATCH] ... original commit: 1da56edf3e0ec7342adc10407c83e4b698fc7707 --- collects/framework/text.ss | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/framework/text.ss b/collects/framework/text.ss index 8cbb5931..75635874 100644 --- a/collects/framework/text.ss +++ b/collects/framework/text.ss @@ -74,7 +74,11 @@ (cond [(null? rectangles) (when left - (invalidate-bitmap-cache left top (- right left) (- bottom top)))] + (let ([width (- right left)] + [height (- bottom top)]) + (when (and (> width 0) + (> height 0)) + (invalidate-bitmap-cache left top width height))))] [else (let* ([r (car rectangles)] [rleft (rectangle-left r)]