X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2FtermViewer.mli;h=f391363ebdf48730caac1dcbb9b0138a06589322;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=0cc9ba93b35329eceac25206a808a1cdd5255ee7;hpb=abc1538e60ab29caaacd3a9825cea25413cffac3;p=helm.git

diff --git a/helm/gTopLevel/termViewer.mli b/helm/gTopLevel/termViewer.mli
index 0cc9ba93b..f391363eb 100644
--- a/helm/gTopLevel/termViewer.mli
+++ b/helm/gTopLevel/termViewer.mli
@@ -33,9 +33,32 @@
 (*                                                                            *)
 (******************************************************************************)
 
+type mml_of_cic_sequent =
+ Cic.metasenv ->
+ int * Cic.context * Cic.term ->
+ Gdome.document * 
+ (Cic.annconjecture *
+  ((Cic.id, Cic.term) Hashtbl.t *
+   (Cic.id, Cic.id option) Hashtbl.t *
+   (string, Cic.hypothesis) Hashtbl.t *
+   (Cic.id, string) Hashtbl.t))
+   
+
+type mml_of_cic_object =
+  Cic.obj ->
+  Gdome.document * 
+  (Cic.annobj * 
+   ((Cic.id, Cic.term) Hashtbl.t * 
+    (Cic.id, Cic.id option) Hashtbl.t *
+    (Cic.id, Cic.conjecture) Hashtbl.t * 
+    (Cic.id, Cic.hypothesis) Hashtbl.t *
+    (Cic.id, string) Hashtbl.t *   
+    (Cic.id, Cic2acic.anntypes) Hashtbl.t))
+
 (** A widget to render sequents **)
 
 class sequent_viewer :
+  mml_of_cic_sequent:mml_of_cic_sequent ->
   Gtk_mathview.math_view Gtk.obj ->
   object
     inherit GMathViewAux.multi_selection_math_view
@@ -52,11 +75,11 @@ class sequent_viewer :
   end
 
 val sequent_viewer :
+  mml_of_cic_sequent:mml_of_cic_sequent ->
   ?hadjustment:GData.adjustment ->
   ?vadjustment:GData.adjustment ->
   ?font_size:int ->
   ?log_verbosity:int ->
-  ?border_width:int ->
   ?width:int ->
   ?height:int ->
   ?packing:(GObj.widget -> unit) ->
@@ -66,6 +89,7 @@ val sequent_viewer :
 (** A widget to render proofs **)
 
 class proof_viewer :
+  mml_of_cic_object:mml_of_cic_object ->
   Gtk_mathview.math_view Gtk.obj ->
   object
     inherit GMathViewAux.single_selection_math_view
@@ -81,20 +105,21 @@ class proof_viewer :
     (* load_proof also returns the annotated cic term and the *)
     (* ids_to_inner_types and ids_to_inner_sorts maps.        *)
     method load_proof :
-     UriManager.uri -> Cic.obj ->
+     Cic.obj ->
       Cic.annobj * (Cic.id, Cic2acic.anntypes) Hashtbl.t *
        (Cic.id, string) Hashtbl.t
 
   end
 
 val proof_viewer :
+  mml_of_cic_object:mml_of_cic_object ->
   ?hadjustment:GData.adjustment ->
   ?vadjustment:GData.adjustment ->
   ?font_size:int ->
   ?log_verbosity:int ->
-  ?border_width:int ->
   ?width:int ->
   ?height:int ->
   ?packing:(GObj.widget -> unit) ->
   ?show:bool ->
   unit -> proof_viewer
+