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

images.loader.gtk: startup hook for type registration

char-rename
Björn Lindqvist 2016-11-30 11:57:14 +01:00
parent 2ba659dcb1
commit bfd40f0215
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,20 +1,22 @@
! Copyright (C) 2010 Philipp Brüschweiler. ! Copyright (C) 2010 Philipp Brüschweiler.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.data alien.syntax arrays assocs USING: accessors alien.c-types alien.data alien.libraries alien.syntax
combinators destructors gdk.pixbuf.ffi glib.ffi gobject.ffi grouping images arrays assocs combinators gdk.pixbuf.ffi glib.ffi gobject.ffi grouping
images.loader io kernel locals math sequences system images images.loader init io kernel locals math sequences
specialized-arrays unicode ; specialized-arrays system unicode ;
IN: images.loader.gtk IN: images.loader.gtk
SPECIALIZED-ARRAY: uchar SPECIALIZED-ARRAY: uchar
SINGLETON: gtk-image SINGLETON: gtk-image
os linux? [ [
! Explicit type initialization needed for glib < 2.36. os linux? \ g_type_init word>dlsym and [
g_type_init ! Explicit type initialization needed for glib < 2.36.
{ "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" } g_type_init
[ gtk-image register-image-class ] each { "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" }
] when [ gtk-image register-image-class ] each
] when
] "images.loader.gtk" add-startup-hook
<PRIVATE <PRIVATE