Update various vocabularies for new handler

extra/automata/ui/ui.factor

@@ -6,7 +6,6 @@ USING: kernel namespaces math quotations arrays hashtables sequences threads
        ui
        ui.gestures
        ui.gadgets
-       ui.gadgets.handler
        ui.gadgets.slate
        ui.gadgets.labels
        ui.gadgets.buttons
@@ -14,6 +13,7 @@ USING: kernel namespaces math quotations arrays hashtables sequences threads
        ui.gadgets.packs
        ui.gadgets.grids
        ui.gadgets.theme
+       ui.gadgets.handler
        accessors
        qualified
        namespaces.lib assocs.lib vars
@@ -88,6 +88,8 @@ DEFER: automata-window
 
     @center grid-add
 
+  <handler>
+
   H{ }
     T{ key-down f f "1" } [ start-center    ] view-action is
     T{ key-down f f "2" } [ start-random    ] view-action is
@@ -95,9 +97,7 @@ DEFER: automata-window
     T{ key-down f f "5" } [ random-rule     ] view-action is
     T{ key-down f f "n" } [ automata-window ] view-action is
 
-  <handler>
-
-    tuck set-gadget-delegate
+  >>table
 
   "Automata" open-window ;
 

extra/boids/ui/ui.factor

@@ -147,6 +147,8 @@ VARS: population-label cohesion-label alignment-label separation-label ;
 
   slate> over @center grid-add
 
+  <handler> 
+
   H{ } clone
     T{ key-down f f "1" } C[ drop randomize    ] is
     T{ key-down f f "2" } C[ drop sub-10-boids ] is
@@ -162,7 +164,10 @@ VARS: population-label cohesion-label alignment-label separation-label ;
     T{ key-down f f "d" } C[ drop dec-separation-weight ] is
 
     T{ key-down f f "ESC" } C[ drop toggle-loop ] is
-  <handler> tuck set-gadget-delegate "Boids" open-window ;
+
+  >>table
+
+  "Boids" open-window ;
 
 : boids-window ( -- ) [ [ boids-window* ] with-scope ] with-ui ;
 

extra/lsys/ui/ui.factor

@@ -160,6 +160,8 @@ DEFER: empty-model
 [ ] <slate> >slate
 { 400 400 } clone slate> set-slate-pdim
 
+slate> <handler>
+
 {
 
 { T{ key-down f f "LEFT" }  [ [ 5 turn-left ] camera-action ] }
@@ -194,13 +196,9 @@ DEFER: empty-model
 [ [ pos> norm reset-turtle 45 turn-left 45 pitch-up step-turtle 180 turn-left ]
     camera-action ] }
 
-! } [ make* ] map alist>hash <handler> >handler
+} [ make* ] map >hashtable >>table
 
-} [ make* ] map >hashtable <handler> >handler
-
-slate> handler> set-gadget-delegate
-
-handler> "L-system view" open-window
+"L-system view" open-window
 
 500 sleep