reimplemented specific marshallars on top of generic HMarshal marshaller

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

diff --git a/helm/matita/matitaScript.mli b/helm/matita/matitaScript.mli
index 35ae43ebb7e5c6d2622a7d950045f019c3931a8a..c9e60943ba3f961a5c3ec56bbbc47aa59babf7b3 100644 (file)
--- a/helm/matita/matitaScript.mli
+++ b/helm/matita/matitaScript.mli
@@ -28,13 +28,16 @@ object
 
   method locked_mark : Gtk.text_mark
   method locked_tag : GText.tag
+  method error_tag : GText.tag
 
   (** @return current status *)
-  method status: MatitaTypes.status
+  method lexicon_status: LexiconEngine.status
+  method grafite_status: GrafiteTypes.status
     
   (** {2 Observers} *)
 
-  method addObserver : (MatitaTypes.status -> unit) -> unit
+  method addObserver :
+   (LexiconEngine.status -> GrafiteTypes.status -> unit) -> unit
 
   (** {2 History} *)
 
@@ -80,7 +83,6 @@ end
    * "*") on the side of a script name *)
 val script: 
   source_view:GSourceView.source_view -> 
-  init:MatitaTypes.status -> 
   mathviewer: MatitaTypes.mathViewer-> 
   urichooser: (UriManager.uri list -> UriManager.uri list) -> 
   develcreator: (containing:string option -> unit) ->