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

gtk.ffi: stop using find-library.

locals-and-roots
John Benediktsson 2016-03-28 23:55:49 -07:00
parent 1bdab8d421
commit 927b8f29d6
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,8 +1,9 @@
! Copyright (C) 2010 Anton Gorenko. ! Copyright (C) 2010 Anton Gorenko.
! 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 gobject-introspection alien.syntax combinators gobject-introspection
gobject-introspection.standard-types init pango.ffi vocabs ; gobject-introspection.standard-types kernel pango.ffi system
vocabs ;
IN: gtk.ffi IN: gtk.ffi
<< <<
@ -12,7 +13,13 @@ IN: gtk.ffi
LIBRARY: gtk LIBRARY: gtk
[ "gtk" "gtk-x11-2.0" find-library cdecl add-library ] "find-gtk" add-startup-hook <<
"gtk" {
{ [ os windows? ] [ "libgtk-win32-2.0-0.dll" cdecl add-library ] }
{ [ os linux? ] [ "libgtk-x11-2.0.so" cdecl add-library ] }
[ drop ]
} cond
>>
IMPLEMENT-STRUCTS: GtkTreeIter ; IMPLEMENT-STRUCTS: GtkTreeIter ;