Commit 2d2e764d authored by Stefan Tauner's avatar Stefan Tauner
Browse files

FIJISettingsViewer: fix setting of background colors of net entries

parent 66cb69f2
...@@ -1029,6 +1029,7 @@ sub _add_fiu ($$) { ...@@ -1029,6 +1029,7 @@ sub _add_fiu ($$) {
-balloonposition => 'mouse', -balloonposition => 'mouse',
-msg => FIUMAP->{'FIU_DRIVER_PATH'}->{'help'} . " [" . FIUMAP->{'FIU_DRIVER_PATH'}->{'ini_name'} . "]", -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 # Menu to select the fault model implemented by this FIU
my $model_menu = $fr_fiu->Optionmenu( my $model_menu = $fr_fiu->Optionmenu(
...@@ -1879,7 +1880,7 @@ sub _indicate_warning ($$) { ...@@ -1879,7 +1880,7 @@ sub _indicate_warning ($$) {
# Work around: store the entry background color at creation time and # Work around: store the entry background color at creation time and
# use that instead. # use that instead.
my $bg_color = ($widget->cget("-state") ne "readonly") ? $widget_background : $widget_ro_background; 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}; delete $self->{'highlit_widgets'}->{$displaygroup}->{$name} if defined $self->{'highlit_widgets'}->{$displaygroup}->{$name};
} }
......
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