From 1a8bca736f386dc81b9e0d75d280eb588aa66a39 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 5 Dec 2009 18:35:25 +0000 Subject: [PATCH] PR 10581 svn: r17210 --- collects/htdp/image.ss | 2 +- collects/tests/mzscheme/htdp-image.ss | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/htdp/image.ss b/collects/htdp/image.ss index 2f5b66c5e8..182c2a099d 100644 --- a/collects/htdp/image.ss +++ b/collects/htdp/image.ss @@ -407,7 +407,7 @@ plt/collects/tests/mzscheme/htdp-image.ss (cond [(string=? str "") (let-values ([(tw th) (get-text-size size "dummyX")]) - (rectangle 0 th 'solid 'black))] + (put-pinhole (rectangle 0 th 'solid 'black) 0 0))] [else (let ([color (make-color% color-in)]) (let-values ([(tw th) (get-text-size size str)]) diff --git a/collects/tests/mzscheme/htdp-image.ss b/collects/tests/mzscheme/htdp-image.ss index 45dd5a6525..995c2ad941 100644 --- a/collects/tests/mzscheme/htdp-image.ss +++ b/collects/tests/mzscheme/htdp-image.ss @@ -830,6 +830,10 @@ 'ph-text (list (pinhole-x (text "10" 10 'red)) (pinhole-y (text "10" 10 'red)))) +(test (list 0 0) + 'ph-text + (list (pinhole-x (text "" 10 'red)) + (pinhole-y (text "" 10 'red)))) (test (list 3 3) 'ph-add-line