start-boids-thread ( gadget -- )

Vocabulary

boids

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors calendar kernel threads ui.gadgets ;

IN: boids

:: start-boids-thread ( gadget -- )
    [
        [ gadget paused>> ] [
            gadget iterate-system gadget relayout-1
            10 milliseconds sleep
        ] until
    ] in-thread ;