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

Clear button in search field is now positioned correctly

db4
Slava Pestov 2009-04-05 20:50:45 -05:00
parent 68728d1cc4
commit 880f4097ad
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/ui/gadgets/search-tables/search-tables-tests.factor Normal file
View File

@ -0,0 +1,3 @@
IN: ui.gadgets.search-tables.tests
USING: ui.gadgets.search-tables sequences tools.test ;
[ [ second ] <search-table> ] must-infer

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

@ -28,6 +28,7 @@ TUPLE: search-field < track field ;
: <search-field> ( model -- gadget ) : <search-field> ( model -- gadget )
horizontal search-field new-track horizontal search-field new-track
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 >>field