val contained : x:int -> y:int -> 'a widget -> bool
(* [contained x y w] returns true if (x,y) is in w *)