list-presentation-hook ( list -- quot )

Vocabulary

ui.gadgets.lists

Inputs

list

an object

Outputs

quot

an object

Definition

USING: accessors sequences ui.gadgets ;

IN: ui.gadgets.lists

: list-presentation-hook ( list -- quot )
    hook>> [ [ list? ] find-parent ] prepend ;