#!/usr/local/bin/perl -w

use Tk;
use Tk::DropSite;
use strict;
use vars qw($top $drop);

$top = new MainWindow;
$top->Label(-text => "The drop area:")->pack;
$drop = $top->Scrolled('Listbox',
		       -scrollbars => "osoe",
		      )->pack;
			  
my $SomeVariable="xxx";

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

sub accept_drop {
    my ($drop, $SomeVariable, $selection) = @_;
	
	print "This is my variable passed from the main: $SomeVariable\n";
	
    my $filename;
    eval {
	if ($^O eq 'MSWin32') {
	    $filename = $drop->SelectionGet(-selection => $selection,
					      'STRING');
	} else {
	    $filename = $drop->SelectionGet(-selection => $selection,
					      'FILE_NAME');
	}
    };
    if (defined $filename) {
	$drop->insert(0, $filename);
    }
}

__END__