| … | |
… | |
| 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 |
52 | # set fontsize for all chatviews |
| 48 | sub set_fontsize { |
53 | sub set_fontsize { |
|
|
54 | my ($self, $s) = @_; |
|
|
55 | |
|
|
56 | for ($self->{log}, values %{$self->{chatview}}) { |
|
|
57 | $_->set_fontsize ($s); |
|
|
58 | } |
| 49 | } |
59 | } |
| 50 | |
60 | |
| 51 | # push message in |
61 | # push message in |
| 52 | sub message { |
62 | sub message { |
| 53 | my ($self, $para) = @_; |
63 | my ($self, $para) = @_; |
