From 3c39db4deb4d321ddee7ed88e546a579c9c76eae Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 30 Nov 2004 21:40:11 +0000 Subject: [PATCH] . original commit: ad17f00f2ad3a076671b64c2b4e04c7c55d94b78 --- collects/mrlib/name-message.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mrlib/name-message.ss b/collects/mrlib/name-message.ss index 230df9b6..2ece3de3 100644 --- a/collects/mrlib/name-message.ss +++ b/collects/mrlib/name-message.ss @@ -143,7 +143,7 @@ (define black-color (make-object color% "BLACK")) (define triangle-width 10) - (define triangle-height 16) + (define triangle-height 14) (define triangle-color (make-object color% 50 50 50)) (define border-inset 1) @@ -219,7 +219,7 @@ 1 'solid)) (let ([x (- w triangle-width circle-spacer)] [y (- (/ h 2) (/ triangle-height 2))]) - (let loop ([dx 0][dy 6]) + (let loop ([dx 0][dy 5]) (unless (= 5 dx) (send dc draw-line (+ x 1 dx) (+ y dy)