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

a bunch of little fixes to the 2htdp/image library (and related) for sfp submission:

Browse Source 
- added in the htdp/image version of the performance test case
- made gui-eval work with things other than slideshow
- extended render-image so that it works on bitmaps and image-snips

original commit: 22bc8f6d87f12efa6b720249a194db5dd555056e
This commit is contained in:
Robby Findler 2010-06-16 11:35:40 -05:00
parent 20a8870abb
commit 9eeb5c8483
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mrlib/image-core.rkt
View File

@ -552,7 +552,13 @@ has been moved out).
[font (send dc get-font)] [font (send dc get-font)]
[fg (send dc get-text-foreground)] [fg (send dc get-text-foreground)]
[smoothing (send dc get-smoothing)]) [smoothing (send dc get-smoothing)])
(render-normalized-shape (send image get-normalized-shape) dc dx dy) (cond
[(is-a? image bitmap%)
(send dc draw-bitmap image dx dy)]
[(is-a? image image-snip%)
(send dc draw-bitmap (send image get-bitmap) dx dy)]
[else
(render-normalized-shape (send image get-normalized-shape) dc dx dy)])
(send dc set-pen pen) (send dc set-pen pen)
(send dc set-brush brush) (send dc set-brush brush)
(send dc set-font font) (send dc set-font font)