Thu Jun 11 16:59:48 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* :qt and :qt-impl packages to prevent collision with :cl symbols and fix object with non smoke parent.

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

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

@@ -1,12 +1,12 @@

-(in-package :qt)

+(in-package :cl-smoke.qt-impl)

-(defmacro with-painter ((painter paint-device) &body body)

+(defmacro qt:with-painter ((painter paint-device) &body body)

"Binds a PAINTER instance for PAINT-DEVICE to PAINTER

during the evaulation of BODY.

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

still active and not yet garbage collected painters."

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

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

(assert (cxx:is-active ,painter)

(,painter)

"Painter ~A for ~A is not active"