use strict;
use warnings;
use Tk;
use Tk::DialogBox;


my $mw = MainWindow->new();
$mw->OnDestroy(\&exit_app);

$mw->Button(-text => 'Exit', -command=> sub {$mw->destroy})->pack(-side=>'right', -ipadx => 10, -padx=>30);


MainLoop;

sub exit_app{
	print "1";
    	my $db = $mw->DialogBox(-title => 'Error',-buttons => ['CSV','Abandon']);
        $db->Label(-text => "Do you wish to save a new CSV file or abandon changes?")->pack();
        my $button = $db->Show();
	if ($button eq 'CSV'){
		save_csv();
        }
}

sub save_csv{
	return 1;
}