Mon May 11 21:50:13 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* print-object qt:object object-name
diff -rN -u old-qt.gui/src/object.lisp new-qt.gui/src/object.lisp
--- old-qt.gui/src/object.lisp 2014-10-30 07:43:56.000000000 +0100
+++ new-qt.gui/src/object.lisp 2014-10-30 07:43:56.000000000 +0100
@@ -23,6 +23,12 @@
(sort (class-slots class) #'string<=))
(call-next-method)))
+(defmethod print-object ((object object) stream)
+ (if (null-pointer-p (pointer object))
+ (call-next-method)
+ (print-unreadable-object (object stream :type t :identity t)
+ (princ (cxx:object-name object) stream))))
+
(defun meta-object-methods (meta-object &optional (direct-only nil))
(loop for index from (if direct-only (cxx:method-offset meta-object) 0)
below (cxx:method-count meta-object)