Usability fix

basis/ui/tools/listener/listener.factor

@@ -25,7 +25,7 @@ TUPLE: listener-gadget < track input output ;
 
 : listener-input, ( listener -- listener )
     dup <listener-input>
-    [ >>input ] [ 1 <border> { 0 0 } >>align f track-add ] bi ;
+    [ >>input ] [ 1 <border> { 1 1 } >>fill f track-add ] bi ;
 
 : welcome. ( -- )
     "If this is your first time with Factor, please read the " print

basis/ui/tools/search/search.factor

@@ -66,7 +66,7 @@ search-field H{
         <search-field> >>field
         seq limited? init-search-model
         presenter over <search-list> >>list
-        dup field>> 1 <border> { 0 0 } >>align f track-add
+        dup field>> 1 <border> { 1 1 } >>fill f track-add
         dup list>> <scroller> 1 track-add
         string over field>> set-editor-string
         dup field>> end-of-document ;