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

.

Browse Source 
original commit: 3fc3939153db1c2daaeffff325fe4bbb886b6008
This commit is contained in:
Matthew Flatt 2005-01-05 18:56:38 +00:00
parent f163e90ac1
commit 20552bbc29
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mred/draw.ss
View File

@ -887,6 +887,8 @@
(let ([p (send dc get-pen)])
(send dc set-pen "blue" 8 'solid)
(send dc draw-rectangle 160 310 20 20)
(send dc set-pen "blue" 7 'solid)
(send dc draw-rectangle 187 310 20 20)
(send dc set-pen p)))
(when (and last? (not (or ps? (eq? dc can-dc)))