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
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: A Drag and Drop (perl/Tk) question.
by blackadder (Hermit) on Jul 29, 2002 at 16:22 UTC |
In Section
Seekers of Perl Wisdom