#lang racket
(require racket/gui)
(define root (new frame%
[label "Test"]
[width 600]
[height 400]
[x 100]
[y 100]))
(define root-icon (read-bitmap "sun.bmp")) ;定义一个图标
(send root set-icon root-icon) ;设置窗口图标
(send root show #t)