<loading-gif> ( -- loading-gif )

Vocabulary

images.gif

Inputs

None

Outputs

loading-gif

an object

Definition

USING: accessors kernel ;

IN: images.gif

: <loading-gif> ( -- loading-gif )
    \ loading-gif new V{ } clone >>graphic-control-extensions
    V{ } clone >>application-extensions
    V{ } clone >>plain-text-extensions
    V{ } clone >>comment-extensions t >>loading? ;