vocab-icon-data ( vocab-name -- byte-array )

Vocabulary

ui.backend.gtk2

Inputs

vocab-name

an object

Outputs

byte-array

an object

Definition

USING: io.encodings.binary io.files io.pathnames kernel
sequences vocabs.loader ;

IN: ui.backend.gtk2

: vocab-icon-data ( vocab-name -- byte-array )
    dup vocab-dir
    { "icon.png" "icon.ico" } [ append-path vocab-append-path ]
    2with map default-icon-path suffix [ file-exists? ] find nip
    binary file-contents ;