steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

boids.ui: Clean up shelf code

db4
Eduardo Cavazos 2008-07-25 16:41:03 -05:00
parent 2291c2d18a
commit d2894204ea
1 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
extra/boids/ui/ui.factor
View File

@ -116,34 +116,36 @@ VARS: population-label cohesion-label alignment-label separation-label ;
<shelf> <shelf>
{ "ESC - Pause" [ drop toggle-loop ] button* add-gadget
[ "ESC - Pause" [ drop toggle-loop ] button* ]
[ "1 - Randomize" [ drop randomize ] button* ] "1 - Randomize" [ drop randomize ] button* add-gadget
[ <pile> 1 over set-pack-fill <pile> 1 over set-pack-fill
population-label> add-gadget population-label> add-gadget
"3 - Add 10" [ drop add-10-boids ] button* add-gadget "3 - Add 10" [ drop add-10-boids ] button* add-gadget
"2 - Sub 10" [ drop sub-10-boids ] button* add-gadget ] "2 - Sub 10" [ drop sub-10-boids ] button* add-gadget
add-gadget
[ <pile> 1 over set-pack-fill <pile> 1 over set-pack-fill
cohesion-label> add-gadget cohesion-label> add-gadget
"q - +0.1" [ drop inc-cohesion-weight ] button* add-gadget "q - +0.1" [ drop inc-cohesion-weight ] button* add-gadget
"a - -0.1" [ drop dec-cohesion-weight ] button* add-gadget ] "a - -0.1" [ drop dec-cohesion-weight ] button* add-gadget
add-gadget
[ <pile> 1 over set-pack-fill <pile> 1 over set-pack-fill
alignment-label> add-gadget alignment-label> add-gadget
"w - +0.1" [ drop inc-alignment-weight ] button* add-gadget "w - +0.1" [ drop inc-alignment-weight ] button* add-gadget
"s - -0.1" [ drop dec-alignment-weight ] button* add-gadget ] "s - -0.1" [ drop dec-alignment-weight ] button* add-gadget
add-gadget
[ <pile> 1 over set-pack-fill <pile> 1 over set-pack-fill
separation-label> add-gadget separation-label> add-gadget
"e - +0.1" [ drop inc-separation-weight ] button* add-gadget "e - +0.1" [ drop inc-separation-weight ] button* add-gadget
"d - -0.1" [ drop dec-separation-weight ] button* add-gadget ] "d - -0.1" [ drop dec-separation-weight ] button* add-gadget
add-gadget
} [ call ] map [ add-gadget ] each 1 over set-pack-fill
1 over set-pack-fill @top grid-add
@top grid-add
slate> @center grid-add slate> @center grid-add