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

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

db4
Joe Groff 2010-07-11 08:44:27 -07:00
parent abf0aed985
commit 67a1a0bdea
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/images/loader/loader.factor
View File

@ -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
>>

10
basis/ui/images/images.factor
View File

@ -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
>>