From 54adde155a338d2820f6e9a2d422fdcdb3951022 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 23 Nov 2009 17:05:09 +0000 Subject: [PATCH] svn: r16995 --- collects/framework/private/text.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index e12ad06ec6..c531f0bfb3 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -475,7 +475,7 @@ WARNING: printf is rebound in the body of the unit to always [top (rectangle-top rectangle)] [right (if (number? (rectangle-right rectangle)) (rectangle-right rectangle) - view-x)] + (+ view-x view-width))] [bottom (rectangle-bottom rectangle)] [width (max 0 (- right left))] [height (max 0 (- bottom top))])