Sun May 24 17:02:00 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* *exec-p* allows disabling qt:exec

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

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

@@ -4,6 +4,8 @@

(defvar *app*)

(defvar *widgets* nil)

+(defvar *exec-p* t

+ "Run exec if true and not otherwise.")

(defun app ()

"Returns the APPLICATION (or CORE-APPLICATION) object,

@@ -91,11 +93,12 @@

(defun exec (&rest widgets)

"Executes APP."

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

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

- (application.close-all-windows)

- (cxx:quit (app))

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

- :report-function

- #'(lambda (stream)

- (format stream "Return from the application event loop."))))

- (cxx:exec (app))))

+ (when *exec-p*

+ (restart-bind ((abort-app #'(lambda ()

+ (application.close-all-windows)

+ (cxx:quit (app))

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

+ :report-function

+ #'(lambda (stream)

+ (format stream "Return from the application event loop."))))

+ (cxx:exec (app)))))

--- old-qt.gui/src/package.lisp 2014-10-30 07:01:19.000000000 +0100

+++ new-qt.gui/src/package.lisp 2014-10-30 07:01:19.000000000 +0100

@@ -3,6 +3,7 @@

(:export #:app

#:app-p

#:exec

+ #:*exec-p*

#:with-app

#:with-core-app