Racket GUI，设置窗口的背景颜色

#lang racket
(require racket/gui)

(define *vm-frame* (new frame% 
                      [label "Test"]
                      [width 600]
                      [height 400]
                      [x 100]
                      [y 100]
                      ))

(define frame-canvas%
  (class canvas%
    (super-new)
    (inherit get-dc)

    (define/override (on-paint)
      (let ([my-dc (get-dc)])
        (send my-dc set-background "yellow")  ;设置窗口背景为黄色
        (send my-dc clear)))))

(let ([frame-canvas (new frame-canvas% [parent *vm-frame*])])
  (send *vm-frame* show #t))