用Racket做一个拼图游戏——24 创建命令功能区

24 创建命令功能区

先看代码。再作解释：

;创建命令功能区：

(define (create-command-area p)

(let ([vp (new vertical-panel%

[parent p]

[alignment '(center top)])])

;创建行列设置组：

(create-row&col-set-group vp)

;创建拼图命令按钮组：

(create-puzzle-command-button-group vp)

(set! button/exit

(new button%

[label "退出"]

[parent vp]

[callback button/exit-callback]))))

这里同样使用了竖向面板。除了利用两个函数建立两个视图区外，最后还定义了一个按钮类button%对象。

24.1 </