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

* use (setf instead of setter methods.

--- old-qt.examples/src/repl.lisp 2014-10-30 07:38:53.000000000 +0100

+++ new-qt.examples/src/repl.lisp 2014-10-30 07:38:53.000000000 +0100

@@ -5,7 +5,7 @@

(defclass repl (qt:widget)

((model :reader model

- :initform (make-instance 'qt:string-list-model))

+ :initform (make-instance 'qt:string-list-model))

(output :reader output

:initform (make-instance 'qt:list-view))

(input :reader input

@@ -18,11 +18,11 @@

(unless (cxx:insert-row list-model index)

(error "insert-row ~A for ~A failed." index list-model))

(cxx:set-data list-model (cxx:index list-model index)

- (qt::make-variant string))))

+ (qt:make-variant string))))

(defmethod initialize-instance :after ((repl repl) &rest args)

(declare (ignore args))

- (cxx:set-model (output repl) (model repl))

+ (setf (cxx:model (output repl)) (model repl))

(qt:connect (qt:get-signal (input repl) "returnPressed()")

#'(lambda ()

(append-list-model ;; Input

@@ -33,11 +33,11 @@

(format nil "~S"

(handler-case (eval (read-from-string (cxx:text (input repl))))

(error (condition) condition))))

- (cxx:set-text (input repl) "")))

+ (setf (cxx:text (input repl)) "")))

(let ((layout (make-instance 'qt:vbox-layout)))

(cxx:add-widget layout (output repl))

(cxx:add-widget layout (input repl))

- (cxx:set-layout repl layout))

+ (setf (cxx:layout repl) layout))

(cxx:set-focus (input repl)))

(defun repl ()