Racket GUI，设置窗口居中显示

#lang racket
(require racket/gui)

(define-values (screen-width screen-height) (get-display-size))
(define app-width 600)
(define app-height 400)
(define frame (new frame%
                   [label "Test"]
                   [width app-width]
                   [height app-height]
                   [x (- (quotient screen-width 2) (quotient app-width 2))]      ;设置窗口居中显示
                   [y (- (quotient screen-height 2) (quotient app-height 2))]   ;设置窗口居中显示
                   ))
(send frame show #t)