X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtkmathview%2FgMathView.mli;h=5ffffa4befc89f82f6e865aab3bd650cff19d3a5;hb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;hp=4f5f0d4e2e79b5c5ab28458b77b0a5485d8a905e;hpb=91da8438a05450c656ae949e6a3ae8e4bbc3d161;p=helm.git

diff --git a/helm/DEVEL/lablgtkmathview/gMathView.mli b/helm/DEVEL/lablgtkmathview/gMathView.mli
index 4f5f0d4e2..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.
@@ -24,62 +25,76 @@ exception ErrorLoadingFile of string
 exception ErrorWritingFile of string
 exception ErrorLoadingDOM
 exception NoSelection
+
 class math_view_signals :
   ([> `container | `widget | `base | `math_view] as 'b) Gtk.obj ->
   object ('a)
     inherit GContainer.container_signals
     val obj: 'b Gtk.obj
-    method clicked : callback:(Gdome.element -> unit) -> GtkSignal.id
-    method element_changed :
-      callback:(Gdome.element option -> unit) -> GtkSignal.id
-    method selection_changed :
-      callback:(Gdome.element option -> 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 :
+      callback:(Gdome.element option -> int -> unit) -> GtkSignal.id
+    method select_over :
+      callback:(Gdome.element option -> int -> unit) -> GtkSignal.id
+    method select_end :
+      callback:(Gdome.element option -> int -> unit) -> GtkSignal.id
+    method select_abort :
+      callback:(unit -> unit) -> GtkSignal.id
   end
-class math_view :
+
+class math_view_skel :
   (Gtk_mathview.math_view Gtk.obj as 'a)->
   object
     inherit GContainer.container
-    method action_get_selected : int
-    method action_set_selected : int -> unit
-    method action_toggle : unit
-    method connect : math_view_signals
+    method freeze : unit
+    method thaw : unit
     method export_to_postscript :
       ?width:int ->
       ?height:int ->
       ?x_margin:int ->
       ?y_margin:int ->
       ?disable_colors:bool -> filename:string -> unit -> unit
-    method get_action : Gdome.element option
     method get_anti_aliasing : bool
     method get_buffer : Gdk.pixmap
-    method get_element : Gdome.element option
     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_kerning : bool
     method get_log_verbosity : int
-    method get_selection : Gdome.element option
     method get_top : int * int
     method get_transparency : bool
     method get_vadjustment : GData.adjustment
     method get_width : int
-    method load : filename:string -> unit
-    method load_tree : dom:Gdome.document -> unit
+    method load_uri : filename:string -> unit
+    method load_doc : dom:Gdome.document -> unit
     method set_adjustments : GData.adjustment -> GData.adjustment -> unit
     method set_anti_aliasing : bool -> unit
     method set_font_manager_type :
       fm_type:[ `font_manager_gtk | `font_manager_t1] -> unit
     method set_font_size : int -> unit
-    method set_kerning : bool -> unit
     method set_log_verbosity : int -> unit
-    method set_selection : Gdome.element option -> 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
     method unload : unit
     val obj : 'a
   end
+
+class math_view :
+  Gtk_mathview.math_view Gtk.obj ->
+  object
+    inherit math_view_skel
+    method connect : math_view_signals
+  end
+
 val math_view :
   ?adjustmenth:GData.adjustment ->
   ?adjustmentv:GData.adjustment ->