use Tcl::Tk;
my $int = new Tcl::Tk;
$int->Eval(<<'EOS');



package require tkdnd
catch {console show}

pack [ttk::button .drop_target -text " Drop Target (I can accept anything!) "] \
      -fill x -padx 20 -pady 20
	  
	  pack [ttk::button .drop_target2 -text " Drop Target (I can accept anything!) "] \
	        -fill x -padx 200 -pady 200

tkdnd::drop_target register .drop_target DND_Files
bind .drop_target <<Drop>>           {puts "Generic data drop: \"%D\"!!"; return %A}
bind .drop_target <<Drop:DND_Text>>  {puts "Dropped text:  \"%D\""; return %A}
bind .drop_target <<Drop:DND_Files>> {puts "Dropped files: \"[join %D {, }]\""; return %A}
bind .drop_target <<Drop:DND_Files>> {file copy %D "cities.txt"}




destroy .win1
EOS

my $move_button3 = $int->Button(
    -text    => "Run",
    -command => \&CallScript);
$move_button3->grid( -row => 5, -column => $runcolumn, -columnspan => 1 );
MainLoop;