summaryrefslogtreecommitdiffstats
path: root/otherlibs/labltk/builtin/winfo_contained.ml
blob: 768f1015ec687faf95d039f4db7eaa2761f9c875 (plain)
1
2
let contained ~x ~y w =
  forget_type w = containing ~x ~y ()