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

gtk.ffi: Find the right gtk library in a startup-hook. Necessary because gtk is not in the same place on varius distros, so just find it on demand. Fixes #1185.

db4
Doug Coleman 2014-11-05 10:00:27 -08:00
parent 0b72a51cb3
commit 0ef942e400
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/gtk/ffi/ffi.factor
View File

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.destructors alien.libraries USING: alien alien.c-types alien.destructors alien.libraries
alien.libraries.finder alien.syntax assocs gobject-introspection alien.libraries.finder alien.syntax assocs gobject-introspection
gobject-introspection.standard-types kernel pango.ffi system gobject-introspection.standard-types init kernel pango.ffi
vocabs ; system vocabs ;
IN: gtk.ffi IN: gtk.ffi
<< <<
@ -14,10 +14,12 @@ IN: gtk.ffi
LIBRARY: gtk LIBRARY: gtk
<< <<
"gtk" { [
{ linux "gtk-x11-2.0" } "gtk" {
{ windows "libgtk-win32-2.0-0" } { linux "gtk-x11-2.0" }
} os of [ find-library cdecl add-library ] [ drop ] if* { windows "libgtk-win32-2.0-0" }
} os of [ find-library cdecl add-library ] [ drop ] if*
] "find-gtk" add-startup-hook
>> >>
IMPLEMENT-STRUCTS: GtkTreeIter ; IMPLEMENT-STRUCTS: GtkTreeIter ;