Fix up images.viewer

db4
Slava Pestov 2009-02-27 01:01:51 -06:00
parent bfc7b3ce8f
commit cdfab25bb1
1 changed files with 1 additions and 1 deletions

View File

@ -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