diff options
| author | iskm <iskm@users.noreply.github.com> | 2017-04-09 22:49:46 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-04-09 22:49:46 -0400 |
| commit | 385c4f4664ae8157e62f118f15d4c670a4c1356b (patch) | |
| tree | dcb37e29867a6294e8a321ea535e6e9ecd03c296 /tests/gui/windows2.rkt | |
| parent | 4890b61f08698a84e261f162dc2acd404bcc6b6b (diff) | |
| parent | 44c715c55c239495da8f780276866c0041f04139 (diff) | |
Merge pull request #1 from oplS17projects/mango0.2
Mango
Diffstat (limited to 'tests/gui/windows2.rkt')
| -rw-r--r-- | tests/gui/windows2.rkt | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/gui/windows2.rkt b/tests/gui/windows2.rkt new file mode 100644 index 0000000..3f60c80 --- /dev/null +++ b/tests/gui/windows2.rkt @@ -0,0 +1,15 @@ +#lang racket + +(require racket/gui/base) + +(define frame (new frame% + [label "Example"] + [width 300] + [height 300])) +(new canvas% [parent frame] + [paint-callback + (lambda (canvas dc) + (send dc set-scale 3 3) + (send dc set-text-foreground "blue") + (send dc draw-text "Don't Panic!" 0 0))]) +(send frame show #t) |