Automatic initialization after loading

diff --git a/gtk/gtk.asd b/gtk/gtk.asd
index 34752c6abe53edfe9c54125f74e683630ecad0aa..db9ae6c26946e9955df0058490b3db7482e03fae 100644 (file)
--- a/gtk/gtk.asd
+++ b/gtk/gtk.asd
@@ -3,7 +3,8 @@
 (asdf:oos 'asdf:load-op :clg-tools)
 
 (defpackage "GTK-SYSTEM"
 (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")
 
 
 (in-package "GTK-SYSTEM")
 


@@ -26,4 +27,5 @@
                 (: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"))

-                (: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 aa102abfcb84c8b61c5c0e78112c726ba249fc02..e2669092ee044d64a146298f297a2da2abc130da 100644 (file)
--- 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
 
 ;; 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")
 
 
 (in-package "GTK")


@@ -92,6 +92,7 @@ (defbinding (gtk-init "gtk_parse_args") () nil
   (nil null)
   (nil null))
 
   (nil null)
   (nil null))
 

+(import 'gtk-system:clg-init)

 
 (defun clg-init (&optional display)
   "Initializes the system and starts the event handling"
 
 (defun clg-init (&optional display)
   "Initializes the system and starts the event handling"