steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Clean up images.viewer

db4
Slava Pestov 2009-04-14 22:18:47 -05:00
parent 3421491f48
commit 902718f0d3
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/images/viewer/viewer.factor
View File

@ -1,4 +1,4 @@
! Copyright (C) 2007 Doug Coleman. ! Copyright (C) 2007, 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors images images.loader io.pathnames kernel namespaces USING: accessors images images.loader io.pathnames kernel namespaces
opengl opengl.gl opengl.textures sequences strings ui ui.gadgets opengl opengl.gl opengl.textures sequences strings ui ui.gadgets
@ -27,11 +27,8 @@ M: image-gadget draw-gadget* ( gadget -- )
GENERIC: image. ( object -- ) GENERIC: image. ( object -- )
: default-image. ( path -- ) M: string image. ( image -- ) load-image image. ;
<image-gadget> gadget. ;
M: string image. ( image -- ) load-image default-image. ; M: pathname image. ( image -- ) load-image image. ;
M: pathname image. ( image -- ) load-image default-image. ; M: image image. ( image -- ) <image-gadget> gadget. ;
M: image image. ( image -- ) default-image. ;