#lang racket
(require racket/gui)

(define (draw dc)
  (send dc set-scale 3 3)
  (send dc set-text-foreground "blue")
  (send dc draw-text "Don't Panic!" 0 0))

(define frame (new frame%
                   [label "Example"]
                   [width 300]
                   [height 300]))

(define game-canvas% (class canvas%
    (inherit refresh)             
                       
    (define/override (on-subwindow-char _ ch)
        (format "test"))
  
    (super-new)))

(define canvas (new game-canvas% [parent frame]
             [paint-callback
              (lambda (canvas dc)
                (draw dc))]))

(send canvas set-canvas-background (make-object color% "gray"))
(send frame show #t)