Wed Jul 1 12:58:06 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Break API compatibility for qt:with-app and qt:exec & spellcheck

--- old-qt.gui/src/list.lisp 2014-10-30 07:46:05.000000000 +0100

+++ new-qt.gui/src/list.lisp 2014-10-30 07:46:06.000000000 +0100

@@ -28,24 +28,24 @@

(make-instance ',list-type))

(eval-when (:load-toplevel :execute)

,@(loop for type-name in (ensure-list type-name) collect

- `(smoke::add-type ,(format nil "const QList<~A>&" type-name)

- ',list-type))

+ `(smoke::add-type ,(format nil "const QList<~A>&" type-name)

+ ',list-type))

,@(loop for type-name in (ensure-list type-name) collect

- `(smoke::add-type ,(format nil "QList<~A>" type-name) ',list-type)))

+ `(smoke::add-type ,(format nil "QList<~A>" type-name) ',list-type)))

,@(loop for type-name in (ensure-list type-name) collect

- `(defmethod translate-from-foreign (list (type ,list-type))

- (let ((vector (make-array (,(symbolicate 'qt-smoke-list-

- type '-size)

- list))))

- (dotimes (index (length vector) vector)

- (setf (aref vector index)

- ;; FIXME the retuned object is not wrapped by Smoke

- ;; -> change this?

- (smoke::object-to-lisp

- (,(symbolicate 'qt-smoke-list-

- type '-at)

- list index)

- (smoke::make-smoke-type *smoke-module* ,type-name)))))))

+ `(defmethod translate-from-foreign (list (type ,list-type))

+ (let ((vector (make-array (,(symbolicate 'qt-smoke-list-

+ type '-size)

+ list))))

+ (dotimes (index (length vector) vector)

+ (setf (aref vector index)

+ ;; FIXME the returned object is not wrapped by Smoke

+ ;; -> change this?

+ (smoke::object-to-lisp

+ (,(symbolicate 'qt-smoke-list-

+ type '-at)

+ list index)

+ (smoke::make-smoke-type *smoke-module* ,type-name)))))))

(defmethod free-translated-object (pointer (type ,list-type) param)

(declare (ignore param))

(,(symbolicate 'qt-smoke-free-list- type)

@@ -59,10 +59,10 @@

qlist

(function ,(symbolicate 'qt-smoke-free-list- type)))))

,@(loop for type-name in (ensure-list type-name) collect

- `(define-from-lisp-translation (,(format nil "const QList<~A>&" type-name)

- ,(format nil "QLIst<~A>" type-name))

- list ;; FIXME allow seqence and define element type

- ,(symbolicate 'coerce- list-type))))))

+ `(define-from-lisp-translation (,(format nil "const QList<~A>&" type-name)

+ ,(format nil "QLIst<~A>" type-name))

+ list ;; FIXME allow sequence and define element type

+ ,(symbolicate 'coerce- list-type))))))

(define-qlist-wrapper "QVariant")

(define-qlist-wrapper ("QObject*" "QWidget*") "void")