<list> ( hook presenter model -- gadget )
List gadgets

Prev:	list
Next:	list-value ( list -- object )

Vocabulary
ui.gadgets.lists

Inputs

hook	a quotation with stack effect ( list -- )
presenter	a quotation with stack effect ( object -- label )
model	a model

Outputs

gadget

a list

Word description
Creates a new list.

The model value must be a sequence. The list displays presentations of elements with labels obtained by applying the presenter quotation to each object. The hook quotation is called when a presentation is selected.

Definition

USING: accessors kernel ;

IN: ui.gadgets.lists

: <list> ( hook presenter model -- gadget )
    list new { 0 1 } >>orientation 1 >>fill 0 >>index
    swap >>model swap >>presenter swap >>hook list-theme ;