Wed Jul 1 13:01:24 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Use new qt:with-app.

--- old-qt.examples/src/hello-world-quit.lisp 2014-10-01 22:28:13.000000000 +0200

+++ new-qt.examples/src/hello-world-quit.lisp 2014-10-01 22:28:13.000000000 +0200

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

(in-package :qt.examples)

(defun hello-world-quit ()

- "Quit on push-button click"

- (qt:with-app

+ "Quit on push-button click."

+ (qt:with-app ()

(let ((quit (make-instance 'qt:push-button :args '("Quit")))

(font (make-instance 'qt:font :args (list "Times"

18

@@ -16,8 +16,8 @@

(qt:connect (qt:get-signal quit "pressed()")

#'(lambda ()

(format t "About to quit()~%")))

-

+

(qt:connect (qt:get-signal quit "clicked()")

(qt:get-slot (qt:app) "quit()"))

(cxx:show quit)

- (qt:exec quit))))

+ (qt:exec))))