(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")
-
+(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"
+ :ldflags #.(pkg-libs "gtk+-2.0")
:components ((:c-source-file "glue"
:cflags #.(pkg-cflags "gtk+-2.0")))
:depends-on ("libgtk-x11-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"))
+ (: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")))
- :perform (load-op :after (op gtk) (clg-init)))
+ (:file "export" :depends-on ("gtktypes" "gtkwidget" "gtkcontainer" "gtk" "gtktree" "gtkaction" "gtkselection" "gtkutils" "gtkstyle"))))