I think you are looking for the "containing" method. Change your findCell{} sub to the below and see if that helps you.
sub findCell{ my $tmpX = shift; my $tmpY = shift; my ( $row, $col ) = $table->Posn($table->containing($tmpX,$tmpY)); print "$tmpX:$tmpY: Row $row Col $col\n"; }
In reply to Re: Need help finding which column/row the mouse cursor is over in Tk...
by thundergnat
in thread Need help finding which column/row the mouse cursor is over in Tk...
by bcarroll
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |