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