Fix up images.viewer
parent
bfc7b3ce8f
commit
cdfab25bb1
|
@ -16,7 +16,7 @@ M: image-gadget pref-dim*
|
|||
[ bitmap>> ] bi glDrawPixels ;
|
||||
|
||||
M: image-gadget draw-gadget* ( gadget -- )
|
||||
origin get [ image>> draw-image ] with-translation ;
|
||||
image>> draw-image ;
|
||||
|
||||
: <image-gadget> ( image -- gadget )
|
||||
\ image-gadget new-gadget
|
||||
|
|
Loading…
Reference in New Issue