<list-presentation> ( hook elt presenter -- gadget )

Vocabulary

ui.gadgets.lists

Inputs

hook	an object
elt	an object
presenter	an object

Outputs

gadget

an object

Definition

USING: accessors combinators fonts kernel ui.gadgets.labels
ui.gadgets.presentations ;

IN: ui.gadgets.lists

: <list-presentation> ( hook elt presenter -- gadget )
    [ ( elt -- obj ) call-effect ] [ drop ] 2bi
    [ >label monospace-font >>font ] dip <presentation>
    swap >>hook ; inline