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: 
my $idx = $w->GetNearst($e->x, $e->y);

[download]

should be: 
my $idx = $w->GetNearest($e->x, $e->y);

[download]

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
    AHHHH, so it was a typo, F@~&!|>? S(*& Me

    ...oh thanks brother (very much)...

    I had a terrible day today.

    I have completely panicked and ruined few good scripts.

[reply]

In Section Seekers of Perl Wisdom