<slides> ( slides -- gadget )


Vocabulary
slides

Inputs
slidesan object


Outputs
gadgetan object


Definition
USING: models sequences ui.gadgets ui.gadgets.books ;

IN: slides

: <slides> ( slides -- gadget )
0 <model> slides new-book [ <page> add-gadget ] reduce ;