Thu Aug 27 10:37:36 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Update to the new smokegenerator.

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

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

@@ -25,16 +25,16 @@

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

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

- "data")))

- (defmethod cxx:data ((array qt:byte-array))

+ "constData")))

+ (defmethod cxx:const-data ((array qt:byte-array))

(values ;; Discharge second return value (length of string)

(foreign-string-to-lisp (smoke::pointer-call method

(smoke::pointer array))

:count (cxx:size array))))))

(defun from-qstring (qstring)

- (cxx:data (make-instance 'qt:byte-array

- :pointer (qt-smoke-qstring-to-byte-array qstring))))

+ (cxx:const-data (make-instance 'qt:byte-array

+ :pointer (qt-smoke-qstring-to-byte-array qstring))))

(define-to-lisp-translation ("QString" "const QString&")

from-qstring qt-smoke-free-qstring)

@@ -52,4 +52,6 @@

(if (null-pointer-p (pointer object))

(call-next-method)

(print-unreadable-object (object stream :type t :identity t)

- (prin1 (cxx:data object) stream))))

+ (when (smoke::const-p object)

+ (princ "CONST " stream))

+ (prin1 (cxx:const-data object) stream))))