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