| 1 | package DC::UI::ChatView; |
1 | package DC::UI::ChatView; |
| 2 | use Deliantra::Protocol::Constants; |
2 | |
| 3 | use strict; |
3 | use strict; |
| 4 | use utf8; |
4 | use utf8; |
|
|
5 | |
|
|
6 | use Deliantra::Protocol::Constants; |
| 5 | |
7 | |
| 6 | our @ISA = DC::UI::Dockable::; |
8 | our @ISA = DC::UI::Dockable::; |
| 7 | |
9 | |
| 8 | sub new { |
10 | sub new { |
| 9 | my $class = shift; |
11 | my $class = shift; |
| … | |
… | |
| 171 | my ($self, $size) = @_; |
173 | my ($self, $size) = @_; |
| 172 | $self->{txt}->set_fontsize ($size); |
174 | $self->{txt}->set_fontsize ($size); |
| 173 | } |
175 | } |
| 174 | |
176 | |
| 175 | # sets the maximum of paragraphs shown |
177 | # sets the maximum of paragraphs shown |
| 176 | sub set_max_para { |
178 | sub set_max_par { |
| 177 | my ($self, $max_par) = @_; |
179 | my ($self, $max_par) = @_; |
| 178 | $self->{txt}{max_par} = $max_par; |
180 | $self->{txt}{max_par} = $max_par; |
| 179 | } |
181 | } |
| 180 | |
182 | |
| 181 | # clears the text log |
183 | # clears the text log |
