<icon> ( image-name -- icon )

Vocabulary

ui.gadgets.icons

Inputs

image-name

an object

Outputs

icon

an object

Definition

USING: accessors kernel ui.pens.image ;

IN: ui.gadgets.icons

: <icon> ( image-name -- icon )
    icon new swap <image-pen> t >>fill? >>image ;