Mon May 11 13:18:36 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* update marshalling for overload resolution
hunk ./qt.mbd 68
+ (:uses-macros-from :smoke)
hunk ./src/qstring.lisp 60
+(defun coerce-qstring (string)
+ (smoke::make-cleanup-pointer
+ (translate-to-foreign string (make-instance 'qt::qstring))
+ #'(lambda (pointer)
+ (free-translated-object pointer (make-instance 'qt::qstring)
+ nil))))
+
+(smoke::define-from-lisp-translation "const QString&" string
+ coerce-qstring)
+
hunk ./src/qt.lisp 51
- ;(make-smoke-classes *qt-smoke*))
hunk ./src/string-list.lisp 53
+(defun coerce-string-list (list)
+ (smoke::make-cleanup-pointer
+ (translate-to-foreign list (make-instance 'qt::string-list))
+ #'(lambda (pointer)
+ (free-translated-object pointer (make-instance 'qt::string-list)
+ nil))))
+
+(smoke::define-from-lisp-translation "const QStringList&"
+ (vector string) coerce-string-list)
+