X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2FnEstatus.mli;h=cc356aa465a175befc81c440ab2a6e987ac5ec3e;hb=b367de0252e88d6b0476648d5ceac7e4aeffca27;hp=2ae7d01e4ef639ca78dcbe2540ff68d15d602b7c;hpb=8bc5bc0e8375a85736f6a5df317d129d5efa8de4;p=helm.git

diff --git a/helm/software/components/grafite_parser/nEstatus.mli b/helm/software/components/grafite_parser/nEstatus.mli
index 2ae7d01e4..cc356aa46 100644
--- a/helm/software/components/grafite_parser/nEstatus.mli
+++ b/helm/software/components/grafite_parser/nEstatus.mli
@@ -11,8 +11,16 @@
 
 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
 
-type extra_status = {
-        lstatus : LexiconEngine.status;
-        rstatus : NRstatus.dumpable_status;
-}
+class type g_status =
+ object
+  inherit LexiconEngine.g_status
+  inherit NCicLibrary.g_dumpable_status
+ end
 
+class status :
+ object ('self)
+  inherit LexiconEngine.status
+  inherit NCicLibrary.dumpable_status
+  inherit g_status
+  method set_estatus: #g_status -> 'self
+ end