| … | |
… | |
| 439 | for (@lblbtns) { |
439 | for (@lblbtns) { |
| 440 | my $btn = $_->[0]; |
440 | my $btn = $_->[0]; |
| 441 | my $lbl = $_->[1]; |
441 | my $lbl = $_->[1]; |
| 442 | |
442 | |
| 443 | if (defined $ar->get ($key)) { |
443 | if (defined $ar->get ($key)) { |
| 444 | my $res = $ar->get ($key) eq $lbl; |
444 | my $res = $ar->get ($key) <= $lbl; |
| 445 | |
445 | |
| 446 | if (defined $res) { |
446 | if (defined $res) { |
| 447 | $self->label_set_color ($btn, 0); |
447 | $self->label_set_color ($btn, 0); |
| 448 | $lbl = ($res ? "+" : "-") . $lbl; |
448 | $lbl = ($res ? "+" : "-") . $lbl; |
| 449 | |
449 | |
