unit -> object val tbl : (int, < get_oid : int >) Hashtbl.t method add : < get_oid : int > -> unit method find : GObj.widget -> < get_oid : int > method remove : GObj.widget -> unit end