diff options
| author | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-09 22:37:50 -0400 |
|---|---|---|
| committer | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-09 22:37:50 -0400 |
| commit | cb381871d518077649be6272af823dabec2fcd28 (patch) | |
| tree | 98547efe9389421f9f58219a8278e166d2b069c6 /tests/gui/windows2.rkt | |
| parent | 404f3d7edfe648dc3fd51c1afc1b3984557f1902 (diff) | |
reorganized repo a bit better
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) |