images.loader.gtk: startup hook for type registration

diff --git a/basis/images/loader/gtk/gtk.factor b/basis/images/loader/gtk/gtk.factor
index f0bf3ac03ce37333f4151c074af8a06812c6a10d..2fd251018522807e1a74c66c5b5d079edc36c989 100644 (file)
--- a/basis/images/loader/gtk/gtk.factor
+++ b/basis/images/loader/gtk/gtk.factor
@@ -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