Adding :gtk2.8 to *features* if Gtk 2.8 is found.

[clg] / gtk / gtk.asd

diff --git a/gtk/gtk.asd b/gtk/gtk.asd
index db9ae6c26946e9955df0058490b3db7482e03fae..0207cb6ee4c066cb94130ad0e6293cf76bdcaebe 100644 (file)
--- a/gtk/gtk.asd
+++ b/gtk/gtk.asd
@@ -3,13 +3,17 @@
 (asdf:oos 'asdf:load-op :clg-tools)
 
 (defpackage "GTK-SYSTEM"
-  (:use "COMMON-LISP" "ASDF" "PKG-CONFIG")
-  (:export "CLG-INIT"))
+  (:use "COMMON-LISP" "ASDF" "PKG-CONFIG"))
 
 (in-package "GTK-SYSTEM")
 
 (pkg-exists-p "gtk+-2.0" :atleast-version "2.4.0")
 
+(when (string>= (pkg-version "gtk+-2.0") "2.6.0")
+  (pushnew :gtk2.6 *features*))
+
+(when (string>= (pkg-version "gtk+-2.0") "2.8.0")
+  (pushnew :gtk2.8 *features*))
 
 (defsystem gtk
     :depends-on (glib gdk pango atk)
@@ -25,7 +29,10 @@
                 (:file "gtktypes" :depends-on ("gtkobject"))
                 (:file "gtkwidget" :depends-on ("gtktypes"))
                 (:file "gtkcontainer" :depends-on ("gtktypes"))
+                (:file "gtktree" :depends-on ("gtktypes"))
+                (:file "gtktext" :depends-on ("gtktypes"))
+                (:file "gtkaction" :depends-on ("gtktypes"))
+                (:file "gtkstyle" :depends-on ("gtktypes"))
                 (:file "gtk" :depends-on ("gtktypes"))
                 (:file "gtkutils" :depends-on ("gtk"))
-                (:file "export" :depends-on ("gtktypes" "gtk")))
-    :perform (load-op :after (op gtk) (clg-init)))
+                (:file "export" :depends-on ("gtktypes" "gtkwidget" "gtkcontainer" "gtk" "gtktree" "gtkaction" "gtkutils" "gtkstyle"))))