animated-label

Vocabulary

rosetta-code.animation

Definition

USING: ui.gadgets.labels ;

IN: rosetta-code.animation

TUPLE: animated-label < label-control reversed alarm ;

Methods

USING: accessors calendar kernel rosetta-code.animation timers
ui.gadgets ;

M: animated-label graft*
    [
        [ [ model>> ] [ reversed>> ] bi update-model ] curry
        400 milliseconds every
    ] keep alarm<< ;


USING: accessors rosetta-code.animation timers ui.gadgets ;

M: animated-label ungraft* alarm>> stop-timer ;