From 3e3f3ea4f326a388793be3afdc02cdff4a1b9b91 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 13 Feb 2004 10:54:12 +0000 Subject: do not force black color for fields values, this badly conflict with inverted accessibility themes --- perl-install/standalone/harddrake2 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index c1c8ce654..a825c1a78 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -210,7 +210,7 @@ $tree->get_selection->signal_connect('changed' => sub { $current_device->{$_} =~ /^(Unknown)/ ? N("Unknown") : $current_device->{$_} eq 'yes' ? N("Yes") : $current_device->{$_} eq 'no' ? N("No") : - $current_device->{$_}) . "\n\n", { 'foreground' => ($_ eq 'driver' && $current_device->{$_} =~ /^unknown|^Bad:/ ? 'indian red' : 'black') } ]) + $current_device->{$_}) . "\n\n", if_($_ eq 'driver' && $current_device->{$_} =~ /^unknown|^Bad:/, { foreground => 'indian red' }) ]) } sort keys %$current_device ]); foreach (keys %$current_device) { -- cgit v1.2.1