UI fixes

extra/ui/cocoa/cocoa.factor

@@ -5,7 +5,7 @@ kernel memory namespaces cocoa.messages cocoa.runtime
 cocoa.subclassing cocoa.pasteboard cocoa.types cocoa.windows
 cocoa.classes cocoa.application sequences system ui ui.backend
 ui.clipboards ui.gadgets ui.gadgets.worlds ui.cocoa.views
-core-foundation ;
+core-foundation threads ;
 IN: ui.cocoa
 
 TUPLE: cocoa-ui-backend ;

extra/ui/gadgets/incremental/incremental.factor

@@ -40,13 +40,13 @@ M: incremental pref-dim*
     swap set-rect-loc ;
 
 : prefer-incremental ( gadget -- )
-    dup forget-pref-dim dup pref-dim over set-rect-dim
-    layout ;
+    dup forget-pref-dim dup pref-dim swap set-rect-dim ;
 
 : add-incremental ( gadget incremental -- )
     not-in-layout
     2dup (add-gadget)
     over prefer-incremental
+    over layout-later
     2dup incremental-loc
     tuck update-cursor
     dup prefer-incremental

extra/ui/ui.factor

@@ -4,7 +4,7 @@ USING: arrays assocs io kernel math models namespaces
 prettyprint dlists sequences threads sequences words timers
 debugger ui.gadgets ui.gadgets.worlds ui.gadgets.tracks
 ui.gestures ui.backend ui.render continuations init
-combinators ;
+combinators hashtables ;
 IN: ui
 
 ! Assoc mapping aliens to gadgets
@@ -114,7 +114,7 @@ SYMBOL: ui-hook
         layout-queue [
             dup layout find-world [ , ] when*
         ] dlist-slurp
-    ] { } make ;
+    ] { } make prune ;
 
 : redraw-worlds ( seq -- )
     [ dup update-hand draw-world ] each ;