ui.gadgets.search-tables: change search-tables to use default-text.

2017-10-24 10:05:23 -07:00 · 2017-10-24 10:05:23 -07:00 · 0b47618cb7
parent 02d6c8df1f
commit 0b47618cb7
1 changed files with 2 additions and 2 deletions
--- a/basis/ui/gadgets/search-tables/search-tables.factor
+++ b/basis/ui/gadgets/search-tables/search-tables.factor
@ -32,8 +32,8 @@ TUPLE: search-field < track field ;
        0 >>fill
        { 5 5 } >>gap
        +baseline+ >>align
-        swap <model-field> 10 >>min-cols >>field
-        dup field>> "Search:" label-on-left 1 track-add
+        swap <model-field> 10 >>min-cols "Search" >>default-text
+        [ >>field ] keep 1 track-add
        dup <clear-button> f track-add ;

 M: search-field focusable-child* field>> ;