ocaml/otherlibs/labltk/builtin/winfo_contained.ml

3 lines
62 B
Standard ML

let contained :x :y w =
forget_type w = containing :x :y ()