Added *REENTRANT-MAIN-ITERATION* to control if MAIN-ITERATE-ALL can be

[clg] / examples / testcairo.lisp

diff --git a/examples/testcairo.lisp b/examples/testcairo.lisp
index 9768b903bd2cf531dd788a3d59184ec53a32f9dd..e184c5b6f1e707d8efb5aeecd39b757b887289c3 100644 (file)
--- 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)
     (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
      :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)
                           (lisp-implementation-type)
                           #-clisp
                           (lisp-implementation-version)