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