fiji_setup.pl

#-------------------------------------------------------------------------------
#  University of Applied Sciences Technikum Wien
#
#  Department of Embedded Systems
#  http://embsys.technikum-wien.at
#
#  Josef Ressel Center for Verification of Embedded Computing Systems
#  http://vecs.technikum-wien.at
#
#-------------------------------------------------------------------------------
#  Description:
#
#  FIJI setup script (GUI)
#
#-------------------------------------------------------------------------------

## @file fiji_setup.pl
# @brief FIJI setup script (GUI)
## @file
# Displays a Tk GUI for entering, viewing and editing \ref FIJI::Settings

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin";

use Log::Log4perl qw(get_logger);
use Tk;
use Tk::widgets qw(LabFrame Label Entry Button Dialog FBox Checkbutton);
use Tk::PNG;
use Clone qw(clone);
use File::Spec;
use Data::Dumper;
use FIJI::Settings;
use FIJI::Utils;
use Tk::FIJISettingsViewer;
use Tk::FIJIUtils;
use Time::HiRes qw(ualarm);

use Getopt::Long;

use FIJI qw(:fiji_dir :fiji_documentation_path);

## @var USE_MENU defines control style of fiji_settings:
# 0 => classic, no menu GUI
# 1 => toplevel menu
# undef => classic+menu GUI
use constant USE_MENU => undef;

use constant FILE_TYPES_CFG => [['FIJI Configurations', ['.cfg', '*.ini']], ['All files', '*'],];

use constant FILE_TYPES_NETLIST => [['Verilog Netlists', ['.v', '*.vqm']], ['All files', '*'],];

use constant CHANGED_VALUE   => "<M>";
use constant UNCHANGED_VALUE => "";

use constant APPNAME => 'FIJI Settings Editor';

my $abouttxt = <<'END_ABOUT';
#-------------------------------------------------------------------------------
#  University of Applied Sciences Technikum Wien
#
#  Department of Embedded Systems
#  http://embsys.technikum-wien.at
#
#  Josef Ressel Center for Verification of Embedded Computing Systems
#  http://vecs.technikum-wien.at
#
#-------------------------------------------------------------------------------
END_ABOUT

my $unsaved_changes = 0;
my $delete_main = 1;
my $error_image;
my $alert_image;
my $save_image;
my $dummy_image;
my $loading_image;
my $current_dir = ".";
my $splash;
my $do_splash;

use constant START_PERIOD => 500000; # 500 ms

my $usage=<<"END_USAGE";
Usage: $0 [OPTION]
The graphical FIJI Settings Editor

Optional command-line arguments:
   -s, --settings-file=FILE    load the given settings file at startup
   -n, --netlist-file=FILE     load the given netlist file at startup
   -h, --help                  display this help and exit
END_USAGE

my $rv;

sub main {
    my $logger = get_logger("");
    my $name   = $0;
    my @ARGV   = @_;
    $name =~ s/\.p[lm]//;
    $logger->debug("=== Starting new execution of $name ===");
    $logger->debug(sprintf("%d argument(s)%s", scalar(@_), scalar(@_) > 0 ? ": @_" : ""));

    my ($settings_filename, $netlist_filename, $help);

    my $parse = GetOptions("settings-file=s" => \$settings_filename,
                           "netlist-file=s"  => \$netlist_filename,
                           "help"            => \$help);

    my $only_load = (defined $ENV{FIJI_BENCHMARK} && $ENV{FIJI_BENCHMARK} eq "ONLY_LOAD");

    $logger->warn("Benchmarking mode: Terminating after loading settings and netlist") if $only_load;

    if (!$parse) {
        print STDERR $usage;
        return -1;
    }
    if (defined $help) {
        print STDOUT $usage;
        return 0;
    }

    my %hash;
    my $self = bless(\%hash);

    my $libdir = File::Spec->catdir(FIJI_DIR, "media");
    my $ugdir = File::Spec->catdir(FIJI_DIR, "docs", "userguide");

    my $ini_name;    # = $cfg{"cli.fiji_cfg"};
    $self->{'ini_name'} = \$ini_name;
    my $nl_name;
    $self->{'nl_name'} = \$nl_name;

    #
    # Start out with default settings
    #
    my ($settings_ref, $msg) = FIJI::Settings->new();
    if (defined $msg) {
        $logger->error($msg);
    }
    if (!defined($settings_ref)) {
        return 1;
    }
    $self->{'settings'} = $settings_ref;

    #
    # Build GUI
    #
    # Assigning $0 sets a "prettier" program title in Gnome's taskbar
    # Must not contain spaces (duh)
    $0 = (APPNAME =~ s/\s+/\-/rg);
    my $mw = MainWindow->new(-title => APPNAME);
    $mw->appname(APPNAME);
    $error_image   = $mw->Photo(-file => File::Spec->catfile($libdir, 'stop_48x48.xpm'),  -format => 'XPM');
    $alert_image   = $mw->Photo(-file => File::Spec->catfile($libdir, 'alert_48x48.xpm'), -format => 'XPM');
    $save_image    = $mw->Photo(-file => File::Spec->catfile($libdir, 'save_24x24.xpm'),  -format => 'XPM');
    $dummy_image   = $mw->Photo(-file => File::Spec->catfile($libdir, 'dummy_24x24.xpm'), -format => 'XPM');
    $loading_image = $mw->Photo(-file => File::Spec->catfile($libdir, 'fiji_logo_hires.xpm'), -format => 'XPM');

    $self->{'mw'} = $mw;
    $self->{'ctrl'} = _ctrl_frame($self, $mw);

    if (!defined USE_MENU || USE_MENU == 1) {
        $self->{'menu'} = $self->_menu($mw);
    }

    $mw->toplevel()->bind('<Control-o>'       => sub { $self->_open_settings_file; });
    $mw->toplevel()->bind('<Control-Shift-O>' => sub { $self->_open_netlist_file; });
    $mw->toplevel()->bind("<Control-s>"       => sub { $self->_save; });
    $mw->toplevel()->bind("<Control-Shift-S>" => sub { $self->_save_as; });
    $mw->toplevel()->bind("<F1>"              => sub { $self->_show_documentation; });
    $mw->toplevel()->bind("<Control-q>"       => sub { $self->_onexit; });

    $self->{'FIJISettingsViewer'} = $mw->FIJISettingsViewer(
        -mw               => $self->{'mw'},
        -delete_mw        => [\&_onexit, $self],
        -settings         => $self->{'settings'},
        -icon_path        => $libdir,
        -changes_callback => sub { my $set = shift; _indicate_changes($self, $set) },
      )->pack(
        '-fill'   => 'both',
        '-expand' => 1
      );

    $mw->protocol('WM_DELETE_WINDOW' => [\&_onexit, $self]);

    Tk::FIJIUtils::set_icon($mw, $libdir);

    $self->{'FIJISettingsViewer'}->append_fiu();               # add dummy FIU for layouting purposes
    $self->{'FIJISettingsViewer'}->set_state_as_original();    # no unsaved indicator
    $mw->update();

    $mw->minsize($self->{'FIJISettingsViewer'}->width(), $self->{'FIJISettingsViewer'}->height() + $self->{'ctrl'}->height());
    $mw->resizable(1, 1);
    $splash=$mw->toplevel->Frame();
    $splash->Label(-font => [-size => 16], -text => "Loading Netlist - Please wait...",-height=>2,)->pack(-side=>'bottom',-fill=>'both');
    $splash->Label(-image => $loading_image)->pack(-side=>'bottom',-expand=>1,-fill=>'both');
    $mw->update();

    #
    # Load settings if specified
    #
    if (defined $settings_filename) {
        my $filename = $settings_filename;
        my $fr       = $mw;
        if (-e $filename) {
            my $tmp_settings = \%{Clone::clone($self->{'settings'})};
            my $warn;
            ($tmp_settings, $warn) = FIJI::Settings->new('setup', $filename);
            if (defined($warn)) {
                my $msg = "Settings file $filename could not be loaded correctly: $warn";
                $logger->error($msg);
                my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw => [\&_onexit, $self], 
                                                       -mw        => $self->{'mw'},
                                                       -image     => (!defined($tmp_settings) ? $error_image : $alert_image),
                                                       -wraplength => "200",
                                                       -text      => $msg,
                                                       -title     => 'Open FIJI Settings failed!',
                                                       -buttons   => ["OK"]);
                $d->Show() if !$only_load;
                if (!defined($tmp_settings)) {
                    $rv = 1;
                    goto bailout;
                }
            }
            if (!defined($self->{'FIJISettingsViewer'}->settings($tmp_settings))) {
                my $msg = "Could not update GUI correctly with new settings.";
                $logger->error($msg);
                my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw => [\&_onexit, $self], 
                                                       -mw        => $self->{'mw'},
                                                       -image     => $error_image,
                                                       -wraplength => "200",
                                                       -text      => $msg,
                                                       -title     => 'Open FIJI Settings failed!',
                                                       -buttons   => ["OK"]);
                $d->Show() if !$only_load;
                $rv = 1;
                goto bailout;
            }
            $self->{'settings'} = $tmp_settings;
        } else {
            $self->{'settings'}->save($filename);
        }
        ${$self->{'ini_name'}} = $filename;
    }

    $self->_load_netlist_file($netlist_filename) if (defined $netlist_filename);

    MainLoop if !$only_load;

bailout:

    $self->_cleanup();
    $logger->trace("=== Stopping execution ===");
    return $rv if defined $rv;
    return 0;
}

sub _menu {
    my ($self, $mw) = @_;

    my $menubar = $self->{'menu'} = $mw->Menu(-relief => "groove");

    my $file    = $menubar->cascade(-label => '~Configuration', -tearoff => 0);
    my $netlist = $menubar->cascade(-label => '~Netlist',       -tearoff => 0);
    my $help    = $menubar->cascade(-label => '~Help',          -tearoff => 0);

    $file->separator;
    $file->command(
        -label       => 'Open',
        -accelerator => 'Ctrl-o',
        -underline   => 0,
        -command     => [\&_open_settings_file, $self],
    );
    $file->separator;
    $file->command(
        -label       => 'Save',
        -accelerator => 'Ctrl-s',
        -underline   => 0,
        -command     => [\&_save, $self],
    );
    $file->command(
        -label       => 'Save As ...',
        -accelerator => 'Ctrl-Shift-s',
        -underline   => 1,
        -command     => [\&_save_as, $self],
    );

    $netlist->separator;
    $netlist->command(
        -label       => 'Load',
        -accelerator => 'Ctrl-Shift-O',
        -underline   => 0,
        -command     => [\&_open_netlist_file, $self],
    );
    $help->separator;
    $help->command(
        -label       => 'Open Documentation',
        -accelerator => 'F1',
        -underline   => 0,
        -command     => [\&_show_documentation, $self],
    );
    $help->separator;
    $help->command(
        -label     => 'About',
        -underline => 0,
        -command   => sub {
            my $d = $mw->DialogBox(
                -title   => "About",
                -buttons => ["Close"]
            );
            my $t = $d->Scrolled('Text', -scrollbars => "oe", -width => 80, -height => 16);
            $t->pack(-fill => "both", -expand => 1);
            $t->Contents($abouttxt);
            $t->configure(-state => "disabled");
            $d->Show();
        }
    );
    $mw->configure(-menu => $menubar);
}

sub _ctrl_frame {
    my ($self, $fr) = @_;
    my $fr_ctrl = $fr->LabFrame(
        -label     => "Control",
        -labelside => "acrosstop"
      )->pack(
        -side   => 'top',
        -anchor => 'w',
        -fill   => 'x',

        # -expand => 1
      );

    my $cfg_lbl;
    my $cfg_changed_lbl;
    my $cfg_btn_open;
    my $cfg_btn_save;
    my $cfg_btn_save_as;
    my $cfg_entry;
    my $nl_lbl;
    my $nl_btn_open;
    my $nl_entry;

    #
    # Configuration file entries
    #
    $cfg_lbl = $fr_ctrl->Label(-text => 'FIJI Configuration file',)->grid(
        '-row'    => 0,
        '-column' => 0,
        '-sticky' => 'w'
    );
    $self->{'change_label'} = $cfg_changed_lbl = $fr_ctrl->Label(-image => $dummy_image)->grid(
        '-row'    => 0,
        '-column' => 1,
        '-sticky' => 'w'
    );

    my $b = $fr_ctrl->Balloon();
    $b->attach($cfg_changed_lbl, -postcommand => sub { return $unsaved_changes == 1 }, -msg => "Unsaved changes");

    if (!defined USE_MENU || USE_MENU == 0) {
        $cfg_btn_open = $fr_ctrl->Button(
            -text    => 'Open',
            -command => [\&_open_settings_file, $self],
          )->grid(
            '-row'    => 0,
            '-column' => 2,
            '-sticky' => 'ew'
          );
        $cfg_btn_open->focus();

        $cfg_btn_save = $fr_ctrl->Button(
            -text    => 'Save',
            -command => [\&_save, $self],
          )->grid(
            '-row'    => 0,
            '-column' => 3,
            '-sticky' => 'ew'
          );

        $cfg_btn_save_as = $fr_ctrl->Button(
            -text    => 'Save as',
            -command => [\&_save_as, $self],
          )->grid(
            '-row'    => 0,
            '-column' => 4,
            '-sticky' => 'ew'
          );
    }

    $cfg_entry = $fr_ctrl->Entry(
        -textvariable       => $self->{'ini_name'},
        -state              => 'disabled',
        -disabledforeground => 'black',
        -takefocus          => 0,                     # default for disabled
      )->grid(
        '-row'    => 0,
        '-column' => 5,
        '-sticky' => 'ew'
      );

    #
    # Netlist file entries
    #
    $nl_lbl = $fr_ctrl->Label(-text => 'Input netlist file',)->grid(
        '-row'    => 1,
        '-column' => 0,
        '-sticky' => 'w',
    );

    if (!defined USE_MENU || USE_MENU == 0) {
        $nl_btn_open = $fr_ctrl->Button(
            -text    => 'Open',
            -command => [\&_open_netlist_file, $self],
          )->grid(
            '-row'    => 1,
            '-column' => 2,
          );
    }

    $nl_entry = $fr_ctrl->Entry(
        -textvariable       => $self->{'nl_name'},
        -state              => 'disabled',
        -disabledforeground => 'black',
        -takefocus          => 0,                    # default for disabled
      )->grid(
        '-row'        => 1,
        '-column'     => 3,
        '-columnspan' => 4,
        '-sticky'     => 'ew',
      );

    $fr_ctrl->gridColumnconfigure(5, -weight => 1);

    return $fr_ctrl;
}

sub _show_documentation {
    my $self = shift;
    my $mw   = $self->{'mw'};

    my $ret;
    if ($^O eq "MSWin32") {
        $ret = FIJI::Utils::system(1, "start " . FIJI_DOCUMENTATION_PATH);
    } elsif ($^O eq "linux") {
        $ret = FIJI::Utils::system("xdg-open " . FIJI_DOCUMENTATION_PATH);
    } else {
        my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw => [\&_onexit, $self], 
                                               -mw        => $self->{'mw'},
                                               -image     => $error_image,
                                               -text      => "No default PDF viewer for OS \"" . $^O . "\"...",
                                               -title     => "Open Documentation failed",
                                               -buttons   => ["OK"]);
        $d->Show();
        return;
    }
    if (defined($ret)) {
        my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw => [\&_onexit, $self], 
                                               -mw        => $self->{'mw'},
                                               -image     => $error_image,
                                               -text      => $ret,
                                               -title     => "Open Documentation failed",
                                               -buttons   => ["OK"]);
        $d->Show();
    }
}

sub _setdir {
    my $filename = shift;
    my ($volume,$directories,$file) = File::Spec->splitpath($filename);
    return File::Spec->catpath($volume, $directories, "");
}

sub _open_settings_file {
    my ($self) = @_;

    my $mw = $self->{'mw'};

    my $logger   = get_logger("");
    my $filename = $mw->FBox(
        -type        => 'open',
        -title       => 'Open FIJI Configuration file',
        -filetypes   => FILE_TYPES_CFG,
        -initialdir  => $current_dir,
        -initialfile => 'fiji.cfg'
    )->Show();
    if (!defined($filename)) {
        $logger->debug("User aborted open configuration action");
        return;
    }
    $current_dir = _setdir($filename);
    my $tmp_settings = \%{Clone::clone($self->{'settings'})};
    my $warn;
    ($tmp_settings, $warn) = FIJI::Settings->new('setup', $filename, $tmp_settings);
    if (!ref($tmp_settings)) {
        my $msg = "Settings file $filename could not be loaded correctly: $tmp_settings";
        $logger->error($msg);
        my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw => [\&_onexit, $self], 
                                               -mw        => $self->{'mw'},
                                               -image     => $error_image,
                                               -wraplength => "200",
                                               -text      => $msg,
                                               -title     => 'Open FIJI Settings failed!',
                                               -buttons   => ["OK"]);
        $d->Show();
        return;
    }
    my $rv = $self->{'FIJISettingsViewer'}->settings($tmp_settings);

    if (!defined($rv)) {
        my $msg = "Could not update GUI correctly with new settings.";
        $logger->error($msg);

        my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw => [\&_onexit, $self], 
                                               -mw        => $self->{'mw'},
                                               -image     => $error_image,
                                               -wraplength => "200",
                                               -text      => $msg,
                                               -title     => 'Open FIJI Settings failed!',
                                               -buttons   => ["OK"]);
        $d->Show();
        return;
    } elsif (ref($rv) eq "FIJI::Settings") {
        $self->{'settings'} = $tmp_settings;
        ${$self->{'ini_name'}} = $filename;
    }
}

sub _open_netlist_file {
    my $logger = get_logger("");
    my $self   = shift;

    my $mw = $self->{'mw'};

    my $filename = $mw->FBox(
        -type        => 'open',
        -title       => 'Open netlist file',
        -filetypes   => FILE_TYPES_NETLIST,
        -initialdir  => $current_dir,
        -initialfile => 'input.v'
    )->Show();
    if (!defined($filename)) {
        $logger->debug("User aborted open netlist action.");
        return;
    }
    $current_dir = _setdir($filename);
    $self->_load_netlist_file($filename);
}

$SIG{ALRM} = sub { if(defined $do_splash) {
                        if ($do_splash eq 'start') {
                            $splash->place(-bordermode=>'inside',-anchor=>'center',-relx => 0.5, -rely => 0.5,-relwidth=>1,-relheight=>1);
                            $splash->focus;
                            $splash->parent->update;
                        }
                    }
                };

sub _load_netlist_file {

    my $logger = get_logger("");
    my $self     = shift;
    my $filename = shift;
    my $mw = $self->{'mw'};

    $do_splash = 'start';
    ualarm START_PERIOD;

    # Display "Busy" cursor
    $mw->Busy();
    $mw->update();

    $logger->debug("Loading netlist...");
    my $nl = new FIJI::Netlist();
    if ($nl->read_file($filename) != 0) {
        my $msg = "Netlist could not be loaded correctly from \"$filename\".";
        $logger->error($msg);
        my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw => [\&_onexit, $self], 
                                               -mw        => $self->{'mw'},
                                               -image     => $error_image,
                                               -wraplength => "200",
                                               -text      => $msg,
                                               -title     => 'Open netlist failed!',
                                               -buttons   => ["OK"]);
        $d->Show();
        undef $do_splash;
        $splash->placeForget();
        $mw->Unbusy();
        return;
    }
    $logger->debug("...done");
    $logger->debug("Updating viewer...");
    $mw->update();

    if (!defined($self->{'FIJISettingsViewer'}->netlist($nl))) {
        my $msg = "Could not update GUI correctly with new netlist.";
        $logger->error($msg);

        my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw => [\&_onexit, $self], 
                                               -mw        => $self->{'mw'},
                                               -image     => $error_image,
                                               -wraplength => "200",
                                               -text      => $msg,
                                               -title     => 'Open netlist failed!',
                                               -buttons   => ["OK"]);
        $d->Show();
        undef $do_splash;
        $splash->placeForget();
        $mw->Unbusy();
        return;
    }
    ${$self->{'nl_name'}} = $filename;
    $logger->debug("...done");

    # Done...
    undef $do_splash;
    $splash->placeForget();
    $mw->Unbusy();
    $mw->update();
}

sub _indicate_changes {
    my $logger = get_logger("");
    my $self   = shift;
    my $set    = shift;
    $unsaved_changes = $set;

    if ($unsaved_changes == 1) {
        $self->{'change_label'}->configure(-image => $save_image);
        $self->{'mw'}->configure(-title => "*" . APPNAME);
    } else {
        $self->{'change_label'}->configure(-image => $dummy_image);
        $self->{'mw'}->configure(-title => APPNAME);
    }
}

sub _overwrite_existing_file ($) {
    my ($self, $filename) = @_;
    my $logger = get_logger("");
    if (!-e $filename) {
        return 1;
    }
    my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw => [\&_onexit, $self], 
                                           -mw        => $self->{'mw'},
                                           -image     => $alert_image,
                                           -text      => "File \"$filename\" already exists.\nDo you want to overwrite it?",
                                           -title     => 'Really overwrite?',
                                           -buttons   => ["Yes", "No"]);

    my $reply = $d->Show();
    return (defined $reply && lc($reply) eq 'yes');
}

sub _save_file {
    my ($self, $filename) = @_;
    my $logger = get_logger("");
    if (!$self->_overwrite_existing_file($filename)) {
        return;
    }

    # Check if all drivers are set, prompt for missing ones
    $self->{'mw'}->Busy;
    my $drv  = $self->{'FIJISettingsViewer'}->validate_all_drivers();
    my $dup  = $self->{'FIJISettingsViewer'}->validate_duplicate_nets();
    my $dsgn = $self->{'FIJISettingsViewer'}->validate_all_design_settings();
    $self->{'mw'}->Unbusy;

    # Warn the user if not all drivers could be validated successfully
    my $rv;
    if (defined($drv)) {
        $rv = "$drv\n";
        $logger->error($drv);
    }
    if (defined($dsgn)) {
        $rv .= "$dsgn\n";
        $logger->error($dsgn);
    }
    if (defined($dup)) {
        $rv .= "$dup\n";
        $logger->error($dup);
    }
    
    if (defined($drv) || defined($dsgn) || defined($dup)) {
        my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw   => [\&_onexit, $self],
                                               -mw          => $self->{'mw'},
                                               -image       => $alert_image,
                                               -text        => $rv . "Save Settings nevertheless?",
                                               -wraplength  => 350,
                                               -title       => 'Validation failed',
                                               -buttons     => [qw/Yes No/]);

        my $save = $d->Show();
        if (!defined $save || $save eq "No") {
            $logger->info("Saving aborted.");
            return;
        }
        $logger->info("Saving settings nevertheless.");
    }

    # Try to save the settings file
    my $err = $self->{'settings'}->save($filename);
    if (defined($err)) {
        my $msg = "Saving to file $filename failed!\n$err";
        $logger->error($msg);

        my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw   => [\&_onexit, $self], 
                                               -mw          => $self->{'mw'},
                                               -image       => $error_image,
                                               -text        => $msg,
                                               -title       => 'Save failed!',
                                               -buttons     => ["OK"]);

        $d->Show();
        return;
    }
    ${$self->{'ini_name'}} = $filename;

    $self->{'FIJISettingsViewer'}->set_state_as_original();

    $logger->info("Successfully saved to file $filename.");
}

sub _save {
    my ($self) = @_;
    if (!defined(${$self->{'ini_name'}})) {
        return $self->_save_as();
    } else {
        return $self->_save_file(${$self->{'ini_name'}});
    }
}

sub _save_as {
    my ($self) = @_;
    my $filename = $self->{'mw'}->FBox(
        -type             => 'save',
        -title            => 'Save FIJI Configuration file as...',
        -defaultextension => 'cfg',
        -filetypes        => FILE_TYPES_CFG,
        -initialdir       => '.',
        -initialfile      => 'fiji.cfg',
        -force            => 1, # prevent FBox's "overwrite?" dialog
                                #    because we have our own check and a nicer dialog
                                #    AND we want to prevent showing the dialog twice
    )->Show();

    if (!defined($filename)) {
        return;
    }
    return $self->_save_file($filename);
}

sub _onexit {
    my $logger = get_logger("");
    my ($self) = @_;
    my $mw = $self->{'mw'};

    return if (defined $self->{'already_clicked'} && $self->{'already_clicked'} == 1);
    $self->{'already_clicked'} = 1;

    my $response;
    if ($unsaved_changes == 1) {

        my $d = $self->{'mw'}->FIJIModalDialog(-delete_mw   => [\&_onexit, $self], 
                                               -mw          => $self->{'mw'},
                                               -image       => $alert_image,
                                               -text        => "Unsaved changes.\nDo you really want to quit?",
                                               -wraplength  => 350,
                                               -title       => 'Really quit?',
                                               -buttons     => ["Save", "Cancel", "Quit"]);

        $response = $d->Show();
        $self->{'already_clicked'} = 0;
        $logger->info("Settings changed. Asking to save.") if ($unsaved_changes == 1);

        # use _save_as to give the user the chance to save under a different name
        $self->_save_as if (defined $response && $response eq "Save");
        $logger->info("Save: " . (defined $response ? $response : "undef"));

        if (!defined $response || $response ne "Cancel") {
            goto finish;
        }
    } else {
        goto finish;
    }
    return;

finish:
    $delete_main = 0;
    $self->{'mw'}->destroy();
    return;
}

sub _cleanup {
    my $self = shift;
    $self->{'mw'}->destroy() if $delete_main; # according to Mastering O'Reilly
}

my $log_conf = File::Spec->catfile($FindBin::Bin, 'logger.conf');
Log::Log4perl::init_and_watch($log_conf, 'HUP');
exit main(@ARGV);