| … | |
… | |
| 33 | if (ref $value) { |
33 | if (ref $value) { |
| 34 | $arch->{$key} = $value; |
34 | $arch->{$key} = $value; |
| 35 | |
35 | |
| 36 | } else { |
36 | } else { |
| 37 | if (not defined $al_arch->{$key}) { |
37 | if (not defined $al_arch->{$key}) { |
| 38 | if (not defined $value) { |
38 | if (not $value) { |
| 39 | # try to normalize |
39 | # try to normalize |
| 40 | delete $arch->{$key}; |
40 | delete $arch->{$key}; |
| 41 | } else { |
41 | } else { |
| 42 | # try to normalize |
42 | # try to normalize |
| 43 | $arch->{$key} = $value; |
43 | $arch->{$key} = $value; |
| … | |
… | |
| 160 | |
160 | |
| 161 | # my $fgcolor = $lbl->get_default_style-> Gtk2::Gdk::Color->parse ("lightblue"); |
161 | # my $fgcolor = $lbl->get_default_style-> Gtk2::Gdk::Color->parse ("lightblue"); |
| 162 | # my $fgcolor2 = Gtk2::Gdk::Color->parse ("black");#grey"); |
162 | # my $fgcolor2 = Gtk2::Gdk::Color->parse ("black");#grey"); |
| 163 | |
163 | |
| 164 | if ( (defined $al_arch->{$key} and $al_arch->{$key} ne $val) |
164 | if ( (defined $al_arch->{$key} and $al_arch->{$key} ne $val) |
| 165 | or (not (defined $al_arch->{$key}) and defined $val)) |
165 | or (not (defined $al_arch->{$key}) and $val)) |
| 166 | { |
166 | { |
| 167 | for (qw/normal active prelight selected insensitive/) { |
167 | for (qw/normal active prelight selected insensitive/) { |
| 168 | $lbl->modify_bg ($_, $lbl->get_default_style->bg ('active')); |
168 | $lbl->modify_bg ($_, $lbl->get_default_style->bg ('active')); |
| 169 | $lbl->modify_fg ($_, $lbl->get_default_style->fg ('active')); |
169 | $lbl->modify_fg ($_, $lbl->get_default_style->fg ('active')); |
| 170 | } |
170 | } |
