Added current work on testing feasibility of Hermes

2017-04-02 01:03:21 -04:00 · 2017-04-02 01:03:21 -04:00 · 170712a4cf
commit 170712a4cf
parent fc9b221812
1 changed files with 15 additions and 0 deletions
--- a/feasibility_analysis/gui/windows2.rkt
+++ 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)