From a3a7317d09b9f7d3c6c4275788cb6de5c53ba067 Mon Sep 17 00:00:00 2001
Message-Id: <a3a7317d09b9f7d3c6c4275788cb6de5c53ba067.1714846226.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Thu, 10 Jan 2008 13:35:09 +0000
Subject: [PATCH] Show Cairo version instead of Gtk+ version
Organization: Straylight/Edgeware

From: espen <espen>

---
 examples/testcairo.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/examples/testcairo.lisp b/examples/testcairo.lisp
index 9768b90..e184c5b 100644
--- a/examples/testcairo.lisp
+++ b/examples/testcairo.lisp
@@ -506,11 +506,13 @@ (defun create-tests ()
     (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)
-- 
[mdw]