sub compok{
	my $Cok = MainWindow->new(title=>"Copy succeeded");
	my $Cok1 = $Cok -> Frame;
#	$widget -> configure(-size=>14,-weoght=>'bold');
#	$FFont -> weight(bold);
	$Cok1->Label(-text=>"\n\nWONDERFULL\n\nGREAT\n\nINCREDIBLE\n\nMAGNIFICENT\n\nYOUR COMPILATION PASSED\n\nAND I'VE JUST FINISHEAD COPYING YOUR FILES\nINTO $Dest_Dir!\n\n\n",
		-font => 14,
#		-weight => 'bold',
		-height => '1.5',
		-background => 'lightblue')->pack(-side=>"top",-fill=>"both",-anchor=>"w",qw/-ipadx 70 -ipady 120/);
	$Cok1->Button( -text => 'OK',
		-background => 'lightgreen',
		-command =>[$Cok => 'destroy'])->pack(qw/-ipadx 4 -pady 2/);
	$Cok1 -> pack;
	MainLoop;
}