Class GUtil.memo


class [< get_oid : int; .. >] memo : unit -> object .. end


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