Select Code to Download

my $idx = $w->GetNearst($e->x, $e->y);

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

sub Drop{
    my ($lb, $dnd_source, $c_dest, $sel, $dest_x, $dest_y) = @_;
...
        $lb->see($nearest);
    }
}