my $ds_t = $t->DropSite ( -droptypes     => ['Local'], 
                          -dropcommand   => sub { print "Dropped Main: ".(join(":", ($t->pointerxy))).' Table: '.(join(":", ($top->pointerxy))).
                                                        '   XScrollbar: '.(sprintf("%.2f", ($t->xview)[0]*100)).'%'.
                                                        '   YScrollbar: '.(sprintf("%.2f", ($t->yview)[0]*100)).'%'.
                                                        '   Widget Position: '.&get_cell_coords($t).'   XEvent: '.($t->XEvent->X).':'.($t->XEvent->Y).' Index: '.($t->index( '@'.(($t->pointerxy)[0]).','.(($t->pointerxy)[1]) )).' '."\n"; } );