Commit cc1c1f88 authored by Stefan Tauner's avatar Stefan Tauner
Browse files

fiji_setup: use CHANGED_VALUE constant as intended

parent 4f89a0a7
...@@ -53,7 +53,7 @@ use constant FILE_TYPES_CFG => [['FIJI Configurations', ['.cfg', '*.ini']], ['Al ...@@ -53,7 +53,7 @@ use constant FILE_TYPES_CFG => [['FIJI Configurations', ['.cfg', '*.ini']], ['Al
use constant FILE_TYPES_NETLIST => [['Verilog Netlists', ['.v', '.vm', '*.vqm']], ['All files', '*'],]; use constant FILE_TYPES_NETLIST => [['Verilog Netlists', ['.v', '.vm', '*.vqm']], ['All files', '*'],];
use constant CHANGED_VALUE => "<M>"; use constant CHANGED_VALUE => "*";
use constant UNCHANGED_VALUE => ""; use constant UNCHANGED_VALUE => "";
use constant APPNAME => 'FIJI Settings Editor'; use constant APPNAME => 'FIJI Settings Editor';
...@@ -528,10 +528,10 @@ sub _indicate_changes { ...@@ -528,10 +528,10 @@ sub _indicate_changes {
if ($unsaved_changes == 1) { if ($unsaved_changes == 1) {
$self->{'change_label'}->configure(-image => Tk::FIJIUtils::save_image($self->{'mw'})); $self->{'change_label'}->configure(-image => Tk::FIJIUtils::save_image($self->{'mw'}));
$self->{'mw'}->configure(-title => "*" . APPNAME); $self->{'mw'}->configure(-title => CHANGED_VALUE . APPNAME);
} else { } else {
$self->{'change_label'}->configure(-image => Tk::FIJIUtils::dummy_image($self->{'mw'})); $self->{'change_label'}->configure(-image => Tk::FIJIUtils::dummy_image($self->{'mw'}));
$self->{'mw'}->configure(-title => APPNAME); $self->{'mw'}->configure(-title => UNCHANGED_VALUE . APPNAME);
} }
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment