Added current work on testing feasibility of Hermes

This commit is contained in:
Ibrahim Mkusa 2017-04-02 01:03:21 -04:00
parent fc9b221812
commit 170712a4cf

View File

@ -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)