From 880f4097adf08767d96f014cd2476fa835e54b38 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 5 Apr 2009 20:50:45 -0500
Subject: [PATCH] Clear button in search field is now positioned correctly

---
 basis/ui/gadgets/search-tables/search-tables-tests.factor | 3 +++
 basis/ui/gadgets/search-tables/search-tables.factor       | 1 +
 2 files changed, 4 insertions(+)
 create mode 100644 basis/ui/gadgets/search-tables/search-tables-tests.factor

diff --git a/basis/ui/gadgets/search-tables/search-tables-tests.factor b/basis/ui/gadgets/search-tables/search-tables-tests.factor
new file mode 100644
index 0000000000..5a627286f9
--- /dev/null
+++ b/basis/ui/gadgets/search-tables/search-tables-tests.factor
@@ -0,0 +1,3 @@
+IN: ui.gadgets.search-tables.tests
+USING: ui.gadgets.search-tables sequences tools.test ;
+[ [ second ] <search-table> ] must-infer
diff --git a/basis/ui/gadgets/search-tables/search-tables.factor b/basis/ui/gadgets/search-tables/search-tables.factor
index 4a2983bfe0..17570a8714 100644
--- a/basis/ui/gadgets/search-tables/search-tables.factor
+++ b/basis/ui/gadgets/search-tables/search-tables.factor
@@ -28,6 +28,7 @@ TUPLE: search-field < track field ;
 
 : <search-field> ( model -- gadget )
     horizontal search-field new-track
+        0 >>fill
         { 5 5 } >>gap
         +baseline+ >>align
         swap <model-field> 10 >>min-cols >>field