read-global-color-table ( loading-gif -- loading-gif )


Vocabulary
images.gif

Inputs
loading-gifan object


Outputs
loading-gifan object


Definition
USING: accessors grouping io kernel ;

IN: images.gif

: read-global-color-table ( loading-gif -- loading-gif )
dup color-table?
[ dup color-table-size read 3 group >>global-color-table ]
when ;