images.loader.gtk: startup hook for type registration
parent
2ba659dcb1
commit
bfd40f0215
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue