X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtkmathview%2FgMathView.mli;h=1fb5b821d8975e4e3f8d5a169c6fcfe4ce7d7fc3;hb=5325734bc2e4927ed7ec146e35a6f0f2b49f50c1;hp=57e622523052f853a6d9a70c583515be2b393c66;hpb=e3ce1d44f0621654615afa6ed6a1896ea4c25b02;p=helm.git

diff --git a/helm/DEVEL/lablgtkmathview/gMathView.mli b/helm/DEVEL/lablgtkmathview/gMathView.mli
index 57e622523..1fb5b821d 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.
@@ -23,67 +24,68 @@
 exception ErrorLoadingFile of string
 exception ErrorWritingFile of string
 exception ErrorLoadingDOM
-exception NoSelection
+
 class math_view_signals :
-  ([> `container | `widget] as 'b) Gtk.obj ->
+  ([> `container | `gtk | `mathview | `widget] as 'b) Gtk.obj ->
   object ('a)
     inherit GContainer.container_signals
-    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
+    val after: bool
+    val obj: 'b Gtk.obj
+    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 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 freeze : unit
+    method thaw : unit
     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 ->
+  ?hadjustment:GData.adjustment ->
+  ?vadjustment:GData.adjustment ->
   ?font_size:int ->
-  ?font_manager:[ `font_manager_gtk | `font_manager_t1] ->
+  ?log_verbosity:int ->
   ?border_width:int ->
   ?width:int ->
   ?height:int ->