parse-itext-chunks ( loading-png -- loading-png )

Vocabulary

images.png

Inputs

loading-png

an object

Outputs

loading-png

an object

Definition

USING: accessors kernel sequences ;

IN: images.png

: parse-itext-chunks ( loading-png -- loading-png )
    dup "iTXt" find-chunks [ data>> <itext> ] map >>itexts ;