From: espen <espen>
Date: Sun, 31 Oct 2004 14:44:05 +0000 (+0000)
Subject: Automatic initialization after loading
X-Git-Tag: clg-0-90~225
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/cea43e54e89c50cf290232826d8f8b3d3fc3fbb6

Automatic initialization after loading
---

diff --git a/gtk/gtk.asd b/gtk/gtk.asd
index 34752c6..db9ae6c 100644
--- a/gtk/gtk.asd
+++ b/gtk/gtk.asd
@@ -3,7 +3,8 @@
 (asdf:oos 'asdf:load-op :clg-tools)
 
 (defpackage "GTK-SYSTEM"
-  (:use "COMMON-LISP" "ASDF" "PKG-CONFIG"))
+  (:use "COMMON-LISP" "ASDF" "PKG-CONFIG")
+  (:export "CLG-INIT"))
 
 (in-package "GTK-SYSTEM")
 
@@ -26,4 +27,5 @@
 		 (:file "gtkcontainer" :depends-on ("gtktypes"))
 		 (:file "gtk" :depends-on ("gtktypes"))
 		 (:file "gtkutils" :depends-on ("gtk"))
-		 (:file "export" :depends-on ("gtktypes" "gtk"))))
+		 (:file "export" :depends-on ("gtktypes" "gtk")))
+    :perform (load-op :after (op gtk) (clg-init)))
diff --git a/gtk/gtkobject.lisp b/gtk/gtkobject.lisp
index 6a5cad4..a38ae9e 100644
--- a/gtk/gtkobject.lisp
+++ b/gtk/gtkobject.lisp
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
-;; $Id: gtkobject.lisp,v 1.16 2004/10/31 12:05:52 espen Exp $
+;; $Id: gtkobject.lisp,v 1.17 2004/10/31 14:44:05 espen Exp $
 
 
 (in-package "GTK")
@@ -92,6 +92,7 @@ (defbinding (gtk-init "gtk_parse_args") () nil
   (nil null)
   (nil null))
 
+(import 'gtk-system:clg-init)
 
 (defun clg-init (&optional display)
   "Initializes the system and starts the event handling"