suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PR 10581

Browse Source 
svn: r17210
This commit is contained in:
Robby Findler 2009-12-05 18:35:25 +00:00
parent 3f2e1c4b20
commit 1a8bca736f
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/htdp/image.ss
View File

@ -407,7 +407,7 @@ plt/collects/tests/mzscheme/htdp-image.ss
(cond (cond
[(string=? str "") [(string=? str "")
(let-values ([(tw th) (get-text-size size "dummyX")]) (let-values ([(tw th) (get-text-size size "dummyX")])
(rectangle 0 th 'solid 'black))] (put-pinhole (rectangle 0 th 'solid 'black) 0 0))]
[else [else
(let ([color (make-color% color-in)]) (let ([color (make-color% color-in)])
(let-values ([(tw th) (get-text-size size str)]) (let-values ([(tw th) (get-text-size size str)])

4
collects/tests/mzscheme/htdp-image.ss
View File

@ -830,6 +830,10 @@
'ph-text 'ph-text
(list (pinhole-x (text "10" 10 'red)) (list (pinhole-x (text "10" 10 'red))
(pinhole-y (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) (test (list 3 3)
'ph-add-line 'ph-add-line