| … | |
… | |
| 1676 | |
1676 | |
| 1677 | delete $self->{cur_h}; |
1677 | delete $self->{cur_h}; |
| 1678 | |
1678 | |
| 1679 | return if $self->{text} eq $text; |
1679 | return if $self->{text} eq $text; |
| 1680 | |
1680 | |
| 1681 | delete $self->{texture}; |
|
|
| 1682 | |
|
|
| 1683 | $self->{last_activity} = $::NOW; |
1681 | $self->{last_activity} = $::NOW; |
| 1684 | $self->{text} = $text; |
1682 | $self->{text} = $text; |
| 1685 | |
1683 | |
| 1686 | $text =~ s/./*/g if $self->{hidden}; |
1684 | $text =~ s/./*/g if $self->{hidden}; |
| 1687 | $self->{layout}->set_text ("$text "); |
1685 | $self->{layout}->set_text ("$text "); |
| 1688 | |
1686 | |
| 1689 | $self->_emit (changed => $self->{text}); |
1687 | $self->_emit (changed => $self->{text}); |
|
|
1688 | $self->update; |
| 1690 | } |
1689 | } |
| 1691 | |
1690 | |
| 1692 | sub set_text { |
1691 | sub set_text { |
| 1693 | my ($self, $text) = @_; |
1692 | my ($self, $text) = @_; |
| 1694 | |
1693 | |
