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

* use (setf instead of setter methods.

--- old-qt.examples/src/class-browser.lisp 2014-10-30 07:38:44.000000000 +0100

+++ new-qt.examples/src/class-browser.lisp 2014-10-30 07:38:44.000000000 +0100

@@ -32,7 +32,7 @@

:initform (make-instance 'qt:label))

(web-view :reader web-view

:initform (make-instance 'qt.webkit:web-view)))

- (:metaclass smoke::smoke-wrapper-class))

+ (:metaclass cxx:class))

(defun setup-class-list (classes)

(do-external-symbols (symbol :qt)

@@ -58,20 +58,19 @@

(cxx:keyboard-search (classes-list browser)

text))))

(let ((scroll (make-instance 'qt:scroll-area)))

- (cxx:set-widget scroll (class-info browser))

- (cxx:set-widget-resizable scroll t)

+ (setf (cxx:widget scroll) (class-info browser)

+ (cxx:widget-resizable scroll) t)

(cxx:add-widget layout scroll))

- (cxx:set-layout w layout)

+ (setf (cxx:layout w) layout)

(cxx:add-widget browser w))

(cxx:add-widget browser (web-view browser))

(qt:do-delayed-initialize

(setup-class-list (classes browser))

- (cxx:set-uniform-item-sizes (classes-list browser) t)

- (cxx:set-selection-mode (classes-list browser) qt:abstract-item-view.+single-selection+)

- (cxx:set-model (classes-list browser) (classes browser))

- (cxx:set-word-wrap (class-info browser) t)

- (cxx:set-window-title browser "CL Qt Classes")

-

+ (setf (cxx:uniform-item-sizes (classes-list browser)) t

+ (cxx:selection-mode (classes-list browser)) qt:abstract-item-view.+single-selection+

+ (cxx:model (classes-list browser)) (classes browser)

+ (cxx:word-wrap (class-info browser)) t

+ (cxx:window-title browser) "CL Qt Classes")

(qt:connect (qt:get-signal (cxx:selection-model (classes-list browser))

"currentChanged(QModelIndex, QModelIndex)")

#'(lambda (current previous)

@@ -83,7 +82,7 @@

(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)))

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

(cxx:set-text info

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

<p>~A</p>

@@ -97,7 +96,7 @@

</ul>

"

(string-downcase (class-name class))

- (smoke::name class)

+ (smoke:name class)

(mapcar #'(lambda (c) (string-downcase (class-name c)))

(closer-mop:class-direct-superclasses class))

(mapcar #'(lambda (c) (string-downcase (class-name c)))