Mon Jun 1 00:39:13 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* QList<QWidget*>
hunk ./src/list.lisp 30
- (smoke::add-type ,(format nil "const QList<~A>&" type-name)
- ',list-type)
- (smoke::add-type ,(format nil "QList<~A>" type-name) ',list-type))
- (defmethod translate-from-foreign (list (type ,list-type))
+ ,@(loop for type-name in (ensure-list type-name) collect [_$_]
+ `(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)))
+ ,@(loop for type-name in (ensure-list type-name) collect
+ `(defmethod translate-from-foreign (list (type ,list-type))
hunk ./src/list.lisp 48
- (smoke::make-smoke-type *qt-smoke* ,type-name))))))
+ (smoke::make-smoke-type *qt-smoke* ,type-name)))))))
hunk ./src/list.lisp 61
- (define-from-lisp-translation (,(format nil "const QList<~A>&" type-name)
+ ,@(loop for type-name in (ensure-list type-name) collect
+ `(define-from-lisp-translation (,(format nil "const QList<~A>&" type-name)
hunk ./src/list.lisp 65
- ,(symbolicate 'coerce- list-type)))))
+ ,(symbolicate 'coerce- list-type))))))
hunk ./src/list.lisp 68
-(define-qlist-wrapper "QObject*" "void")
+(define-qlist-wrapper ("QObject*" "QWidget*") "void")