X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2FtermViewer.mli;h=71ab63bc0e0ca9c861bc84d16b037115957fafb5;hb=ac7687ce66526f905874ed99a845223c853c558a;hp=db4c05899d1b0b67bd920e338ca169c641253557;hpb=719eb6cd26fffa6de3ca194de310a58fd4834558;p=helm.git

diff --git a/helm/gTopLevel/termViewer.mli b/helm/gTopLevel/termViewer.mli
index db4c05899..71ab63bc0 100644
--- a/helm/gTopLevel/termViewer.mli
+++ b/helm/gTopLevel/termViewer.mli
@@ -33,11 +33,25 @@
 (*                                                                            *)
 (******************************************************************************)
 
-(** A widget to render sequents **)
+type mml_of_cic_sequent =
+ Cic.metasenv ->
+ int * Cic.context * Cic.term ->
+ Gdome.document *
+  ((Cic.id, Cic.term) Hashtbl.t *
+   (Cic.id, Cic.id option) Hashtbl.t *
+   (string, Cic.hypothesis) Hashtbl.t)
+
+type mml_of_cic_object =
+  explode_all:bool ->
+  UriManager.uri ->
+  Cic.annobj ->
+  (string, string) Hashtbl.t ->
+  (string, Cic2acic.anntypes) Hashtbl.t -> Gdome.document
 
-val use_stylesheets: bool ref;; (* false performs the transformations in OCaml*)
+(** 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
@@ -54,11 +68,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) ->
@@ -68,6 +82,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
@@ -90,13 +105,14 @@ class proof_viewer :
   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
+