Updated to latest API

[clg] / examples / testcairo.lisp

diff --git a/examples/testcairo.lisp b/examples/testcairo.lisp
index 31ce00d18f0f802c5a42581de28cc62d8dcc9d44..b135ef67d9b3ef87f4efa566f57c81a873c0f496 100644 (file)
--- 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)
 (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))
        (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"))
 
 (define-snippet librsvg (cr)
   (snippet-set-bg-svg cr "clg:examples;home.svg"))