$mw->DropSite(
   -dropcommand => [\&Dropit, $mw],
   -droptypes => ($^O eq 'MSWin32' ? 'Win32' : ['KDE', 'XDND', 'Sun'])
);




#------ jetzt die sub -----



sub Dropit
{
   my($widget, $selection) = @_;
   my $found=0;
   my $filename;


       #  $filename = $widget->SelectionGet(-selection => $selection, 'STRING');

   eval {
       if ($^O eq 'MSWin32') {
          $filename = $widget->SelectionGet(-selection => $selection, 'STRING');
       } else {
           $filename = $widget->SelectionGet(-selection => $selection, 'FILE_NAME');
       }
   };



   #Nur erlaubtes einfügen...;-)
   for(@endungen)
   {
       if($filename =~ /\.$_\Z/gis)
       { push(@{$Katdata2{$Kat}},$filename);$inidir = $filename;&katrenew; last;}
   }

}

$drop = $lab->DropSite( -dropcommand => [\&Dropit, $lb],
                         -droptypes => 'Win32'
                        );