<shelf-of> ( -- shelf )

Vocabulary

ui-demo

Inputs

None

Outputs

shelf

an object

Definition

USING: accessors ui.baseline-alignment ui.gadgets.packs ;

IN: ui-demo

: <shelf-of> ( -- shelf )
    <shelf> { 8 0 } >>gap +baseline+ >>align ;