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 SINGLETON: ns-image
os macosx? [ os macosx? [
"png" ns-image register-image-class { "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" }
"tif" ns-image register-image-class [ ns-image register-image-class ] each
"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
] when ] when
: <CGImage> ( byte-array -- image-rep ) : <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 SINGLETON: gdi+-image
os windows? [ os windows? [
"png" gdi+-image register-image-class { "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" }
"tif" gdi+-image register-image-class [ gdi+-image register-image-class ] each
"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
] when ] when
<PRIVATE <PRIVATE

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

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