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

images.loader: simplify registrations.

db4
John Benediktsson 2014-03-14 09:17:13 -07:00
parent ab76deaf25
commit dcd3938d0d
3 changed files with 6 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/images/loader/cocoa/cocoa.factor
View File

@ -10,14 +10,8 @@ IN: images.loader.cocoa
SINGLETON: ns-image
os macosx? [
"png" ns-image register-image-class
"tif" ns-image register-image-class
"tiff" ns-image register-image-class
"gif" ns-image register-image-class
"jpg" ns-image register-image-class
"jpeg" ns-image register-image-class
"bmp" ns-image register-image-class
"ico" ns-image register-image-class
{ "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" }
[ ns-image register-image-class ] each
] when
: <CGImage> ( byte-array -- image-rep )

10
basis/images/loader/gdiplus/gdiplus.factor
View File

@ -9,14 +9,8 @@ IN: images.loader.gdiplus
SINGLETON: gdi+-image
os windows? [
"png" gdi+-image register-image-class
"tif" gdi+-image register-image-class
"tiff" gdi+-image register-image-class
"gif" gdi+-image register-image-class
"jpg" gdi+-image register-image-class
"jpeg" gdi+-image register-image-class
"bmp" gdi+-image register-image-class
"ico" gdi+-image register-image-class
{ "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" }
[ gdi+-image register-image-class ] each
] when
<PRIVATE

10
basis/images/loader/gtk/gtk.factor
View File

@ -13,14 +13,8 @@ SINGLETON: gtk-image
os linux? [
! Explicit type initialization needed for glib < 2.36.
g_type_init
"png" gtk-image register-image-class
"tif" gtk-image register-image-class
"tiff" gtk-image register-image-class
"gif" gtk-image register-image-class
"jpg" gtk-image register-image-class
"jpeg" gtk-image register-image-class
"bmp" gtk-image register-image-class
"ico" gtk-image register-image-class
{ "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" }
[ gtk-image register-image-class ] each
] when
<PRIVATE