my $thumb1 = $frame1->Scrolled('Thumbnail',
               -scrollbars => 'e',
               -iwidth => 200, 
               -iheight => 300, 
               -width => 250,
               -ilabels => '0', 
               #zoombtn => 'right',
               -cols => '1',
               -command => sub {\&StartDrag($dnd_token)},
               );
$thumb1->pack( qw/ -fill y -expand 1 / );
$thumb1->update;

$dnd_token = $thumb1->DragDrop
  (-event     => '<B1-Motion>',
   -sitetypes => ['Local'],);
$frame3->DropSite
  (-droptypes     => ['Local'],
   -dropcommand   => [ \&Drop, $thumb3, $dnd_token ],
  );

sub StartDrag {
       my $w = $dnd_token->parent;
       my $e = $w->XEvent;
       my $pic = $thumb1->Photo(-file=>$_[1]); 
        
           }

sub Drop {
                $thumb3->configure( -images => [$pic] );
        $thumb3->update;
             }