#!/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')
}
[download]

Thanks a lot. You are right on, great hint. smh

From your description, it sounds like you want the find() method. Take a look at Tk::Canvas; in particular, ITEM IDS AND TAGS and WIDGET METHODS. You'd use this something like the following:

for my $tag ($canvas->find(...)) {
    my @coords = $canvas->coords($tag);
    # do something with @coords
}
[download]

You can describe how to get something "(as described by the documentation).", yet you can't provide any code samples at all?

Showing both input data and at least basic code would be beneficial.

I am sorry, at the time I was working on extracting a reasonable code segment. The full code is too long and in development so it will not be very useful. I will post the segment that I have problem with soon and hopefully get a resolution to me question.