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 |