Referencing foreign classes when loading saved images

diff --git a/glib/gtype.lisp b/glib/gtype.lisp
index a2fdfcd340ef29368c182b8f669e5b9ad786310c..a57183e2e6e4072c691f3b81a8a666670a8a76ce 100644 (file)
--- a/glib/gtype.lisp
+++ b/glib/gtype.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gtype.lisp,v 1.68 2009/02/09 12:22:53 espen Exp $
+;; $Id: gtype.lisp,v 1.69 2009/02/10 15:16:34 espen Exp $
 
 (in-package "GLIB")
 
@@ -348,6 +348,8 @@ (defun register-new-type (type parent &optional foreign-name)
 
 ;;;; Metaclass for subclasses of ginstance
 
+(defvar *referenced-ginstance-classes* ())
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defclass ginstance-class (proxy-class)
     ((gtype :initarg :gtype :initform nil :reader ginstance-class-gtype))))
@@ -376,7 +378,8 @@                (default-alien-type-name class-name))))
        (type-class-ref
         (if (or (symbolp gtype) (type-number-from-glib-name gtype nil))
             (register-type class-name gtype)
-          (register-new-type class-name (class-name super) gtype))))
+          (register-new-type class-name (class-name super) gtype)))
+       (push class-name *referenced-ginstance-classes*))
       #+nil
       (when (and
             (supertype (find-type-number class))
@@ -386,6 +389,12 @@               (default-alien-type-name class-name))))
     (update-size class))
   #-clisp(call-next-method))
 
+(defun reinitialize-ginstance-classes ()
+  (mapc #'type-class-ref *referenced-ginstance-classes*))
+
+(asdf:install-init-hook 'reinitialize-ginstance-classes)
+
+
 
 (defmethod shared-initialize ((class ginstance-class) names &rest initargs)
   (declare (ignore names initargs))