[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

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))