用Racket做一个拼图游戏——22 创建窗口布局

22 创建窗口布局

先看代码。再作解释：

;创建布局：

(define (create-layout)

(let ([hp (new horizontal-pane%

[parent main-frame])])

(create-left-layout hp)

(create-right-layout hp)))

上边create-left-layout和create-right-layout分别创建左右两块布局。左右两块布局是并列的。

22.1 窗格构件

horizontal-pane%是水平窗格类，它可以将其子窗口格式化排列成水平一排。这样左右布局就呈现为左右并排布置的状态，而不是上下。horizontal-pane%是由pane%派生出来的。

horizontal-pane%的属性有：parent、vert-margin、horiz