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

* Use new qt:with-app.

--- old-qt.examples/src/class-browser.lisp 2014-10-01 16:21:46.000000000 +0200

+++ new-qt.examples/src/class-browser.lisp 2014-10-01 16:21:46.000000000 +0200

@@ -81,8 +81,8 @@

(defun set-info (info web-view model-index)

(let* ((class (class-at model-index)))

(cxx:load web-view (format nil "http://doc.trolltech.com/~A/~A.html"

- (subseq (qt:q-version) 0 3)

- (remove #\: (smoke:name class) :count 1)))

+ (subseq (qt:q-version) 0 3)

+ (remove #\: (smoke:name class) :count 1)))

(cxx:set-text info

(format nil "<h1>qt:~A</h1>

<p>~A</p>

@@ -104,7 +104,7 @@

(defun class-browser ()

"Qt Class Browser"

- (qt:with-app

- (let ((browser (make-instance 'class-browser)))

- (cxx:show browser)

- (qt:exec))))

+ (qt:with-app ()

+ (let ((browser (make-instance 'class-browser)))

+ (cxx:show browser)

+ (qt:exec))))