Wed May 27 19:18:41 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* QList<QByteArray> and QList<QVariant> conversion & use cxx:operator== and qt:operator== in cxx:=

--- old-qt.gui/src/qstring.lisp 2014-10-30 07:49:09.000000000 +0100

+++ new-qt.gui/src/qstring.lisp 2014-10-30 07:49:09.000000000 +0100

@@ -37,10 +37,6 @@

(define-parse-method qstring ()

(make-instance 'qstring))

-(defmethod translate-to-foreign (string (type qstring))

- (with-foreign-string ((data length) string :null-terminated-p nil)

- (qt-smoke-string-to-qstring data length)))

-

(smoke:eval-startup (:compile-toplevel :execute)

(let ((method (smoke::make-smoke-method (find-class 'byte-array)

"data")))

@@ -60,7 +56,8 @@

(defun coerce-qstring (string)

(make-cleanup-pointer

- (translate-to-foreign string (make-instance 'qt::qstring))

+ (with-foreign-string ((data length) string :null-terminated-p nil)

+ (qt-smoke-string-to-qstring data length))

#'(lambda (pointer)

(free-translated-object pointer (make-instance 'qt::qstring)

nil))))