From 84ae3db2603587fb178c99efb9b77be57b4c5269 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 23 Nov 2009 17:05:09 +0000 Subject: [PATCH] svn: r16995 original commit: 54adde155a338d2820f6e9a2d422fdcdb3951022 --- 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 e12ad06e..c531f0bf 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))])