From 41b385f0e1654639ab5355cbded91ae8da3c5395 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 26 Nov 2004 17:14:47 +0000 Subject: [PATCH] . original commit: 598f24ad484e75a4629b48006908749a011e64de --- collects/mred/mred.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 96946ac3..1463dc4c 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -3587,7 +3587,7 @@ [abox (box 0)]) ; To bottom of first line (send (send e get-admin) get-dc #f ybox) - (set! dy (+ -2 (abs (unbox ybox)) (send e line-location 0 #f))) ; -2 is fudge factor + (set! dy (+ (abs (unbox ybox)) (send e line-location 0 #f))) ; Add diff for client size (send c get-client-size wbox hbox)