ui.images, images.loader: move platform-specific image loader setup into images.loader
parent
abf0aed985
commit
67a1a0bdea
|
@ -3,7 +3,7 @@
|
||||||
USING: assocs byte-arrays io.encodings.binary io.files
|
USING: assocs byte-arrays io.encodings.binary io.files
|
||||||
io.pathnames io.streams.byte-array io.streams.limited
|
io.pathnames io.streams.byte-array io.streams.limited
|
||||||
io.streams.throwing kernel namespaces sequences strings
|
io.streams.throwing kernel namespaces sequences strings
|
||||||
unicode.case fry ;
|
unicode.case fry system vocabs.loader combinators ;
|
||||||
IN: images.loader
|
IN: images.loader
|
||||||
|
|
||||||
ERROR: unknown-image-extension extension ;
|
ERROR: unknown-image-extension extension ;
|
||||||
|
@ -51,3 +51,13 @@ GENERIC: image>stream ( image class -- )
|
||||||
[ image-class ] [ ] bi
|
[ image-class ] [ ] bi
|
||||||
binary [ image>stream ] with-file-writer ;
|
binary [ image>stream ] with-file-writer ;
|
||||||
|
|
||||||
|
<<
|
||||||
|
{
|
||||||
|
{ [ os macosx? ] [ "images.cocoa" require ] }
|
||||||
|
{ [ os winnt? ] [ "images.gdiplus" require ] }
|
||||||
|
[
|
||||||
|
"images.png" require
|
||||||
|
"images.tiff" require
|
||||||
|
]
|
||||||
|
} cond
|
||||||
|
>>
|
||||||
|
|
|
@ -31,13 +31,3 @@ PRIVATE>
|
||||||
: image-dim ( image-name -- dim )
|
: image-dim ( image-name -- dim )
|
||||||
cached-image dim>> ;
|
cached-image dim>> ;
|
||||||
|
|
||||||
<<
|
|
||||||
{
|
|
||||||
{ [ os macosx? ] [ "images.cocoa" require ] }
|
|
||||||
{ [ os winnt? ] [ "images.gdiplus" require ] }
|
|
||||||
[
|
|
||||||
"images.png" require
|
|
||||||
"images.tiff" require
|
|
||||||
]
|
|
||||||
} cond
|
|
||||||
>>
|
|
||||||
|
|
Loading…
Reference in New Issue