change-page ( book n -- )


Vocabulary
slides

Inputs
bookan object
nan object


Outputs
None

Definition
USING: accessors kernel math sequences ui.gadgets ;

IN: slides

: change-page ( book n -- )
over control-value + over children>> length rem
swap set-control-value ;