current-page ( book -- gadget )


Vocabulary
ui.gadgets.books

Inputs
bookan object


Outputs
gadgetan object


Definition
USING: kernel ui.gadgets ;

IN: ui.gadgets.books

: current-page ( book -- gadget )
[ control-value ] keep nth-gadget ;