From 86f14db12d47a55e181136b7934f1df78b14a455 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sun, 13 Jul 2008 02:05:04 -0500 Subject: [PATCH] boids.ui: update for new add-gadget effect --- extra/boids/ui/ui.factor | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/extra/boids/ui/ui.factor b/extra/boids/ui/ui.factor index b1f594b8c2..6b175eeb5e 100755 --- a/extra/boids/ui/ui.factor +++ b/extra/boids/ui/ui.factor @@ -120,24 +120,24 @@ VARS: population-label cohesion-label alignment-label separation-label ; [ "1 - Randomize" [ drop randomize ] button* ] [ 1 over set-pack-fill - population-label> over add-gadget - "3 - Add 10" [ drop add-10-boids ] button* over add-gadget - "2 - Sub 10" [ drop sub-10-boids ] button* over add-gadget ] + population-label> add-gadget + "3 - Add 10" [ drop add-10-boids ] button* add-gadget + "2 - Sub 10" [ drop sub-10-boids ] button* add-gadget ] [ 1 over set-pack-fill - cohesion-label> over add-gadget - "q - +0.1" [ drop inc-cohesion-weight ] button* over add-gadget - "a - -0.1" [ drop dec-cohesion-weight ] button* over add-gadget ] + cohesion-label> add-gadget + "q - +0.1" [ drop inc-cohesion-weight ] button* add-gadget + "a - -0.1" [ drop dec-cohesion-weight ] button* add-gadget ] [ 1 over set-pack-fill - alignment-label> over add-gadget - "w - +0.1" [ drop inc-alignment-weight ] button* over add-gadget - "s - -0.1" [ drop dec-alignment-weight ] button* over add-gadget ] + alignment-label> add-gadget + "w - +0.1" [ drop inc-alignment-weight ] button* add-gadget + "s - -0.1" [ drop dec-alignment-weight ] button* add-gadget ] [ 1 over set-pack-fill - separation-label> over add-gadget - "e - +0.1" [ drop inc-separation-weight ] button* over add-gadget - "d - -0.1" [ drop dec-separation-weight ] button* over add-gadget ] + separation-label> add-gadget + "e - +0.1" [ drop inc-separation-weight ] button* add-gadget + "d - -0.1" [ drop dec-separation-weight ] button* add-gadget ] } [ call ] map [ [ gadget, ] each ] make-shelf 1 over set-pack-fill