steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

factor-shell
John Benediktsson 2017-10-24 10:05:23 -07:00
parent 02d6c8df1f
commit 0b47618cb7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/search-tables/search-tables.factor
View File

@ -32,8 +32,8 @@ TUPLE: search-field < track field ;
0 >>fill 0 >>fill
{ 5 5 } >>gap { 5 5 } >>gap
+baseline+ >>align +baseline+ >>align
swap <model-field> 10 >>min-cols >>field swap <model-field> 10 >>min-cols "Search" >>default-text
dup field>> "Search:" label-on-left 1 track-add [ >>field ] keep 1 track-add
dup <clear-button> f track-add ; dup <clear-button> f track-add ;
M: search-field focusable-child* field>> ; M: search-field focusable-child* field>> ;