<boids-frame> ( -- boids-frame )

Vocabulary

boids

Inputs

None

Outputs

boids-frame

an object

Definition

USING: accessors kernel sequences ui.gadgets ui.gadgets.borders
ui.gadgets.packs ;

IN: boids

:: <boids-frame> ( -- boids-frame )
    boids-frame new horizontal >>orientation
    <boids-gadget> :> boids-gadget boids-gadget
    [ start-boids-thread ] keep add-gadget <pile> { 5 5 } >>gap
    1.0 >>fill boids-gadget simulation-panel add-gadget
    boids-gadget behaviors>> [ behavior-panel add-gadget ] each
    { 5 5 } <border> add-gadget ;