… | |
… | |
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) >= $lbl; |
444 | my $res = $ar->get ($key) eq $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 | |