my $drop = $hlist->DropSite(
		-droptypes    => [qw(Local)],
		-dropcommand  => sub { perform_drop($label, @_) }, # New!
		-entercommand => sub { hover_over_drop($label, @_) }, # New!