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
2d2e764d
Commit
2d2e764d
authored
Jun 19, 2017
by
Stefan Tauner
Browse files
FIJISettingsViewer: fix setting of background colors of net entries
parent
66cb69f2
Changes
1
Hide whitespace changes
Inline
Side-by-side
bin/Tk/FIJISettingsViewer.pm
View file @
2d2e764d
...
...
@@ -1029,6 +1029,7 @@ sub _add_fiu ($$) {
-
balloonposition
=>
'
mouse
',
-
msg
=>
FIUMAP
->
{'
FIU_DRIVER_PATH
'}
->
{'
help
'}
.
"
[
"
.
FIUMAP
->
{'
FIU_DRIVER_PATH
'}
->
{'
ini_name
'}
.
"
]
",
);
$widget_ro_background
=
$drv_entry
->
cget
('
-readonlybackground
')
if
!
defined
(
$widget_ro_background
);
# Menu to select the fault model implemented by this FIU
my
$model_menu
=
$fr_fiu
->
Optionmenu
(
...
...
@@ -1879,7 +1880,7 @@ sub _indicate_warning ($$) {
# Work around: store the entry background color at creation time and
# use that instead.
my
$bg_color
=
(
$widget
->
cget
("
-state
")
ne
"
readonly
")
?
$widget_background
:
$widget_ro_background
;
$widget
->
configure
(
$bg_option
=>
$
widget_background
);
$widget
->
configure
(
$bg_option
=>
$
bg_color
);
delete
$self
->
{'
highlit_widgets
'}
->
{
$displaygroup
}
->
{
$name
}
if
defined
$self
->
{'
highlit_widgets
'}
->
{
$displaygroup
}
->
{
$name
};
}
...
...
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