X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhbugs%2Fclient%2Fhbugs_client.mli;h=0c2e93d800b81590ab5eb11fcd9e5455f5a28624;hb=1fb8d0192e1f7ee891c53dc282c9c9f111e63e3c;hp=3bc34a8e2078a2e6eaf93ce439f4977bb991b7c6;hpb=594ea125d8bdd2c0a210e4b2170b0c725075d597;p=helm.git

diff --git a/helm/hbugs/client/hbugs_client.mli b/helm/hbugs/client/hbugs_client.mli
index 3bc34a8e2..0c2e93d80 100644
--- a/helm/hbugs/client/hbugs_client.mli
+++ b/helm/hbugs/client/hbugs_client.mli
@@ -3,20 +3,28 @@ open Hbugs_types
 
 exception Invalid_URL of string
 
+  (*
+    @param use_hint_callback is called when the user double click on a hint
+    (default: do nothing)
+    @param describe_hint_callback is called when the user click on a hint
+    (default: do nothing)
+  *)
 class hbugsClient :
-  on_use_hint: (hint -> unit) ->
-  ?on_exit: (unit -> unit) ->
+  ?use_hint_callback: (hint -> unit) ->
+  ?describe_hint_callback: (hint -> unit) ->
+  ?destroy_callback: (unit -> unit) ->
   unit ->
     object
 
       method show : unit -> unit
       method hide : unit -> unit
 
+      method setUseHintCallback : (hint -> unit) -> unit
       method registerToBroker : unit -> unit
       method unregisterFromBroker : unit -> unit
       method subscribeAll : unit -> unit
 
-      method stateChange : state -> unit
+      method stateChange : state option -> unit
 
         (** @return an hint by index *)
       method hint : int -> hint