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

View File

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