<book> ( quot: ( -- model ) -- book )

Vocabulary

ui.gadgets.layout

Inputs

quot	a quotation with stack effect ( -- model )

Outputs

book

an object

Definition

USING: accessors kernel ;

IN: ui.gadgets.layout

: <book> ( quot: ( -- model ) -- book )
    f make-layout rot 0 >>value make-book ; inline