<search-tables-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors models sequences ui.gadgets
ui.gadgets.search-tables ;

IN: ui-demo

:: <search-tables-section> ( -- gadget )
    people <model> person-renderer [ " " join ] <search-table>
    :> search <section>
    "Search across names, roles and statuses. Use the arrow keys t..."
    <prose> add-gadget search <framed> { 0 220 } >>min-dim
    add-gadget
    "Selected:" search table>> selection>> <readout>
    <labeled-row> add-gadget <page> ;