<links-table> ( model quot -- table )

Vocabulary

ui.tools.browser.popups

Inputs

model	an object
quot	an object

Outputs

table

an object

Definition

USING: accessors assocs help help.topics kernel models.arrow
sequences ui.gadgets.glass ui.gadgets.search-tables
ui.operations ;

IN: ui.tools.browser.popups

: <links-table> ( model quot -- table )
    [ sort-articles [ article-title ] zip-with ] compose <arrow>
    link-renderer [ second ] <search-table> dup table>>
    [ invoke-primary-operation ] >>action [ hide-glass ] >>hook
    t >>selection-required? 10 >>min-rows 10 >>max-rows
    30 >>min-cols 30 >>max-cols drop ;