sub event_handler{

my ( $widget, $event ) = @_;
 print $widget ,' ',$event->type,"\n";

my ($x,$y) = ($event->x,$event->y);
        print "$x  $y\n";

}