#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = MainWindow->new();

# first create a canvas widget
my $canvas = $mw->Canvas(width => 300, height => 200)->pack();


my $one = $canvas->createOval(55, 20, 200, 190, 
                      -fill => 'blue',
		      -outline=>'blue',
		      -tags => ['blue'],
		      -stipple => 'gray75',
		      );

my $two = $canvas->createOval(105, 20, 250, 190, 
                      -fill => 'red',
		      -outline=>'red',
		      -tags => ['red'],
                      -stipple => 'gray12',
		      #-stipple => 'transparent',  
                    );


my $ebutton = $mw->Button(-text => 'Exit',
                  -command => 'Tk::exit')->pack();


$canvas->Tk::bind("<Motion>", [ \&print_xy, Ev('x'), Ev('y') ]);

MainLoop();

sub print_xy {
  my ($canv, $x, $y) = @_;
#  print "(x,y) = ", $canv->canvasx($x), ", ", $canv->canvasy($y), "\n";
#my $x1 = $x+1;
#my $y1 = $y+1;

my (@current) = $canvas->find('overlapping', $x, $y, $x, $y);

foreach my $id(@current){ 
    print $canvas->gettags($id),' ';
}

print "\n";

}
__END__