PasteRack.org
Paste # 16368
2015-05-23 06:02:03

Fork as a new paste.

Paste viewed 171 times.


Embed:

  1. #lang racket
  2.  
  3. (require racket/gui)
  4.  
  5. (define my-canvas%
  6.   (class canvas%
  7.     (inherit get-dc)
  8.     (define dc (get-dc))))
  9.  
  10. (define my-frame (new frame%
  11.                    (label "hai")))
  12.  
  13. (new my-canvas%
  14.      (parent my-frame))

=>