X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtkmathview%2FgMathViewAux.mli;h=d8eb283cc0e87a0afaacfb25d0b99995a4beec42;hb=5325734bc2e4927ed7ec146e35a6f0f2b49f50c1;hp=a5aabcfb4a2438ad0f64314a2df155ae1cd6b7db;hpb=e7bcb20821caa3e03bf1b77a7e9f329aeaacab07;p=helm.git

diff --git a/helm/DEVEL/lablgtkmathview/gMathViewAux.mli b/helm/DEVEL/lablgtkmathview/gMathViewAux.mli
index a5aabcfb4..d8eb283cc 100644
--- a/helm/DEVEL/lablgtkmathview/gMathViewAux.mli
+++ b/helm/DEVEL/lablgtkmathview/gMathViewAux.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.
@@ -21,7 +22,7 @@
  *)
 
 class single_selection_math_view_signals :
-  ([> `container | `widget | `base | `math_view] as 'b) Gtk.obj ->
+  ([> `container | `gtk | `mathview | `widget] as 'b) Gtk.obj ->
   ((Gdome.element option -> unit) -> unit) ->
  object
   inherit GMathView.math_view_signals
@@ -35,13 +36,14 @@ class single_selection_math_view :
     method connect : single_selection_math_view_signals
     method get_selection : Gdome.element option
     method set_selection : Gdome.element option -> unit
+    method action_toggle : Gdome.element -> bool
   end
 
 val single_selection_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 ->
@@ -49,6 +51,8 @@ val single_selection_math_view :
   ?show:bool ->
   unit -> single_selection_math_view
 
+  (** EXPERIMENTAL STUFF from now on: use with care and at your own risk! *)
+
 class multi_selection_math_view :
   Gtk_mathview.math_view Gtk.obj ->
   object
@@ -60,10 +64,10 @@ class multi_selection_math_view :
   end
 
 val multi_selection_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 ->