Code cleanups

basis/ui/gadgets/frames/frames.factor

@@ -1,4 +1,4 @@
-! Copyright (C) 2005, 2007 Slava Pestov.
+! Copyright (C) 2005, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: arrays generic kernel math namespaces sequences words
 splitting grouping math.vectors ui.gadgets.grids ui.gadgets

basis/ui/gadgets/viewports/viewports.factor

@@ -21,9 +21,11 @@ TUPLE: viewport < gadget ;
         swap add-gadget ;
 
 M: viewport layout*
-    dup rect-dim viewport-gap 2 v*n v-
+    [
-    over gadget-child pref-dim vmax
+        [ rect-dim viewport-gap 2 v*n v- ]
-    swap gadget-child (>>dim) ;
+        [ gadget-child pref-dim ]
+        bi vmax
+    ] [ gadget-child ] bi (>>dim) ;
 
 M: viewport focusable-child*
     gadget-child ;

basis/ui/tools/search/search.factor

@@ -48,7 +48,7 @@ search-field H{
 } set-gestures
 
 : <search-model> ( live-search producer -- live-search filter )
-    >r dup field>> model>>                   ! live-search model :: producer
+    >r dup field>> model>>
     ui-running? [ 1/5 seconds <delay> ] when
     [ "\n" join ] r> append <filter> ;
 

basis/ui/ui.factor

@@ -129,8 +129,8 @@ SYMBOL: ui-hook
 
 : notify ( gadget -- )
     dup graft-state>>
-    dup first { f f } { t t } ?
+    [ first { f f } { t t } ? >>graft-state ] keep
-    pick (>>graft-state) {
+    {
         { { f t } [ dup activate-control graft* ] }
         { { t f } [ dup deactivate-control ungraft* ] }
     } case ;