<completion-popup> ( interactor completion-mode -- popup )

Vocabulary

ui.tools.listener.completion

Inputs

interactor	an object
completion-mode	an object

Outputs

popup

an object

Definition

USING: accessors kernel ui.gadgets ui.gadgets.labeled
ui.gadgets.tracks ui.theme ;

IN: ui.tools.listener.completion

: <completion-popup> ( interactor completion-mode -- popup )
    [ vertical completion-popup new-track ] 2dip
    [ [ >>interactor ] [ >>completion-mode ] bi* ]
    [ <completion-table> >>table ] 2bi dup
    [ <completion-scroller> ]
    [ completion-mode>> completion-banner ] bi
    completion-color <framed-labeled-gadget> 1 track-add ;