image-gadget-texture ( gadget -- texture )

Vocabulary

images.viewer.private

Inputs

gadget

an object

Outputs

texture

an object

Definition

USING: accessors kernel ;

IN: images.viewer.private

: image-gadget-texture ( gadget -- texture )
    [ texture>> ] [ (image-gadget-texture) ] ?unless ;