maybe-read-local-color-table ( loading-gif -- loading-gif )

Vocabulary

images.gif

Inputs

loading-gif

an object

Outputs

loading-gif

an object

Definition

USING: accessors io kernel ;

IN: images.gif

: maybe-read-local-color-table
    ( loading-gif -- loading-gif )
    dup image-descriptor>> color-table?
    [ dup color-table-size read >>local-color-table ] when ;