Added support for Atk and GInterface

diff --git a/clg.system b/clg.system
index ccc8868c822cfc25262521b77daaa0b2ddc0ccf4..eeafe11c43695f811ff567c120b5544584a9d243 100644 (file)
--- a/clg.system
+++ b/clg.system
@@ -33,6 +33,7 @@
     (progn
       (pkg-exists-p "glib-2.0" :atleast-version "1.3.12")
       (pkg-exists-p "pango" :atleast-version "0.23")
     (progn
       (pkg-exists-p "glib-2.0" :atleast-version "1.3.12")
       (pkg-exists-p "pango" :atleast-version "0.23")

+      (pkg-exists-p "atk" :atleast-version "0.8")

       (pkg-exists-p "gtk+-2.0" :atleast-version "1.3.12"))
     :source-pathname "clg:"
     :binary-pathname "clg:"
       (pkg-exists-p "gtk+-2.0" :atleast-version "1.3.12"))
     :source-pathname "clg:"
     :binary-pathname "clg:"


@@ -64,6 +65,7 @@
        (:file "gboxed" :depends-on ("gtype"))
        (:file "genums" :depends-on ("gtype"))
        (:file "gparam" :depends-on ("genums"))
        (:file "gboxed" :depends-on ("gtype"))
        (:file "genums" :depends-on ("gtype"))
        (:file "gparam" :depends-on ("genums"))

+       (:file "ginterface" :depends-on ("gtype"))

        (:file "gobject" :depends-on ("gparam"))
        (:file "gcallback" :depends-on ("gtype" "gparam" "gobject" "callback"))
        (:file "glib-export"
        (:file "gobject" :depends-on ("gparam"))
        (:file "gcallback" :depends-on ("gtype" "gparam" "gobject" "callback"))
        (:file "glib-export"


@@ -104,6 +106,13 @@
         (:file "pango" :depends-on ("pango-package"))
         (:file "pango-export" :depends-on ("pango")))
        :depends-on (glib))
         (:file "pango" :depends-on ("pango-package"))
         (:file "pango-export" :depends-on ("pango")))
        :depends-on (glib))

+     (:module atk
+      :initially-do (load-shared-library "libatk.so")
+       :components
+       ((:file "atk-package")
+        (:file "atk" :depends-on ("atk-package"))
+        (:file "atk-export" :depends-on ("atk")))
+       :depends-on (glib))

      (:file "gtkglue"
       :source-pathname "gtk;"
       :binary-pathname "gtk;"
      (:file "gtkglue"
       :source-pathname "gtk;"
       :binary-pathname "gtk;"


@@ -134,7 +143,4 @@
        (:file "gtkcontainer" :depends-on ("gtktypes"))
        (:file "gtk" :depends-on ("gtktypes"))
        (:file "gtkutils" :depends-on ("gtk")))
        (:file "gtkcontainer" :depends-on ("gtktypes"))
        (:file "gtk" :depends-on ("gtktypes"))
        (:file "gtkutils" :depends-on ("gtk")))

-      :depends-on (glib gdk pango "gtkglue")))))
-
-
-
+      :depends-on (glib gdk pango atk "gtkglue")))))