?update-texture ( image-gadget -- )

Vocabulary

images.viewer.private

Inputs

image-gadget

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: images.viewer.private

: ?update-texture ( image-gadget -- )
    dup image-updated?>> [
        f >>image-updated? dup keep-same-texture?
        [ update-texture ] [ delete-current-texture ] if
    ] [ drop ] if ;