image-gadget

Vocabulary

images.viewer

Variable description

This gadget can render an image.

Definition

USING: ui.gadgets ;

IN: images.viewer

TUPLE: image-gadget < gadget image texture ;

Methods

USING: accessors images.viewer images.viewer.private kernel
opengl.textures ui.render ;

M: image-gadget draw-gadget*
    dup image>> [
        [ dim>> ] [ image-gadget-texture ] bi
        draw-scaled-texture
    ] [ drop ] if ;


USING: accessors images images.viewer kernel ui.gadgets ;

M: image-gadget pref-dim*
    image>> [ image-dim ] [ { 640 480 } ] if* ;


USING: continuations images.viewer images.viewer.private kernel
ui.gadgets ui.gadgets.worlds ;

M: image-gadget ungraft*
    [ dup find-gl-context delete-current-texture ] [ 2drop ]
    recover ;