用Racket做一个拼图游戏——26 创建拼图命令按钮组

26 创建拼图命令按钮组

先看代码，再作解释：

;创建拼图命令按钮组：

(define (create-puzzle-command-button-group p)

(let ([gp (new group-box-panel%

[label "拼图命令"]

[parent p]

[stretchable-height #f])])

(create-button button/select-picture gp "选择..."

button/select-picture-callback)

(create-button button/blend-cells gp "混合拼图"

button/blend-cells-callback)

(create-button button/play-again gp "再来一次"

button/play-again-callback)))

这里在定义组框里的构件时，采用了和之前完全不同的方式。本来画风应该是这样的：