diff options
| author | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-02 01:03:21 -0400 |
|---|---|---|
| committer | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-02 01:03:21 -0400 |
| commit | 170712a4cf344dbf2bd0e33f7f9af38893f3a21f (patch) | |
| tree | 5c30f0f7919050024addafc6bcdf93c3391c920b | |
| parent | fc9b221812b9c60ddcccfede68c408c1e3b63a7e (diff) | |
Added current work on testing feasibility of Hermes
| -rw-r--r-- | feasibility_analysis/gui/windows2.rkt | 15 |
1 files changed, 15 insertions, 0 deletions
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) |