[cairo-commit] cairo-ocaml/test cube.ml,1.3,1.4

[Olivier Andrieu]

Committed by: oandrieu

Update of /cvs/cairo/cairo-ocaml/test
In directory pdx:/tmp/cvs-serv12018/test

Modified Files:
	cube.ml 
Log Message:
2004-06-18  Olivier Andrieu  <oliv__a at users.sourceforge.net>

	* src/cairo.mli: doc formatting

	* src/ml_cairo.c, src/ml_cairo_wrappers.h: silence compiler
	warnings


Index: cube.ml
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/test/cube.ml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** cube.ml	24 Mar 2004 10:39:24 -0000	1.3
--- cube.ml	18 Jun 2004 13:50:29 -0000	1.4
***************
*** 8,18 ****
      w#misc#allocation in
    let box_size = float (width + height) /. 6. in
!   Cairo.default_matrix cr ;
!   let off = float width /. 2. in
!   Cairo.translate cr off off ;
!   Cairo.rotate cr range#adjustment#value ;
!   Cairo.rectangle cr (~-. box_size) (~-. box_size) box_size box_size ;
!   Cairo.set_rgb_color cr 1. 1. 1. ;
!   Cairo.fill cr
  
  let slider_changed cr () =
--- 8,21 ----
      w#misc#allocation in
    let box_size = float (width + height) /. 6. in
! 
!   Cairo.save cr ; begin
!     Cairo.default_matrix cr ;
!     let off = float width /. 2. in
!     Cairo.translate cr off off ;
!     Cairo.rotate cr range#adjustment#value ;
!     Cairo.rectangle cr (~-. box_size) (~-. box_size) box_size box_size ;
!     Cairo.set_rgb_color cr 1. 0. 0. ;
!     Cairo.fill cr end ;
!   Cairo.restore cr
  
  let slider_changed cr () =