find-boids-gadget ( gadget -- boids-gadget )

Vocabulary

boids.private

Inputs

gadget

an object

Outputs

boids-gadget

an object

Definition

USING: accessors boids kernel sequences ;

IN: boids.private

: find-boids-gadget ( gadget -- boids-gadget )
    dup boids-gadget?
    [ children>> [ boids-gadget? ] find nip ] unless ;