From: espen <espen>
Date: Sun, 19 Feb 2006 19:34:03 +0000 (+0000)
Subject: Now using non-consing WITH-CAIRO-CONTEXT
X-Git-Tag: clg-0-92~34
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/f48500b9750a201ad9690bb1d43920ff2bd51cc0

Now using non-consing WITH-CAIRO-CONTEXT
---

diff --git a/examples/testcairo.lisp b/examples/testcairo.lisp
index 6e90316..bbdc56c 100644
--- a/examples/testcairo.lisp
+++ b/examples/testcairo.lisp
@@ -52,7 +52,7 @@        (defun ,name ()
 	       (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))