added sortification for (? args), untested code

[helm.git] / helm / software / components / grafite_parser / nEstatus.ml

diff --git a/helm/software/components/grafite_parser/nEstatus.ml b/helm/software/components/grafite_parser/nEstatus.ml
index 1dc05aa51c11a48a2f3aadc11608f80d1069e7eb..306eca9d67cc45adf0e7e26c49cc410fc2f62118 100644 (file)
--- a/helm/software/components/grafite_parser/nEstatus.ml
+++ b/helm/software/components/grafite_parser/nEstatus.ml
@@ -11,8 +11,16 @@
 
 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
 
-class status =
+class type g_status =
  object
+  inherit LexiconEngine.g_status
+  inherit NRstatus.g_dumpable_status
+ end
+
+class status =
+ object (self)
   inherit LexiconEngine.status
   inherit NRstatus.dumpable_status
+  method set_estatus : 'status. #g_status as 'status -> 'self
+   = fun o -> (self#set_lexicon_engine_status o)#set_dumpable_status o
  end