repos / qt.gui / annotate_shade
summary | shortlog | log | tree | commit | commitdiff | headdiff | annotate | headblob | headfilediff | filehistory
normal | plain | shade | zebra
Split up in qt.gui & cleanup name prefix.
Annotate for file src/painter.lisp
2010-01-10 tobias 1 (in-package :cl-smoke.qt.gui)
2009-04-05 tobias 2
2010-01-23 tobias 3 (defmacro qt:with-painter ((painter paint-device) &body body)
2009-04-05 tobias 4 "Binds a PAINTER instance for PAINT-DEVICE to PAINTER
2010-01-23 tobias 5 during the evaluation of BODY.
2009-04-05 tobias 6
2009-07-01 tobias 7 Makes sure the painter ends after BODY; thus preventing problems with
2009-07-22 tobias 8 still active and not yet garbage collected painters in CXX:PAINT-EVENT."
2010-01-23 tobias 9 `(let ((,painter (make-instance 'qt:painter :arg0 ,paint-device)))
19:48:00 ' 10 (assert (cxx:is-active ,painter)
' 11 (,painter)
' 12 "Painter ~A for ~A is not active"
' 13 ,painter ,paint-device)
' 14 (unwind-protect
' 15 (progn ,@body)
' 16 (cxx:end ,painter))))
Crece desde el pueblo el futuro / crece desde el pie