Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
vecs
FIJI Public
Commits
cc1c1f88
Commit
cc1c1f88
authored
Jul 07, 2017
by
Stefan Tauner
Browse files
fiji_setup: use CHANGED_VALUE constant as intended
parent
4f89a0a7
Changes
1
Hide whitespace changes
Inline
Side-by-side
bin/fiji_setup.pl
View file @
cc1c1f88
...
...
@@ -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
CHANGED_VALUE
=>
"
<M>
";
use
constant
CHANGED_VALUE
=>
"
*
";
use
constant
UNCHANGED_VALUE
=>
"";
use
constant
APPNAME
=>
'
FIJI Settings Editor
';
...
...
@@ -528,10 +528,10 @@ sub _indicate_changes {
if
(
$unsaved_changes
==
1
)
{
$self
->
{'
change_label
'}
->
configure
(
-
image
=>
Tk::FIJIUtils::
save_image
(
$self
->
{'
mw
'}));
$self
->
{'
mw
'}
->
configure
(
-
title
=>
"
*
"
.
APPNAME
);
$self
->
{'
mw
'}
->
configure
(
-
title
=>
CHANGED_VALUE
.
APPNAME
);
}
else
{
$self
->
{'
change_label
'}
->
configure
(
-
image
=>
Tk::FIJIUtils::
dummy_image
(
$self
->
{'
mw
'}));
$self
->
{'
mw
'}
->
configure
(
-
title
=>
APPNAME
);
$self
->
{'
mw
'}
->
configure
(
-
title
=>
UNCHANGED_VALUE
.
APPNAME
);
}
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment