Gtk3 and drag'n'drop

[Jeff <jffry posteo net>]

I've almost got drag'n'drop working in Gtk3, but I'm just missing the
final piece:

To finish a drag in Gtk2, you call finish() on the context, typically like:

 $context->finish(1, $delete, time);

If I do this in Gtk3, I get:

*** unhandled exception in callback:
***   Can't locate object method "finish" via package
"Glib::Object::_Unregistered::GdkX11DragContext" at ../gtk3_iconview.pl
line 251.
***  ignoring at /usr/share/perl5/Gtk3.pm line 546.

I can't find any docs or examples for dnd and Gtk3 in Perl, but the C
docs describes finish:

https://developer.gnome.org/gtk3/stable/gtk3-Drag-and-Drop.html#gtk-drag-finish

This python example doesn't finish the drag:

https://python-gtk-3-tutorial.readthedocs.io/en/latest/drag_and_drop.html

So - what is the Perl equivalent of gtk_drag_finish()?

Regards

Jeff

P.S. For those interested, I got most of the way through transcribing
the drag and drop tutorial here:

http://gtk2-perl.sourceforge.net/doc/gtk2-perl-study-guide/c5651.html

and have attached the results (which show the above problem).

Attachment: gtk3_iconview.pl
Description: Perl program

Attachment: signature.asc
Description: OpenPGP digital signature