factor: trim using lists

[factor.git] / basis / atk / ffi / ffi.factor

diff --git a/basis/atk/ffi/ffi.factor b/basis/atk/ffi/ffi.factor
index fa3dd6910f2e7d989d3a8bde0a94da01b93d078d..4082c4a04beb78266fd32c172e78d08857ccaf68 100644 (file)
--- a/basis/atk/ffi/ffi.factor
+++ b/basis/atk/ffi/ffi.factor
@@ -1,23 +1,17 @@
-! Copyright (C) 2009 Anton Gorenko.
+! Copyright (C) 2010 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.libraries alien.syntax combinators kernel
-system
-gir glib.ffi gobject.ffi ;
+USING: alien alien.libraries alien.syntax combinators
+gobject-introspection system vocabs ;
 IN: atk.ffi
 
-<<
-"atk" {
-    { [ os winnt? ] [ "libatk-1.0-0.dll" cdecl add-library ] }
-    { [ os macosx? ] [ drop ] }
-    { [ os unix? ] [ "libatk-1.0.so" cdecl add-library ] }
-} cond
->>
+<< "gobject.ffi" require >>
 
-TYPEDEF: guint64 AtkState
-TYPEDEF: GSList AtkAttributeSet
+LIBRARY: atk
 
-! gir: error
-C-TYPE: AtkPropertyValues
+<< "atk" {
+    { [ os windows? ] [ "libatk-1.0-0.dll" ] }
+    { [ os macosx? ] [ "libatk-1.0.dylib" ] }
+    { [ os unix? ] [ "libatk-1.0.so" ] }
+} cond cdecl add-library >>
 
 GIR: vocab:atk/Atk-1.0.gir
-