Class mathViewer got rid of. The circular dependency between

[helm.git] / matita / matita / cicMathView.mli

diff --git a/matita/matita/cicMathView.mli b/matita/matita/cicMathView.mli
index 80e6bc8862407dd944001b2704129c1344ce7b78..bb95b3ef7f256ea4fd3b6ccac46fc786af1c407a 100644 (file)
--- a/matita/matita/cicMathView.mli
+++ b/matita/matita/cicMathView.mli
@@ -64,4 +64,7 @@ val screenshot:
  GrafiteTypes.status -> NCic.metasenv -> NCic.metasenv ->
   NCic.substitution -> string -> unit
 
-val register_matita_script_current: (unit -> < advance: unit; onGoingProf: bool; metasenv: NCic.metasenv >) -> unit
+(* CSC: these functions should completely disappear; bad design;
+   the object type is MatitaScript.script *)
+val register_matita_script_current: (unit -> < advance: ?statement:string -> unit -> unit; grafite_status: GrafiteTypes.status; setGoal: int option -> unit >) -> unit
+val get_matita_script_current: unit -> < advance: ?statement:string -> unit -> unit; grafite_status: GrafiteTypes.status; setGoal: int option -> unit >