From 170712a4cf344dbf2bd0e33f7f9af38893f3a21f Mon Sep 17 00:00:00 2001
From: Ibrahim Mkusa <ibrahimmkusa@gmail.com>
Date: Sun, 2 Apr 2017 01:03:21 -0400
Subject: [PATCH] Added current work on testing feasibility of Hermes

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

diff --git a/feasibility_analysis/gui/windows2.rkt b/feasibility_analysis/gui/windows2.rkt
new file mode 100644
index 0000000..3f60c80
--- /dev/null
+++ b/feasibility_analysis/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)