     "simulation" COLOR: gray <framed-labeled-gadget> ;
 
 :: create-gadgets ( -- gadgets )
-    <shelf>
     <boids-gadget> :> boids-gadget
     boids-gadget [ start-boids-thread ] keep
-    add-gadget
 
     <pile> { 5 5 } >>gap 1.0 >>fill
 

    { 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

! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays boids.simulation calendar classes
colors.constants kernel literals locals math math.functions
math.trig models namespaces opengl opengl.demo-support opengl.gl
sequences threads ui ui.commands ui.gadgets ui.gadgets.borders
ui.gadgets.buttons ui.gadgets.frames ui.gadgets.grids
ui.gadgets.labeled ui.gadgets.labels ui.gadgets.packs
ui.gadgets.sliders ui.gadgets.tracks ui.gadgets.worlds ui.render
ui.tools.common ;
QUALIFIED-WITH: models.range mr
IN: boids

