<content> ( model -- gadget )

Vocabulary

ui-demo

Inputs

model

an object

Outputs

gadget

an object

Definition

USING: combinators kernel sequences ui.gadgets ui.gadgets.books
ui.gadgets.scrollers ;

IN: ui-demo

:: <content> ( model -- gadget )
    model <empty-book> :> book sections [
        second ( -- gadget ) call-effect
        <scroller> book swap add-gadget drop
    ] each book dup hide-all dup current-page show-gadget ;