Thu Jul 23 00:21:01 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* support packages for symbols as property names.

--- old-qt.gui/src/variant.lisp 2014-10-30 07:45:29.000000000 +0100

+++ new-qt.gui/src/variant.lisp 2014-10-30 07:45:29.000000000 +0100

@@ -15,16 +15,16 @@

"Returns a new VARIANT containing a C++ version of VALUE

or an empty variant when VALUE is not specified."

(if value-p

- (make-instance 'qt:variant :args (list value))

+ (make-instance 'qt:variant :arg0 value)

(make-instance 'qt:variant)))

(defun qt:make-char (character)

"Returns a char for a lisp CHARACTER."

(let ((octets (babel:string-to-octets (string character))))

(case (length octets)

- (1 (make-instance 'qt:char :args (list (aref octets 0))))

+ (1 (make-instance 'qt:char :arg0 (aref octets 0)))

(2 (make-instance 'qt:char :args (list (aref octets 0)

- (aref octets 1))))

+ (aref octets 1))))

(t (error "qt:char requires the character ~A to be encoded

in one or two octets, but it is using ~A."

character (length octets))))))

@@ -34,7 +34,7 @@

(cxx:is-low-surrogate char)))

(defun qt:from-char (char)

- "Returns the lisp character represented by CHAR."

+ "Returns the Lisp character represented by CHAR."

(assert (not (surrogate-p char))

(char)

"The char ~A is part of a surrogate.")

@@ -54,11 +54,11 @@

(princ (qt:from-char char) stream))))

-;; FIXME include in MAKE-VARIANT?

+;; FIXME include in MAKE-VARIANT? how??

(defun qt:make-lisp-variant (value)

"Returns a new VARIANT that wraps VALUE.

-The variant contains the actual Lisp object

+The variant contains the actual Lisp object VALUE

and not its C++ value like in MAKE-VARIANT."

(let ((object (make-cxx-lisp-object value)))

(unwind-protect