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

* support packages for symbols as property names.

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

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

@@ -5,8 +5,8 @@

during the evaluation of BODY.

Makes sure the painter ends after BODY; thus preventing problems with

-still active and not yet garbage collected painters."

- `(let ((,painter (make-instance 'qt:painter :args (list ,paint-device))))

+still active and not yet garbage collected painters in CXX:PAINT-EVENT."

+ `(let ((,painter (make-instance 'qt:painter :arg0 ,paint-device)))

(assert (cxx:is-active ,painter)

(,painter)

"Painter ~A for ~A is not active"