Sun May 24 17:02:00 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* *exec-p* allows disabling qt:exec
hunk ./src/application.lisp 7
+(defvar *exec-p* t
+ "Run exec if true and not otherwise.")
hunk ./src/application.lisp 96
- (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)))))
hunk ./src/package.lisp 6
+ #:*exec-p*