<completion-model> ( editor element quot -- model )

Vocabulary

ui.tools.listener.completion

Inputs

editor	an object
element	an object
quot	an object

Outputs

model

an object

Definition

USING: assocs kernel models.arrow sequences ui.gadgets.editors ;

IN: ui.tools.listener.completion

: <completion-model> ( editor element quot -- model )
    [ <element-model> ] dip
    [ >alist 100 index-or-length head ] compose <arrow> ;