Sun Jun 21 11:29:25 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* *SMOKE-MODULE* must be passed instead of *QT-SMOKE*.

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

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

@@ -4,7 +4,7 @@

(defvar *app*)

(defvar *widgets* nil)

-(defvar *exec-p* t

+(defvar qt:*exec-p* t

"Run exec if true and not otherwise.")

(defun qt:app ()

@@ -105,7 +105,7 @@

(defun qt:exec (&rest widgets)

"Executes APP."

(setf *widgets* (append widgets *widgets*))

- (when *exec-p*

+ (when qt:*exec-p*

(restart-bind ((qt::abort-app #'(lambda ()

(cxx:quit (qt:app))

(invoke-restart (find-restart 'continue)))