Add a boundp-function slot, which is required by virtual slot getter.

[clg] / gtk / gtk.asd

diff --git a/gtk/gtk.asd b/gtk/gtk.asd
index 34752c6abe53edfe9c54125f74e683630ecad0aa..3dba691854870248017cef46b122cc7ba6e11a1e 100644 (file)
--- a/gtk/gtk.asd
+++ b/gtk/gtk.asd
@@ -7,23 +7,29 @@
 
 (in-package "GTK-SYSTEM")
 
-(pkg-exists-p "gtk+-2.0" :atleast-version "2.4.0")
-
+(pkg-exists-p "gtk+-2.0" :atleast-version "2.4.0" :error t)
 
 (defsystem gtk
-    :depends-on (glib gdk pango atk)
+    :depends-on (gffi glib gdk pango atk)
     :components ((:file "defpackage")
-                (:library "libgtk-x11-2.0" 
-                          :libdir #.(pkg-variable "gtk+-2.0" "libdir"))
-                (:unix-dso "alien"
-                           :components ((:c-source-file "glue"
-                                         :cflags #.(pkg-cflags "gtk+-2.0")))
-                           :depends-on ("libgtk-x11-2.0"))
-                (:file "gtkobject" 
-                       :depends-on ("defpackage" "alien"))
+                (:library "libgtk-2.0" 
+                 :libdir #.(pkg-libdir "gtk+-2.0")
+                 :libname #-win32 "libgtk-x11-2.0"
+                          #+win32 "libgtk-win32-2.0-0")
+                (:shared-object "gtk-alien" :pathname "alien/"
+                 :ldflags #.(pkg-libs "gtk+-2.0")
+                 :components ((:c-source-file "glue"
+                               :cflags #.(pkg-cflags "gtk+-2.0")))
+                 :depends-on (#+cmu "libgtk-2.0"))
+                (:file "gtkobject" :depends-on ("defpackage" "gtk-alien" "libgtk-2.0"))
                 (:file "gtktypes" :depends-on ("gtkobject"))
                 (:file "gtkwidget" :depends-on ("gtktypes"))
                 (:file "gtkcontainer" :depends-on ("gtktypes"))
-                (:file "gtk" :depends-on ("gtktypes"))
+                (:file "gtktree" :depends-on ("gtktypes"))
+                (:file "gtktext" :depends-on ("gtktypes"))
+                (:file "gtkaction" :depends-on ("gtktypes" "gtk"))
+                (:file "gtkselection" :depends-on ("gtktypes"))
+                (:file "gtkstyle" :depends-on ("gtktypes"))
+                (:file "gtk" :depends-on ("gtktypes" "gtkcontainer"))
                 (:file "gtkutils" :depends-on ("gtk"))
-                (:file "export" :depends-on ("gtktypes" "gtk"))))
+                (:file "export" :depends-on ("gtktypes" "gtkwidget" "gtkcontainer" "gtk" "gtktree" "gtktext" "gtkaction" "gtkselection" "gtkutils" "gtkstyle"))))