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