image-prep ( -- image )


Vocabulary
ui.gadgets.controls

Inputs
None

Outputs
imagean object


Definition
USING: accessors kernel lexer sequences ui.images vocabs.parser
;

IN: ui.gadgets.controls

: image-prep ( -- image )
scan-token current-vocab name>> "vocab:" "/icons/" surround
".tiff" surround <image-name> dup cached-image drop ;