用Racket做一个拼图游戏——25 创建行列设置组

25 创建行列设置组

先看代码，后作解释。

<

;创建行列设置组：

(define (create-row&col-set-group p)

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

[label "拼图排列"]

[parent p]

[min-height 30]

[stretchable-height #f])])

(let ([gp/hp (new horizontal-pane%

[parent gp])])

(set! text/row (new text-field%

[label "行数"]

[parent gp/hp]

[init-value "3"]

[callback text/row-callback]))

(set! text/col (new text-field%