Mon May 11 13:18:36 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* update marshalling for overload resolution
diff -rN -u old-qt.gui/qt.mbd new-qt.gui/qt.mbd
--- old-qt.gui/qt.mbd 2014-10-07 05:47:30.000000000 +0200
+++ new-qt.gui/qt.mbd 2014-10-07 05:47:30.000000000 +0200
@@ -65,4 +65,5 @@
("string-list" (:needs "qt" "lib" "qstring"))
("variant" (:needs "qt" "qstring" "lisp-object"))
("properties" (:needs "variant")))))
+ (:uses-macros-from :smoke)
(:needs :smoke :sysdef.cmake :cffi))
diff -rN -u old-qt.gui/src/qstring.lisp new-qt.gui/src/qstring.lisp
--- old-qt.gui/src/qstring.lisp 2014-10-07 05:47:30.000000000 +0200
+++ new-qt.gui/src/qstring.lisp 2014-10-07 05:47:30.000000000 +0200
@@ -56,3 +56,13 @@
(defmethod free-translated-object (pointer (type qstring) param)
(declare (ignore param))
(qt-smoke-free-qstring pointer))
+
+(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)
diff -rN -u old-qt.gui/src/qt.lisp new-qt.gui/src/qt.lisp
--- old-qt.gui/src/qt.lisp 2014-10-07 05:47:30.000000000 +0200
+++ new-qt.gui/src/qt.lisp 2014-10-07 05:47:30.000000000 +0200
@@ -48,7 +48,6 @@
(eval-when (:load-toplevel :compile-toplevel)
(when (null-pointer-p *qt-binding*)
(setf *qt-binding* (init *qt-smoke*))))
- ;(make-smoke-classes *qt-smoke*))
(define-methods *qt-smoke*)
diff -rN -u old-qt.gui/src/string-list.lisp new-qt.gui/src/string-list.lisp
--- old-qt.gui/src/string-list.lisp 2014-10-07 05:47:30.000000000 +0200
+++ new-qt.gui/src/string-list.lisp 2014-10-07 05:47:30.000000000 +0200
@@ -49,3 +49,13 @@
(defmethod free-translated-object (string-list (type string-list) param)
(declare (ignore param))
(qt-smoke-free-string-list string-list))
+
+(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)