用Racket做一个拼图游戏——23 创建左侧布局

23 创建左侧布局

先看代码，再作分析。

;创建左侧布局：

(define (create-left-layout p)

(let ([vp (new vertical-panel%

[parent p]

[alignment '(center top)]

[min-width 300]

[stretchable-width #f])])

;创建目标图画布：

(set! canvas/target

(new canvas%

[parent vp]

[horiz-margin 3]

[paint-callback

canvas/target-callback]))

;创建命令功能区：

(create-command-area vp)

;创建状态显示区：

(create-status-area vp)))