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

diff --git a/helm/DEVEL/lablgtkmathview/gMathView.mli b/helm/DEVEL/lablgtkmathview/gMathView.mli
index e52a7a484..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,14 +24,15 @@
 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 ->
+  ([> `container | `gtk | `mathview | `widget] as 'b) Gtk.obj ->
   object ('a)
     inherit GContainer.container_signals
+    val after: bool
     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 :
@@ -49,37 +51,25 @@ class math_view_skel :
     inherit GContainer.container
     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_anti_aliasing : bool
     method get_buffer : Gdk.pixmap
-    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
     method get_top : int * int
-    method get_transparency : bool
     method get_vadjustment : GData.adjustment
     method get_width : int
     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_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
     method unload : unit
     val obj : 'a
   end
@@ -92,10 +82,10 @@ class math_view :
   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 ->