From: espen <espen>
Date: Mon, 13 Feb 2006 20:12:23 +0000 (+0000)
Subject: Updated to latest API
X-Git-Tag: clg-0-92~52
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/1dea177e44bef96e14991417c97fa0ee9643fb4b

Updated to latest API
---

diff --git a/examples/testcairo.lisp b/examples/testcairo.lisp
index 31ce00d..b135ef6 100644
--- a/examples/testcairo.lisp
+++ b/examples/testcairo.lisp
@@ -305,9 +305,9 @@ (define-snippet image-pattern (cr)
 (defun snippet-set-bg-svg (cr filename)
   (let ((handle (make-instance 'rsvg:handle :filename filename)))
     (cairo:with-context (cr)
-      (with-slots (rsvg:width rsvg:height) (rsvg:handle-dimensions handle)
+      (with-slots (rsvg:width rsvg:height) handle
 	(cairo:scale cr (/ 1.0 rsvg:width) (/ 1.0 rsvg:height))
-	(rsvg:cairo-render cr handle)))))
+	(rsvg:render-cairo handle cr)))))
 
 (define-snippet librsvg (cr)
   (snippet-set-bg-svg cr "clg:examples;home.svg"))