<animated-label> ( model -- <animated-model> )

Vocabulary

rosetta-code.animation

Inputs

model

an object

Outputs

<animated-model>

an object

Definition

USING: accessors fonts kernel ui.gadgets.labels ;

IN: rosetta-code.animation

: <animated-label> ( model -- <animated-model> )
    sentence animated-label new-label swap >>model
    monospace-font >>font ;