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