my $thumb1 = $frame1->Scrolled('Thumbnail',
               -scrollbars => 'e',
               -iwidth => 200, 
               -iheight => 300, 
               -width => 250,
               -ilabels => '0', 
               #zoombtn => 'right',
               -cols => '1',
               -command => sub {\&StartDrag($_[0])},
               );
sub StartDrag {
        my($token) = @_;
        my $w = $token->parent;
        my $e = $w->XEvent;
        my($X, $Y) = ($e->X, $e->Y);    
    }