Sun Aug 2 13:15:21 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Support ownership transfer to non smoke wrapped QObjects & cleanup C++ to Lisp translation.

--- old-qt.gui/src/application.lisp 2014-10-30 07:44:33.000000000 +0100

+++ new-qt.gui/src/application.lisp 2014-10-30 07:44:33.000000000 +0100

@@ -40,7 +40,9 @@

(progn

(when (not (null-pointer-p (smoke::pointer

(qt:core-application.instance))))

- (cerror "Delete the active application." "Active application not created by QT:WITH-APP.")

+ (cerror (format nil "Delete the active application ~A."

+ (qt:core-application.instance))

+ "Active application not created by QT:WITH-APP.")

(smoke::delete-pointer (smoke::pointer (qt:core-application.instance))

(find-class 'qt:core-application)))

(let* ((argc (smoke:make-auto-pointer