make-book ( models gadgets model -- book )


Vocabulary
ui.gadgets.layout

Inputs
modelsan object
gadgetsan object
modelan object


Outputs
bookan object


Definition
USING: kernel sequences ui.gadgets.books ;

IN: ui.gadgets.layout

: make-book ( models gadgets model -- book )
<book> swap [ "No models in books" throw ] unless-empty ;