(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)
(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
#+sbcl(sb-int:set-floating-point-modes :traps nil)
#+cmu(ext:set-floating-point-modes :traps nil)
-(create-tests)
+(within-main-loop (create-tests))