diff options
| -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) |