-command=>
[sub { my $deltgt = shift;
	print "Deleting \"$deltgt->$runtime{$deltgt}\"\n";
	delete $runtime{$deltgt};
	print "Hash entry deleted\n";
	delete($wrLabel{$deltgt})->destroy();
	print "Widget label deleted and destroyed\n";
	delete($wrEntry{$deltgt})->destroy();
	print "Widget entry deleted and destroyed\n";
	delete($wrButton{$deltgt})->destroy();
	print "Widget button deleted and destroyed\n";
	$widgetrow{$deltgt} -> destroy();
	print "Widget row destroyed\n";
	}, $widgetname]