[cells-gtk-devel] Compilation error in cairo-drawing-area.lisp

[Johan Ur Riise]

On Sat, Feb 07, 2009 at 07:17:20AM +1000, Qu Yang wrote:
> Hi all,
> 
> This is the error I have after (require 'cells-gtk)
> 
> or:
> ;   READ failure in COMPILE-FILE:
> ;     SB-INT:SIMPLE-READER-PACKAGE-ERROR at 22404 (line 576, column 69) on
> #<SB-SYS:FD-STREAM for "file
> /home/yang/.sbcl/site/cells-gtk3/cells-gtk/cairo-drawing-area.lisp"
> {BD5DAB1}>:
> ;       Symbol "FONT-SLANT-ITALIC" not found in the CL-CAIRO2 package.
> ; compilation aborted after 0:00:03
> 
> I have installed cl-cairo2.
> 
> Can anyone please help to solve this problem?
> 
> Regards,
> Yang

> _______________________________________________
> cells-gtk-devel site list
> cells-gtk-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/cells-gtk-devel

If you have not got round to cloning the git repository, here is what 
you can change in the mean time:

johan at perle:~/prg/cells-gtk/cells-gtk$ diff -u cairo-drawing-area.lisp.orig cairo-drawing-area.lisp
--- cairo-drawing-area.lisp.orig        2008-06-03 18:33:44.000000000 +0200
+++ cairo-drawing-area.lisp     2009-01-17 21:49:41.000000000 +0100
@@ -573,8 +573,8 @@
 (defdraw text-label (p text font-face font-size italic bold alignment vertical-alignment rgb alpha)
   (cl-cairo2:set-font-size font-size context)
   (cl-cairo2:select-font-face font-face
-                              (if italic 'cl-cairo2:font-slant-italic 'cl-cairo2:font-slant-normal)
-                              (if bold 'cl-cairo2:font-weight-bold 'cl-cairo2:font-weight-normal)
+                              (if italic :italic :normal)
+                              (if bold :bold :normal)
                               context)
   (multiple-value-bind (x-bearing y-bearing text-width text-height)
       (cl-cairo2:text-extents text context)
johan at perle:~/prg/cells-gtk/cells-gtk$ 



-- 
Hilsen
Johan Ur Riise