<search-field> ( model -- gadget )


Vocabulary
ui.gadgets.search-tables

Inputs
modelan object


Outputs
gadgetan object


Definition
USING: accessors kernel ui.gadgets ui.gadgets.editors
ui.gadgets.tracks ui.tools.common ;

IN: ui.gadgets.search-tables

: <search-field> ( model -- gadget )
horizontal search-field new-track 1 >>fill { 5 5 } >>gap
0 >>align swap <model-field> 10 >>min-cols
"Search" >>default-text white-interior [ >>field ] keep
1 track-add dup <clear-button> f track-add ;