Fix up images.viewer

2009-02-27 01:01:51 -06:00 · 2009-02-27 01:01:51 -06:00 · cdfab25bb1
parent bfc7b3ce8f
commit cdfab25bb1
1 changed files with 1 additions and 1 deletions
--- a/extra/images/viewer/viewer.factor
+++ b/extra/images/viewer/viewer.factor
@ -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