Thu Jul 2 21:12:45 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* move emit slot code to new function ACTIVATE & image startup fix for STATIC-META-OBJECT

--- old-qt.gui/src/object.lisp 2014-10-30 07:45:55.000000000 +0100

+++ new-qt.gui/src/object.lisp 2014-10-30 07:45:55.000000000 +0100

@@ -1,11 +1,13 @@

(in-package :cl-smoke.qt-impl)

-(let ((object (make-instance 'qt:object)))

- (defmethod cxx:static-meta-object ((class (eql (find-class 'qt:object))))

- "No OBJECT.STATIC-META-OBJECT (r558420)."

- (cxx:meta-object object))

- (defmethod cxx:static-meta-object ((class cxx:class))

- (cxx:static-meta-object (smoke::find-smoke-class class))))

+(smoke:eval-startup (:load-toplevel :compile-toplevel :execute)

+ (let ((object (make-instance 'qt:object)))

+ (defmethod cxx:static-meta-object ((class (eql (find-class 'qt:object))))

+ "No OBJECT.STATIC-META-OBJECT (r558420)."

+ (cxx:meta-object object))))

+

+(defmethod cxx:static-meta-object ((class cxx:class))

+ (cxx:static-meta-object (smoke::find-smoke-class class)))

(defmethod documentation :around ((class smoke::smoke-standard-class)

(doc-type (eql 't)))