… | |
… | |
4125 | } |
4125 | } |
4126 | |
4126 | |
4127 | sub _set_value { |
4127 | sub _set_value { |
4128 | my ($self, $value) = @_; |
4128 | my ($self, $value) = @_; |
4129 | |
4129 | |
4130 | my ($item) = grep $_->[0] eq $value, @{ $self->{options} } |
4130 | my ($item) = grep $_->[0] eq $value, @{ $self->{options} }; |
|
|
4131 | $item ||= $self->{options}[0] |
4131 | or return; |
4132 | or return; |
4132 | |
4133 | |
4133 | $self->{value} = $item->[0]; |
4134 | $self->{value} = $item->[0]; |
4134 | $self->set_markup ("$item->[1] ⇓"); |
4135 | $self->set_markup ("$item->[1] ⇓"); |
4135 | $self->set_tooltip ($item->[2]); |
4136 | $self->set_tooltip ($item->[2]); |
… | |
… | |
4140 | |
4141 | |
4141 | return unless $self->{value} ne $value; |
4142 | return unless $self->{value} ne $value; |
4142 | |
4143 | |
4143 | $self->_set_value ($value); |
4144 | $self->_set_value ($value); |
4144 | $self->emit (changed => $value); |
4145 | $self->emit (changed => $value); |
|
|
4146 | } |
|
|
4147 | |
|
|
4148 | sub set_options { |
|
|
4149 | my ($self, $options) = @_; |
|
|
4150 | |
|
|
4151 | $self->{options} = $options; |
|
|
4152 | $self->_set_value ($self->{value}); |
4145 | } |
4153 | } |
4146 | |
4154 | |
4147 | ############################################################################# |
4155 | ############################################################################# |
4148 | |
4156 | |
4149 | package CFPlus::UI::Statusbox; |
4157 | package CFPlus::UI::Statusbox; |