Good definition found.

[helm.git] / helm / software / matita / matitaTypes.mli

diff --git a/helm/software/matita/matitaTypes.mli b/helm/software/matita/matitaTypes.mli
index 34e98cc1ad112899f5d8452798a3f4832f84490e..6d672a1238a01217b45142b4dc18cbc567308b94 100644 (file)
--- a/helm/software/matita/matitaTypes.mli
+++ b/helm/software/matita/matitaTypes.mli
@@ -26,12 +26,13 @@
 exception Cancel
 
 type abouts = [ `Blank | `Current_proof | `Us | `Coercions 
- | `CoercionsFull | `TeX | `Grammar]
+ | `CoercionsFull | `TeX | `Grammar | `Hints]
 
 type mathViewer_entry =
   [ `About of abouts
   | `Check of string
   | `Cic of Cic.term * Cic.metasenv
+  | `NCic of NCic.term * NCic.context * NCic.metasenv * NCic.substitution
   | `Dir of string
   | `HBugs of [ `Tutors ]
   | `Metadata of [ `Deps of [`Fwd | `Back] * UriManager.uri ]
@@ -49,4 +50,7 @@ class type mathViewer =
     method show_entry : ?reuse:bool -> mathViewer_entry -> unit
     method show_uri_list :
       ?reuse:bool -> entry:mathViewer_entry -> UriManager.uri list -> unit
+    method screenshot: 
+      GrafiteTypes.status -> NCic.metasenv -> NCic.metasenv ->
+        NCic.substitution -> string -> unit
   end