?transparent-color-index ( loading-gif -- index/f )

Vocabulary

images.gif

Inputs

loading-gif

an object

Outputs

index/f

an object

Definition

USING: accessors kernel sequences ;

IN: images.gif

: ?transparent-color-index ( loading-gif -- index/f )
    dup transparency? [
        graphic-control-extensions>> first
        transparent-color-index>>
    ] [ drop f ] if ;