Rework QObject parent ownership transfer
src/application.lisp
Sun May 31 19:33:32 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Rework QObject parent ownership transfer
--- old-qt.gui/src/application.lisp 2014-10-30 07:48:30.000000000 +0100
+++ new-qt.gui/src/application.lisp 2014-10-30 07:48:30.000000000 +0100
@@ -100,5 +100,9 @@
(invoke-restart (find-restart 'continue)))
:report-function
#'(lambda (stream)
- (format stream "Return from the application event loop."))))
+ (format stream "Return from the application event loop."))
+ :test-function
+ #'(lambda (condition)
+ (declare (ignore condition))
+ (find-restart 'continue))))
(cxx:exec (app)))))