1 ! Copyright (C) 2007 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors images images.loader io.pathnames kernel namespaces
4 opengl opengl.gl opengl.textures sequences strings ui ui.gadgets
5 ui.gadgets.panes ui.render ;
8 TUPLE: image-gadget < gadget { image image } ;
10 M: image-gadget pref-dim*
13 : draw-image ( image -- )
14 0 0 glRasterPos2i 1.0 -1.0 glPixelZoom
15 [ dim>> first2 ] [ component-order>> component-order>format ] [ bitmap>> ] tri
18 M: image-gadget draw-gadget* ( gadget -- )
21 : <image-gadget> ( image -- gadget )
25 : image-window ( path -- gadget )
26 [ load-image <image-gadget> dup ] [ open-window ] bi ;
28 GENERIC: image. ( object -- )
30 : default-image. ( path -- )
31 <image-gadget> gadget. ;
33 M: string image. ( image -- ) load-image default-image. ;
35 M: pathname image. ( image -- ) load-image default-image. ;
37 M: image image. ( image -- ) default-image. ;