darcs - qt.core

repos / qt.core / annotate_shade

initial import

Annotate for file src/painter.lisp

2009-04-05       tobias  (in-package :qt)
17:56:16              '  
                      '  (defmacro 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))))
                      '       (assert (cxx:is-active ,painter)
                      '               (,painter)
                      '               "Painter ~A for ~A is not active"
                      '               ,painter ,paint-device)
                      '       (unwind-protect
                      '            (progn ,@body)
                      '         (cxx:end ,painter))))

Crece desde el pueblo el futuro / crece desde el pie

RSS