--- deliantra/Deliantra-Client/DC/MessageDistributor.pm 2008/01/13 12:42:03 1.2
+++ deliantra/Deliantra-Client/DC/MessageDistributor.pm 2010/04/03 02:58:25 1.8
@@ -1,6 +1,6 @@
package DC::MessageDistributor;
-use strict;
-no warnings;
+
+use common::sense;
sub new {
my $this = shift;
@@ -14,22 +14,24 @@
can_close => 0,
can_undock => 0,
info => {
+ id => "",
title => "Log",
- tooltip =>
- "Server Log. This text viewer contains all recent message sent by the server.",
- entry_tooltip =>
- "Command Entry. If you enter something and press return/enter here, "
- ."the line you entered will be sent to the server as a command.",
- reply => ''
+ tooltip => "Server Log. This text viewer contains all recent message sent by the server.",
+ entry_tooltip => "Command Entry. If you enter something and press return/enter here, "
+ . "the line you entered will be sent to the server as a command.",
+ reply => ''
}
)
);
+ $self->{dockbar}->select_dockable ($self->{log});
+
return $self
}
# called by MAPWIDGET activate console event
sub activate_console {
+ # nop
}
# adding channel
@@ -41,7 +43,11 @@
}
# set max paragraphs
-sub set_max_para {
+sub set_max_par {
+ my ($self, $par) = @_;
+ for ($self->{log}, values %{$self->{chatview}}) {
+ $_->set_max_par ($par);
+ }
}
# set fontsize for all chatviews
@@ -91,6 +97,7 @@
sub update_chat {
my ($self, $id) = @_;
+
$self->{chatview}->{$id}->update_info ($self->{info}->{$id});
}