Select Code to Download

sub drag_group {
    my ($c) = @_;
...
    # move it...
    $c->move( $draginfo{id}, $dx, $dy );
}

sub items_retrieve {
    my $id = shift;
    my @items = @{$group{$id}{items}};
    return @items;
}