delete-current-texture ( image-gadget -- )

Vocabulary

images.viewer.private

Inputs

image-gadget

an object

Outputs

None

Definition

USING: accessors destructors kernel ;

IN: images.viewer.private

: delete-current-texture ( image-gadget -- )
    [ texture>> [ dispose ] when* ] [ f >>texture drop ] bi ;