Revert "ui.images, images.loader: move platform-specific image loader setup into images.loader"

This reverts commit 2bbf752cbe.
db4
Joe Groff 2010-07-16 11:36:20 -07:00
parent 67a1a0bdea
commit 74dc8db962
2 changed files with 11 additions and 11 deletions
basis
images/loader
ui/images

View File

@ -3,7 +3,7 @@
USING: assocs byte-arrays io.encodings.binary io.files
io.pathnames io.streams.byte-array io.streams.limited
io.streams.throwing kernel namespaces sequences strings
unicode.case fry system vocabs.loader combinators ;
unicode.case fry ;
IN: images.loader
ERROR: unknown-image-extension extension ;
@ -51,13 +51,3 @@ GENERIC: image>stream ( image class -- )
[ image-class ] [ ] bi
binary [ image>stream ] with-file-writer ;
<<
{
{ [ os macosx? ] [ "images.cocoa" require ] }
{ [ os winnt? ] [ "images.gdiplus" require ] }
[
"images.png" require
"images.tiff" require
]
} cond
>>

View File

@ -31,3 +31,13 @@ PRIVATE>
: image-dim ( image-name -- dim )
cached-image dim>> ;
<<
{
{ [ os macosx? ] [ "images.cocoa" require ] }
{ [ os winnt? ] [ "images.gdiplus" require ] }
[
"images.png" require
"images.tiff" require
]
} cond
>>