From f24036834ef29ab7678c92b8afc357a7957adc0d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 20 Nov 2008 22:13:24 -0600
Subject: [PATCH] Usability fix

---
 basis/ui/tools/listener/listener.factor | 2 +-
 basis/ui/tools/search/search.factor     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index 4e2cb0b1e9..250fc371c7 100644
--- a/basis/ui/tools/listener/listener.factor
+++ b/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
diff --git a/basis/ui/tools/search/search.factor b/basis/ui/tools/search/search.factor
index 033aacc1b3..cf980cfc23 100644
--- a/basis/ui/tools/search/search.factor
+++ b/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 ;