PasteRack.org
Paste # 77495
2014-09-18 20:25:02

Fork as a new paste.

Paste viewed 9 times.


Embed:

  1. #lang racket
  2. (require racket/gui)
  3.  
  4. (define (draw dc)
  5.   (send dc set-scale 3 3)
  6.   (send dc set-text-foreground "blue")
  7.   (send dc draw-text "Don't Panic!" 0 0))
  8.  
  9. (define frame (new frame%
  10.                    [label "Example"]
  11.                    [width 300]
  12.                    [height 300]))
  13.  
  14. (define game-canvas% (class canvas%
  15.     (inherit refresh)
  16.  
  17.     (define/override (on-subwindow-char _ ch)
  18.         (format "test"))
  19.  
  20.     (super-new)))
  21.  
  22. (define canvas (new game-canvas% [parent frame]
  23.              [paint-callback
  24.               (lambda (canvas dc)
  25.                 (draw dc))]))
  26.  
  27. (send canvas set-canvas-background (make-object color% "gray"))
  28. (send frame show #t)

=>