--- customlist.pl	01 Aug 2004 12:44:05 +1000	1.2
+++ customlist.pl	07 Jul 2008 09:52:14 +1000	
@@ -442,6 +442,14 @@
   my $customlist = CustomList->new;
   fill_model ($customlist);
 
+  use Data::Dumper;
+  $customlist->signal_connect (rows_reordered => sub {
+                                 print Dumper(\ _);
+                               },
+                               'my-userdata');
+  $customlist->rows_reordered (Gtk2::TreePath->new, undef,
+                               0 .. $customlist->iter_n_children(undef) - 1);
+
   my $view = Gtk2::TreeView->new ($customlist);
 
   my $renderer = Gtk2::CellRendererText->new;