… | |
… | |
28 | return $self |
28 | return $self |
29 | } |
29 | } |
30 | |
30 | |
31 | # called by MAPWIDGET activate console event |
31 | # called by MAPWIDGET activate console event |
32 | sub activate_console { |
32 | sub activate_console { |
|
|
33 | # nop |
33 | } |
34 | } |
34 | |
35 | |
35 | # adding channel |
36 | # adding channel |
36 | sub add_channel { |
37 | sub add_channel { |
37 | my ($self, $chaninfo) = @_; |
38 | my ($self, $chaninfo) = @_; |
… | |
… | |
39 | $self->{info}->{$chaninfo->{id}} = $chaninfo; |
40 | $self->{info}->{$chaninfo->{id}} = $chaninfo; |
40 | $self->touch_channel ($chaninfo->{id}); |
41 | $self->touch_channel ($chaninfo->{id}); |
41 | } |
42 | } |
42 | |
43 | |
43 | # set max paragraphs |
44 | # set max paragraphs |
44 | sub set_max_para { |
45 | sub set_max_par { |
|
|
46 | my ($self, $par) = @_; |
|
|
47 | for ($self->{log}, values %{$self->{chatview}}) { |
|
|
48 | $_->set_max_par ($par); |
|
|
49 | } |
45 | } |
50 | } |
46 | |
51 | |
47 | # set fontsize for all chatviews |
52 | # set fontsize for all chatviews |
48 | sub set_fontsize { |
53 | sub set_fontsize { |
49 | my ($self, $s) = @_; |
54 | my ($self, $s) = @_; |