Sun May 24 16:40:11 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Use overload resolution instead of static-call

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

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

@@ -50,13 +50,14 @@

(values (make-instance 'qt:application :args (list argc argv)) t))))

(defun kill-app ()

(cxx:quit (app))

-; (when (typep (app) (find-class 'qt:application))

-; (application.close-all-windows))

+ (when (typep (app) (find-class 'qt:application))

+ (application.close-all-windows))

(setf *widgets* nil)

(trivial-garbage:cancel-finalization (app))

(smoke::remove-object (smoke::pointer (app)))

;; FIXME leak memory or memory fault!

;(smoke::delete-pointer (smoke::pointer (app)) (class-of (app)))

+ (cxx:delete-later (app))

(setf (slot-value (app) 'pointer) (null-pointer))

(makunbound '*app*)))