         [ neg random-boids append ] if
     ] change-boids drop ;
 
-: pause-toggle ( boids-gadget -- )
+: com-pause ( boids-gadget -- )
     dup paused>> not [ >>paused ] keep
     [ drop ] [ start-boids-thread ] if ;
 
-: randomize-boids ( boids-gadget -- )
+: com-randomize ( boids-gadget -- )
     [ length random-boids ] change-boids drop ;
 
 :: simulation-panel ( boids-gadget -- gadget )

    { 5 5 } <border> add-gadget

    <shelf> { 2 2 } >>gap
    "pause" [ drop boids-gadget pause-toggle ]
    <border-button> add-gadget
    "randomize" [ drop boids-gadget randomize-boids ]
    <border-button> add-gadget

    { 5 5 } <border> add-gadget

    "simulation" COLOR: gray <framed-labeled-gadget> ;

:: create-gadgets ( -- gadgets )
    <boids-gadget> :> boids-gadget
    boids-gadget [ start-boids-thread ] keep

    <pile> { 5 5 } >>gap 1.0 >>fill

