SimpleList drag and drop

["Ratcliffe, Jeffrey (Peters)" <Jeffrey Ratcliffe External eads com>]

The following example knows when the list is being dragged, but I despite searching this list and playing 
with the testdnd.pl example, I cannot get it to tell me that it has been dropped.

I would be very grateful for (even more) advice.

Jeff

#!/usr/bin/perl -w

use strict;
use Gtk2 -init;
use Gtk2::SimpleList;

my $win = Gtk2::Window->new;
$win->signal_connect (delete_event => sub { Gtk2->main_quit; });

my $vbox = Gtk2::VBox->new;
$win->add ($vbox);

my $slist = Gtk2::SimpleList->new ( 'Int' => 'int', 'Text' => 'text' );
@{$slist->{data}} = ( [1, 'text1'], [2, 'text2'], [3, 'text3'] );
$slist -> set_reorderable( 1 );

$slist -> signal_connect("drag_data_received" => sub {
warn "dragged!\n";
});

$vbox->add ($slist);

$win->show_all;
Gtk2->main;