Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo In directory clnet:/tmp/cvs-serv20946 Modified Files: cairo.lisp Log Message: Repair "Show Directory" on the cairo medium. * Backends/gtkairo/cairo.lisp (make-cairo-surface): Updated enum name. --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/cairo.lisp 2006/12/26 16:44:46 1.2 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/cairo.lisp 2006/12/26 17:29:49 1.3 @@ -555,8 +555,8 @@ ;;;; General Designs ;;;; -(defun make-cairo-surface - (compatible-medium width height &optional (format :argb32)) +(defun make-cairo-surface (compatible-medium width height + &optional (format :CAIRO_CONTENT_COLOR_ALPHA)) (let* ((s (cairo_surface_create_similar (cairo_get_target (cr compatible-medium)) format width height))