From cb381871d518077649be6272af823dabec2fcd28 Mon Sep 17 00:00:00 2001
From: Ibrahim Mkusa <ibrahimmkusa@gmail.com>
Date: Sun, 9 Apr 2017 22:37:50 -0400
Subject: reorganized repo a bit better

---
 tests/gui/windows2.rkt | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tests/gui/windows2.rkt

(limited to 'tests/gui/windows2.rkt')

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)
-- 
cgit v1.2.3