add-board ( gadget board -- gadget )

Vocabulary

gamelib.ui

Inputs

gadget	an object
board	an object

Outputs

gadget

an object

Definition

USING: accessors ranges sequences ;

IN: gamelib.ui

:: add-board ( gadget board -- gadget )
    gadget board >>board
    [ board length [0..b) [ gadget draw-cells ] each ]
    draw-append ;