ui.images: load images.cocoa backend by default instead of images.png/images.tiff on macosx
parent
0d35e277ea
commit
5c95d90da3
|
@ -1,8 +1,8 @@
|
||||||
! Copyright (C) 2009 Slava Pestov.
|
! Copyright (C) 2009 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: namespaces cache images images.loader accessors assocs
|
USING: accessors assocs cache combinators images images.loader
|
||||||
kernel opengl opengl.gl opengl.textures ui.gadgets.worlds
|
kernel memoize namespaces opengl opengl.gl opengl.textures system
|
||||||
memoize images.png images.tiff ;
|
ui.gadgets.worlds vocabs.loader ;
|
||||||
IN: ui.images
|
IN: ui.images
|
||||||
|
|
||||||
TUPLE: image-name path ;
|
TUPLE: image-name path ;
|
||||||
|
@ -30,3 +30,15 @@ PRIVATE>
|
||||||
|
|
||||||
: image-dim ( image-name -- dim )
|
: image-dim ( image-name -- dim )
|
||||||
cached-image dim>> ;
|
cached-image dim>> ;
|
||||||
|
|
||||||
|
<<
|
||||||
|
{
|
||||||
|
{ [ os macosx? ] [
|
||||||
|
"images.cocoa" require
|
||||||
|
] }
|
||||||
|
[
|
||||||
|
"images.png" require
|
||||||
|
"images.tiff" require
|
||||||
|
]
|
||||||
|
} cond
|
||||||
|
>>
|
||||||
|
|
Loading…
Reference in New Issue