Now using non-consing WITH-CAIRO-CONTEXT

diff --git a/examples/testcairo.lisp b/examples/testcairo.lisp
index 6e903161c33d2f7603d727ee5145a1fa3f828b99..bbdc56c9381f7255eb18c8fe5664b00264b67690 100644 (file)
--- a/examples/testcairo.lisp
+++ b/examples/testcairo.lisp
@@ -52,7 +52,7 @@        (defun ,name ()
               (signal-connect ,widget 'expose-event
                #'(lambda (,event)
                    (declare (ignore ,event))
               (signal-connect ,widget 'expose-event
                #'(lambda (,event)
                    (declare (ignore ,event))

-                   (let ((,cr (gdk:cairo-create (widget-window ,widget))))
+                   (gdk:with-cairo-context (,cr (widget-window ,widget))

                      (multiple-value-bind (width height) 
                          (widget-get-size-allocation ,widget)
                        (cairo:scale ,cr width height))
                      (multiple-value-bind (width height) 
                          (widget-get-size-allocation ,widget)
                        (cairo:scale ,cr width height))