Added current work on testing feasibility of Hermes
This commit is contained in:
parent
fc9b221812
commit
170712a4cf
15
feasibility_analysis/gui/windows2.rkt
Normal file
15
feasibility_analysis/gui/windows2.rkt
Normal 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)
|
Loading…
Reference in New Issue
Block a user