<window> ( board-gadgets orientation fsn constraint -- gadget )


Vocabulary
gamelib.ui

Inputs
board-gadgetsan object
orientationan object
fsnan object
constraintan object


Outputs
gadgetan object


Definition
USING: accessors sequences ui.gadgets.tracks ;

IN: gamelib.ui

:: <window>
( board-gadgets orientation fsn constraint -- gadget )
orientation window-gadget new-track
fsn >>focusable-child-number board-gadgets
[ constraint track-add ] each ;