summaryrefslogtreecommitdiff
path: root/otherlibs/labltk/builtin/winfo_contained.ml
blob: 76df1025fc5bc56ba45addbee22b436f5394c1a4 (plain)
1
2
let contained :x :y w =
  forget_type w = containing :x :y ()