<search-table> ( values renderer quot -- gadget )

Vocabulary

ui.gadgets.search-tables

Inputs

values	an object
renderer	an object
quot	an object

Outputs

gadget

an object

Definition

USING: accessors kernel models models.search ui.gadgets
ui.gadgets.borders ui.gadgets.scrollers ui.gadgets.tables
ui.gadgets.tracks ui.tools.common ;

IN: ui.gadgets.search-tables

:: <search-table> ( values renderer quot -- gadget )
    f <model> :> search vertical search-table new-track
    values >>model search <search-field> >>field dup field>>
    { 2 2 } <filled-border> f track-add
    values search quot <string-search> renderer <table>
    f >>takes-focus? >>table
    dup table>> white-interior <scroller> 1 track-add ; inline