my $statusFrame = $main -> Frame(-background => 'white') -> pack(-side => 'top', -fill => 'y');
my $status = $statusFrame -> Text(-background => 'black', -foreground => 'white') -> pack(-side => 'top', -pady => 9, -padx => 9);

##</code><code>##

sub compile {
	my $input = $ent0 -> get();
	my $image = $ent1 -> get();
	my $ccopts = $ent2 -> get();
	my $linkopts = $ent3 -> get();
	my $cpu = $ent4 -> get();
	if($cpp)
	{
		$status -> insert("end","Compiling $input.cpp\n");
		exit unless *****("$**opts","$input.cpp","$cpu"); # I blanked out the tool names to hide the companies identity
		$ccopts .= " -cpp";
	}
	else
	{
		$status -> insert("end","Compiling $input.c\n");
		exit unless armcc("$**opts","$input.c","$cpu");
	}
	$status -> insert("end","Compiling timer.c\n");
	exit unless *****("$**opts","timer.c","$cpu");
	$status -> insert("end","Linking $input.* and timer.*\n"); # Also blanked out the file extensions typical to our company
	exit unless *******("$linkopts","$image","$input","timer"); # The linking tool
	if($opsys eq "MSWin32") #if running windows
	{
		$status -> insert("\nRunning program, please watch the command prompt\n");
		exit unless runWindows("$image","$cpu");
	}
	if($opsys eq "linux") #if running linux
	{
		$status -> insert("\nRunning program, please watch the terminal\n");
		exit unless runLinux("$image","$cpu");
	}
}

##</code><code>##

$status -> configure(-text => 'status here');