$e = $canvas -> XEvent; $canv_x = $e->x; $canv_y = $e->y;