#!/usr/bin/perl -w
use strict;
use Tk;

my ($x, $y);
my $iconSize = 20;
my ($width, $height) = (10, 10);
my ($canvasWidth, $canvasHeight) = ($iconSize+$width*$iconSize,
					$iconSize+$height*$iconSize);

my $MW = MainWindow->new;
my $MF = $MW->Frame->pack;
my $c = $MF->Canvas( -width => $canvasWidth,
			-height => $canvasHeight )->pack;

for ($y = $iconSize; $y < $canvasHeight; $y+=$iconSize)
{
	for ($x = $iconSize; $x < $canvasWidth; $x+=$iconSize)
	{
		my $rect = $c->createRectangle ($x, $y,
			             $x+$iconSize, $y+$iconSize,
				     -fill => '#AFAFAF',
				     -activefill => '#CFCFCF',
			             -tags =>['rect',"row.$y", "col.$x"]
			         );
    	
	}
}

$c->bind('rect', '<Enter>', \&enter );

$c->bind("rect", "<Leave>", \&leave );

MainLoop;

sub enter {
  my ($canv) = @_;
  my $id = $canv->find('withtag', 'current');
  my @tags = $canv->gettags($id);
#  print "@tags\n";
  # row.20 col.140 current

  my ($row) = ( grep /^row\d*/, @tags );
  my ($col) = ( grep /^col\d*/, @tags );

  my(@rows) = $canv->find('withtag', $row);  
  my(@cols) = $canv->find('withtag', $col);  

  foreach my $r(@rows){
       $canv->itemconfigure($r, -fill=>'#CFCFCF')
      }

  foreach my $c(@cols){
       $canv->itemconfigure($c, -fill=>'#CFCFCF')
      }
}

sub leave{
  my ($canv) = @_;
#  print "leave\n";
  $canv->itemconfigure('all', -fill=>'#AFAFAF')
}