Mon May 11 20:30:39 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* use (setf instead of setter methods.

--- old-qt.examples/src/hello-world-quit.lisp 2014-10-30 07:38:46.000000000 +0100

+++ new-qt.examples/src/hello-world-quit.lisp 2014-10-30 07:38:46.000000000 +0100

@@ -9,9 +9,9 @@

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

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

18

- (value qt:font.+bold+)))))

+ qt:font.+bold+))))

(cxx:resize quit 75 30)

- (cxx:set-font quit font)

+ (setf (cxx:font quit) font)

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

#'(lambda ()