[cairo-commit] cairo-ocaml/src ocairo.ml,1.4,1.5 ocairo.mli,1.4,1.5

[Olivier Andrieu]

Committed by: oandrieu

Update of /cvs/cairo/cairo-ocaml/src
In directory pdx:/tmp/cvs-serv24876/src

Modified Files:
	ocairo.ml ocairo.mli 
Log Message:
current_path methods

Index: ocairo.ml
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/ocairo.ml,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** a/ocairo.ml	22 Feb 2004 19:21:08 -0000	1.4
--- b/ocairo.ml	27 Feb 2004 22:44:30 -0000	1.5
***************
*** 138,141 ****
--- 138,145 ----
      method stroke = Cairo.stroke c
      method fill = Cairo.fill c
+     method current_path : 'a 'b. ('a -> ([> Cairo.basic_path] as 'b) -> 'a) -> 'a -> 'a =
+       Cairo.fold_current_path c
+     method current_path_flat : 'a 'b. ('a -> ([> Cairo.flat_path] as 'b) -> 'a) -> 'a -> 'a =
+       Cairo.fold_current_path_flat c
  
      method in_stroke x y = Cairo.in_stroke c x y

Index: ocairo.mli
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/ocairo.mli,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** a/ocairo.mli	22 Feb 2004 19:21:08 -0000	1.4
--- b/ocairo.mli	27 Feb 2004 22:44:30 -0000	1.5
***************
*** 80,83 ****
--- 80,85 ----
      method copy : cairo
      method copy_page : unit
+     method current_path      : ('a -> [> Cairo.basic_path] -> 'a) -> 'a -> 'a
+     method current_path_flat : ('a -> [> Cairo.flat_path]  -> 'a) -> 'a -> 'a
      method current_point : point
      method curve_to :