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

* use (setf instead of setter methods.

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

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

@@ -10,16 +10,13 @@

;; ensures that the message catalogs are found regardless

;; of the current directory.

(concatenate 'string

-

(directory-namestring

(mb.sysdef:input-file

(mb.sysdef:find-component :qt.examples "src" "i18n-hello-world")))

"hello-world")

(let ((widget (make-instance 'qt:label)))

- (setf (qt:property widget 'window-title)

- (qt:tr "Lisp Qt Example" "hello-world"))

- (cxx:set-text widget

- (format nil (qt:tr "<h1>Hello world</h1>

+ (setf (cxx:window-title widget) (qt:tr "Lisp Qt Example" "hello-world")

+ (cxx:text widget) (format nil (qt:tr "<h1>Hello world</h1>

You are running ~A version ~A on a ~A ~A")

(lisp-implementation-type)