[cairo-commit] cairo-ocaml/src ml_cairo.c, 1.13, 1.14 cairo.mli, 1.11, 1.12 cairo.ml, 1.9, 1.10

[Olivier Andrieu]

Committed by: oandrieu

Update of /cvs/cairo/cairo-ocaml/src
In directory gabe:/tmp/cvs-serv20142/src

Modified Files:
	ml_cairo.c cairo.mli cairo.ml 
Log Message:
use int instead of float for the width and height of the PNG target


Index: ml_cairo.c
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/ml_cairo.c,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- ml_cairo.c	28 Oct 2004 13:46:01 -0000	1.13
+++ ml_cairo.c	1 Nov 2004 15:40:36 -0000	1.14
@@ -139,7 +139,7 @@
 {
   cairo_set_target_png (cairo_t_val (v_cr), FILE_val (v_file),
 			cairo_format_t_val (v_format),
-			Double_val (v_width), Double_val (v_height));
+			Int_val (v_width), Int_val (v_height));
   check_cairo_status (v_cr);
   return Val_unit;
 }

Index: cairo.mli
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/cairo.mli,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- cairo.mli	28 Oct 2004 13:46:01 -0000	1.11
+++ cairo.mli	1 Nov 2004 15:40:36 -0000	1.12
@@ -58,7 +58,7 @@
   x_pixels_per_inch:float -> y_pixels_per_inch:float -> unit
   = "ml_cairo_set_target_ps_bc" "ml_cairo_set_target_ps"
 external set_target_png :
-  cr:t -> file:Cairo_channel.t -> format -> width:float -> height:float -> unit = "ml_cairo_set_target_png"
+  cr:t -> file:Cairo_channel.t -> format -> width:int -> height:int -> unit = "ml_cairo_set_target_png"
 external finalise_target : cr:t -> unit = "ml_cairo_finalise_target"
 
 (** {4 Renderer state} *)

Index: cairo.ml
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/cairo.ml,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- cairo.ml	18 Oct 2004 00:27:34 -0000	1.9
+++ cairo.ml	1 Nov 2004 15:40:36 -0000	1.10
@@ -33,7 +33,7 @@
     x_pixels_per_inch:float -> y_pixels_per_inch:float ->
     unit = "ml_cairo_set_target_ps_bc" "ml_cairo_set_target_ps"
 external set_target_png :
-  cr:t -> file:Cairo_channel.t -> format -> width:float -> height:float -> unit = "ml_cairo_set_target_png"
+  cr:t -> file:Cairo_channel.t -> format -> width:int -> height:int -> unit = "ml_cairo_set_target_png"
 
 external suspend_exn : t -> unit = "ml_cairo_suspend_exn"
 external resume_exn  : t -> unit = "ml_cairo_resume_exn"