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

.

Browse Source 
original commit: b54a32d36fe1aca500122e3cebff9d96607c30c7
This commit is contained in:
Matthew Flatt 2002-08-22 15:09:24 +00:00
parent fd6dc842c6
commit deeff76fab
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -411,7 +411,17 @@
(send dc draw-rectangle (+ x 50) y 20 20)
(send dc set-background obg)
(send dc set-brush ob)
(loop x (+ y 25) (cdr l)))))
(loop x (+ y 25) (cdr l))))
(send b set-style 'panel)
(send b set-color (get-panel-background))
(send dc set-brush b)
(send dc draw-rectangle 320 10 20 20)
(send dc draw-ellipse 320 35 20 20)
(send dc draw-arc 320 60 20 20 0 3.14)
(send dc draw-rounded-rectangle 320 85 20 20 2)
(send dc set-brush ob))
(send dc set-pen op))