<list-items> ( list -- seq )


Vocabulary
ui.gadgets.lists

Inputs
listan object


Outputs
seqan object


Definition
USING: accessors kernel sequences ui.gadgets ;

IN: ui.gadgets.lists

: <list-items> ( list -- seq )
[ list-presentation-hook ] [ presenter>> ] [ control-value ]
tri [ [ 2dup ] dip swap <list-presentation> ] map 2nip ;