[cairo-commit] cairo-ocaml/src cairo_gtkcairo.mli, 1.1, 1.2 cairo_gtkcairo.ml, 1.1, 1.2

[Olivier Andrieu]

Committed by: oandrieu

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

Modified Files:
	cairo_gtkcairo.mli cairo_gtkcairo.ml 
Log Message:
gtkcairo widget signal is now "paint", not "redraw"


Index: cairo_gtkcairo.mli
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/cairo_gtkcairo.mli,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** cairo_gtkcairo.mli	24 Mar 2004 10:39:24 -0000	1.1
--- cairo_gtkcairo.mli	6 Jul 2004 17:22:02 -0000	1.2
***************
*** 8,12 ****
    object
      inherit GObj.widget_signals
!     method redraw : callback:(Cairo.t -> unit) -> GtkSignal.id
    end
  
--- 8,12 ----
    object
      inherit GObj.widget_signals
!     method paint : callback:(Cairo.t -> unit) -> GtkSignal.id
    end
  

Index: cairo_gtkcairo.ml
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/cairo_gtkcairo.ml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** cairo_gtkcairo.ml	24 Mar 2004 10:39:24 -0000	1.1
--- cairo_gtkcairo.ml	6 Jul 2004 17:22:02 -0000	1.2
***************
*** 7,15 ****
  external get_cairo : [>`gtkcairo] Gtk.obj -> Cairo.t = "ml_cairo_gtkcairo_get_cairo"
  
! let redraw_sig = {
!   GtkSignal.name       = "redraw" ;
    GtkSignal.classe     = `gtkcairo ;
    GtkSignal.marshaller = 
!   let m = GtkSignal.marshal1 Gobject.Data.pointer "GtkCairo::redraw" in
    fun cb ->
      m (function 
--- 7,15 ----
  external get_cairo : [>`gtkcairo] Gtk.obj -> Cairo.t = "ml_cairo_gtkcairo_get_cairo"
  
! let paint_sig = {
!   GtkSignal.name       = "paint" ;
    GtkSignal.classe     = `gtkcairo ;
    GtkSignal.marshaller = 
!   let m = GtkSignal.marshal1 Gobject.Data.pointer "GtkCairo::paint" in
    fun cb ->
      m (function 
***************
*** 20,24 ****
    object (self)
      inherit GObj.widget_signals_impl obj
!     method redraw = self#connect redraw_sig
    end
  
--- 20,24 ----
    object (self)
      inherit GObj.widget_signals_impl obj
!     method paint = self#connect paint_sig
    end