gtk.ffi: stop using find-library.

diff --git a/basis/gtk/ffi/ffi.factor b/basis/gtk/ffi/ffi.factor
index b1e828bbedc31cca0db8bda5af3c5278757d82aa..2187c02c05588b7fb35ab3a10fa08162848fd390 100644 (file)
--- a/basis/gtk/ffi/ffi.factor
+++ b/basis/gtk/ffi/ffi.factor
@@ -1,8 +1,9 @@
 ! Copyright (C) 2010 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: alien alien.c-types alien.destructors alien.libraries
-alien.libraries.finder alien.syntax gobject-introspection
-gobject-introspection.standard-types init pango.ffi vocabs ;
+alien.syntax combinators gobject-introspection
+gobject-introspection.standard-types kernel pango.ffi system
+vocabs ;
 IN: gtk.ffi
 
 <<
@@ -12,7 +13,13 @@ IN: gtk.ffi
 
 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 ;