--- deliantra/Deliantra-Client/DC/MessageDistributor.pm	2008/01/06 16:28:49	1.1
+++ 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       =>
-               "<b>Server Log</b>. This text viewer contains all recent message sent by the server.",
-            entry_tooltip =>
-               "<b>Command Entry</b>. If you enter something and press return/enter here, "
-               ."the line you entered will be sent to the server as a command.",
-            reply => ''
+            tooltip       => "<b>Server Log</b>. This text viewer contains all recent message sent by the server.",
+            entry_tooltip => "<b>Command Entry</b>. 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,11 +43,20 @@
 }
 
 # 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
+# set fontsize for all chatviews
 sub set_fontsize {
+   my ($self, $s) = @_;
+
+   for ($self->{log}, values %{$self->{chatview}}) {
+      $_->set_fontsize ($s);
+   }
 }
 
 # push message in
@@ -86,6 +97,7 @@
 
 sub update_chat {
    my ($self, $id) = @_;
+
    $self->{chatview}->{$id}->update_info ($self->{info}->{$id});
 }