ocaml/otherlibs/labltk/builtin/winfo_contained.ml

##ifdef CAMLTK

let contained x y w =
  w = containing x y
;;

##else

let contained ~x ~y w =
  forget_type w = containing ~x ~y ()
;;

##endif