! Copyright (C) 2010 Philipp Brüschweiler.
! See http://factorcode.org/license.txt for BSD license.
-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
+USING: accessors alien.c-types alien.data alien.syntax arrays
+assocs combinators gdk.pixbuf.ffi glib.ffi gobject.ffi grouping
+images images.loader io kernel locals math sequences
specialized-arrays system unicode ;
IN: images.loader.gtk
SPECIALIZED-ARRAY: uchar
SINGLETON: gtk-image
-[
- os linux? "g_type_init" "gobject" 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
+os linux? [
+ { "png" "tif" "tiff" "gif" "jpg" "jpeg" "bmp" "ico" }
+ [ gtk-image register-image-class ] each
+] when
<PRIVATE