ocaml 3.09 transition

[helm.git] / helm / gTopLevel / termEditor.mli

diff --git a/helm/gTopLevel/termEditor.mli b/helm/gTopLevel/termEditor.mli
index 77fd2285d02bc3024b55deb8481cd0fa976fe0ea..2817f812a7b9e44c4cd5fb26343550fb250795dc 100644 (file)
--- a/helm/gTopLevel/termEditor.mli
+++ b/helm/gTopLevel/termEditor.mli
@@ -23,8 +23,6 @@
  * http://cs.unibo.it/helm/.
  *)
 
-open Disambiguate_types
-
 class type term_editor =
  object
    method coerce : GObj.widget
@@ -32,22 +30,21 @@ class type term_editor =
    method get_as_string : string
    method get_metasenv_and_term :
      context:Cic.context ->
-     metasenv:Cic.metasenv -> Cic.metasenv * Cic.term
+     metasenv:Cic.metasenv -> 
+     Cic.metasenv * Cic.term * CicUniv.universe_graph
    method reset : unit
    method set_term : string -> unit
-   method id_to_uris : environment ref
+   method environment : DisambiguatingParser.EnvironmentP3.t ref
  end
 
-val empty_id_to_uris : environment
-
-module Make (C : Callbacks) :
+module Make (C : DisambiguateTypes.Callbacks) :
    sig
     val term_editor :
-     MQIConn.handle ->
+     dbd:Mysql.dbd ->
      ?packing:(GObj.widget -> unit) ->
      ?width:int ->
      ?height:int ->
      ?isnotempty_callback:(bool -> unit) ->
-     ?share_id_to_uris_with:term_editor ->
+     ?share_environment_with:term_editor ->
      unit -> term_editor
    end