com-pause ( boids-gadget -- )

Vocabulary

boids

Inputs

boids-gadget

an object

Outputs

None

Definition

USING: accessors boids.private kernel ;

IN: boids

: com-pause ( boids-gadget -- )
    find-boids-gadget dup paused>> not [ >>paused ] keep
    [ drop ] [ start-boids-thread ] if ;