sub StartDrag {
        my($w) = @_; # falls $_[0] hier das Tk::Thumbnail-Widget ist
        my $e = $w->XEvent;
        my($X, $Y) = ($e->X, $e->Y);    
        # und den ganzen Rest mit MoveToplevel etc.
}