repos / qt.gui / annotate_shade
summary | shortlog | log | tree | commit | commitdiff | headdiff | annotate | headblob | headfilediff | filehistory
normal | plain | shade | zebra
Break API compatibility for qt:with-app and qt:exec & spellcheck
Annotate for file src/painter.lisp
2010-01-10 tobias 1 (in-package :cl-smoke.qt-impl)
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
2009-07-01 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."
22:21:01 ' 9 `(let ((,painter (make-instance 'qt:painter :args (list ,paint-device))))
2010-01-23 tobias 10 (assert (cxx:is-active ,painter)
19:48:00 ' 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