ocaml 3.09 transition

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

diff --git a/helm/matita/matitaGuiTypes.mli b/helm/matita/matitaGuiTypes.mli
index 14bfee4f4b29dd50d70daf86d59409640a2f056d..99b90495f15de3eb0fdbecc5d9079989fe68c020 100644 (file)
--- a/helm/matita/matitaGuiTypes.mli
+++ b/helm/matita/matitaGuiTypes.mli
@@ -62,7 +62,7 @@ object
 
   method newBrowserWin:         unit -> browserWin
   method newUriDialog:          unit -> MatitaGeneratedGui.uriChoiceDialog
-  method newInterpDialog:       unit -> MatitaGeneratedGui.interpChoiceDialog
+  method newRecordDialog:       unit -> MatitaGeneratedGui.recordChoiceDialog
   method newConfirmationDialog: unit -> MatitaGeneratedGui.confirmationDialog
   method newEmptyDialog:        unit -> MatitaGeneratedGui.emptyDialog
 
@@ -102,18 +102,22 @@ object
   method update_font_size: unit
 end
 
-class type sequentViewer =
+class type cicMathView =
 object
   inherit clickableMathView
 
     (** load a sequent and render it into parent widget *)
   method load_sequent: Cic.metasenv -> int -> unit
+
+  method load_object: Cic.obj -> unit
 end
 
 class type sequentsViewer =
 object
   method reset: unit
-  method load_sequents: ProofEngineTypes.status -> unit
+  method load_logo: unit
+  method load_logo_with_qed: unit
+  method load_sequents: MatitaTypes.incomplete_proof -> unit
   method goto_sequent: int -> unit  (* to be called _after_ load_sequents *)
 end