animated-main ( -- )

Vocabulary

rosetta-code.animation

Inputs

None

Outputs

None

Definition

USING: accessors kernel models ui ui.gadgets.worlds ;

IN: rosetta-code.animation

: animated-main ( -- )
    [
        f
        T{ world-attributes { title "Rosetta" } }
        clone
        sentence
        <model>
        <animated-label>
        >>gadgets
        open-window
    ] with-ui ;