my $Customized_Command_b;
$Customized_Command_b = $tl->Button(
	-textvariable => \$Custom_Command_label, # previously defined
	-underline => 0,
	-borderwidth => $bd_width,
	-command => sub {
		
		$Customized_Command_b->Busy(
			'-recurse' => 1,
			-cursor => 'watch',
			#-text => 'Processing...',
			-relief => 'sunken',
			#-background => 'blue',
			#-foreground => 'blue',
				);

		system $custom_command, @arguments, $formdir, $dir
			and warn "'Custom Command' problem: ", $? >> 8, "\n"
			and $ccmd_rc = 1
			;

		if ($ccmd_rc) {
			$View_Custom_Log_cb->configure(
	                    -background => "red1",	
	                	-activebackground => "red1",
		                     );
		}

		$Customized_Command_b->Unbusy( '-recurse' => 1 );
		$tl->raise();
		},
	)->grid(
		-column => 5,
		-row => 14,
		-columnspan => 6,
		-sticky => 'nsew',
			);