From 9fdca80d0b9070ed7a6d68c7b094d339158ade2e Mon Sep 17 00:00:00 2001 Message-Id: <9fdca80d0b9070ed7a6d68c7b094d339158ade2e.1714756191.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 13 Feb 2006 20:12:23 +0000 Subject: [PATCH] Updated to latest API Organization: Straylight/Edgeware From: espen --- examples/testcairo.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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")) -- [mdw]