Clear button in search field is now positioned correctly

2009-04-05 20:50:45 -05:00 · 2009-04-05 20:50:45 -05:00 · 880f4097ad
parent 68728d1cc4
commit 880f4097ad
2 changed files with 4 additions and 0 deletions
--- a/basis/ui/gadgets/search-tables/search-tables-tests.factor
+++ 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
--- 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