my $frame1 = $mw->Frame(
            -relief=>'sunken',
            -borderwidth => 5,
             
            )->pack( 
                -side => 'left', 
                -fill => 'y'
                );

my $thumb1 = $frame1->Scrolled('Thumbnail',
                -scrollbars => 'e', 
                -iwidth => 200, 
                -iheight => 300, 
                -width => 250,
                -ilabels => '0', 
                -zoombtn => 'right',
                -cols => '1',
                );
$thumb1->pack( qw/ -fill y -expand 1 / );
$thumb1->update;

$dnd_token = $thumb1->DragDrop
  (-event     => '<B1-Motion>',
   -sitetypes => ['Local'],
   -startcommand => sub { \&StartDrag($dnd_token) },
  );

sub StartDrag {
    print "bin in Drag";
    my($token) = @_;
    my $w = $token->parent; # $w is the source listbox
    my $e = $w->XEvent;
    my $idx = $w->nearest($e->y);
    if (defined $idx) 
    {
    $token->configure(-text => $w->get($idx));
    }
    my($X, $Y) = ($e->X, $e->Y);
    $token->MoveToplevelWindow($X, $Y);
    $token->raise;
    $token->deiconify;
    $token->FindSite($X, $Y, $e);
    }