… | |
… | |
268 | sub refresh { |
268 | sub refresh { |
269 | my ($self) = @_; |
269 | my ($self) = @_; |
270 | |
270 | |
271 | $self->clear; |
271 | $self->clear; |
272 | |
272 | |
273 | my $arrow = $self->{visible} ? "⇧" : "⇩"; |
273 | my $arrow = $self->{visible} ? "⊟" : "⊞"; |
274 | |
274 | |
275 | $self->{buffer}->insert ($self->riter, "\n"); |
275 | $self->{buffer}->insert ($self->riter, "\n"); |
276 | $self->{buffer}->insert_with_tags ($self->riter, util::xmlto "$arrow $self->{header}", $self->{tag}); |
276 | $self->{buffer}->insert_with_tags ($self->riter, util::xmlto "$arrow $self->{header}", $self->{tag}); |
277 | |
277 | |
278 | return unless $self->{visible}; |
278 | return unless $self->{visible}; |