[cairo-commit] cairo-ocaml/test knockout.ml,1.4,1.5

Olivier Andrieu commit at pdx.freedesktop.org
Mon Jul 18 12:11:07 PDT 2005


Committed by: oandrieu

Update of /cvs/cairo/cairo-ocaml/test
In directory gabe:/tmp/cvs-serv27098/test

Modified Files:
	knockout.ml 
Log Message:
* configure.ac, README: require cairo 0.5.2

* src/*: adapt to cairo 0.5.1 and 0.5.2 API changes (new status values
and functions, new pattern functions)

* test/knockout.ml: adapt to API change


Index: knockout.ml
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/test/knockout.ml,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- knockout.ml	22 May 2005 20:03:15 -0000	1.4
+++ knockout.ml	18 Jul 2005 19:11:05 -0000	1.5
@@ -25,7 +25,7 @@
     let check = 
       Cairo.surface_create_similar
 	(Cairo.get_target c)
-	Cairo.FORMAT_RGB24 (2 * check_size) (2 * check_size) in
+	Cairo.CONTENT_COLOR (2 * check_size) (2 * check_size) in
 
     begin
       let f_size = float check_size in
@@ -72,9 +72,9 @@
   let yc = float height /. 2. in
 
   let sur = Cairo.get_target c in
-  let overlay = Cairo.surface_create_similar sur Cairo.FORMAT_ARGB32 width height in
-  let punch = Cairo.surface_create_similar sur Cairo.FORMAT_A8 width height in
-  let circles = Cairo.surface_create_similar sur Cairo.FORMAT_ARGB32 width height in
+  let overlay = Cairo.surface_create_similar sur Cairo.CONTENT_COLOR_ALPHA width height in
+  let punch = Cairo.surface_create_similar sur Cairo.CONTENT_ALPHA width height in
+  let circles = Cairo.surface_create_similar sur Cairo.CONTENT_COLOR_ALPHA width height in
 
   fill_checks c 0. 0. width height ;
 




More information about the cairo-commit mailing list