X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtkmathview%2FgMathView.mli;h=5ffffa4befc89f82f6e865aab3bd650cff19d3a5;hb=f41a5585a648d57e4d8a24d664b0a5ce5d591148;hp=e52a7a484c7d0a6cecc0bf9cc961492addf92ace;hpb=56b68e877e6eb517c3efba7d9485947e940f7785;p=helm.git

diff --git a/helm/DEVEL/lablgtkmathview/gMathView.mli b/helm/DEVEL/lablgtkmathview/gMathView.mli
index e52a7a484..5ffffa4be 100644
--- a/helm/DEVEL/lablgtkmathview/gMathView.mli
+++ b/helm/DEVEL/lablgtkmathview/gMathView.mli
@@ -1,4 +1,5 @@
-(* Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
+(* Copyright (C) 2000-2003, Luca Padovani <luca.padovani@cs.unibo.it>,
+ *                          Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>.
  *
  * This file is part of lablgtkmathview, the Ocaml binding
  * for the GtkMathView widget.
@@ -30,7 +31,8 @@ class math_view_signals :
   object ('a)
     inherit GContainer.container_signals
     val obj: 'b Gtk.obj
-    method click : callback:(Gdome.element -> int -> unit) -> GtkSignal.id
+    method click :
+      callback:(Gdome.element option -> int -> unit) -> GtkSignal.id
     method element_over :
       callback:(Gdome.element option -> int -> unit) -> GtkSignal.id
     method select_begin :
@@ -60,6 +62,7 @@ class math_view_skel :
     method get_font_manager_type : [ `font_manager_gtk | `font_manager_t1]
     method get_font_size : int
     method get_frame : GBin.frame
+    method get_drawing_area : GMisc.drawing_area
     method get_hadjustment : GData.adjustment
     method get_height : int
     method get_log_verbosity : int
@@ -77,6 +80,7 @@ class math_view_skel :
     method set_log_verbosity : int -> unit
     method select : Gdome.element -> unit
     method unselect : Gdome.element -> unit
+    method get_element_at : int -> int -> Gdome.element option
     method is_selected : Gdome.element -> bool
     method set_top : int -> int -> unit
     method set_transparency : bool -> unit