in reply to A Drag and Drop (perl/Tk) question.
I don't know if this is a problem for you or not, but in your function DragStart, you have a typo. I think the line:
should be:
HTH
my $idx = $w->GetNearst($e->x, $e->y);
should be:
my $idx = $w->GetNearest($e->x, $e->y);
HTH
In Section
Seekers of Perl Wisdom