X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/108fea9b923222740880e8c6e2310e330ced0e41..953030a3519ecb9d66d9f55d46f8c8b6906094ed:/examples/testcairo.lisp

diff --git a/examples/testcairo.lisp b/examples/testcairo.lisp
index f7b6b71..e184c5b 100644
--- a/examples/testcairo.lisp
+++ b/examples/testcairo.lisp
@@ -506,11 +506,13 @@
     (make-instance 'v-box
      :parent main-window
      :child-args '(:expand nil)
-     :child (list (make-instance 'label :label (gtk-version)) :fill nil)
+     :child (list (make-instance 'label 
+		   :label (format nil "Cairo ~A" (cairo:version-string)))
+		  :fill nil)
      :child (list (make-instance 'label :label (clg-version)) :fill nil)
      :child (list (make-instance 'label 			  
 		   :label #-cmu
-		          (format nil "~A (~A)" 
+		          (format nil "~A ~A" 
 			   (lisp-implementation-type)
 			   #-clisp
 			   (lisp-implementation-version)
@@ -540,7 +542,6 @@
 
 
 (clg-init)
-#?(pkg-config:pkg-exists-p "librsvg-2.0" :atleast-version "2.13.93")
 (rsvg:init)
 
 ;; We need to turn off floating point exceptions, because Cairo is
@@ -549,4 +550,4 @@
 #+sbcl(sb-int:set-floating-point-modes :traps nil) 
 #+cmu(ext:set-floating-point-modes :traps nil)
 
-(create-tests)
+(within-main-loop (create-tests))