--- deliantra/Deliantra-Client/DC/MessageDistributor.pm	2008/03/20 22:28:33	1.3
+++ 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,17 +14,18 @@
          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
 }
 
@@ -43,7 +44,10 @@
 
 # set max paragraphs
 sub set_max_par {
-   # nop
+   my ($self, $par) = @_;
+   for ($self->{log}, values %{$self->{chatview}}) {
+      $_->set_max_par ($par);
+   }
 }
 
 # set fontsize for all chatviews
@@ -93,6 +97,7 @@
 
 sub update_chat {
    my ($self, $id) = @_;
+
    $self->{chatview}->{$id}->update_info ($self->{info}->{$id});
 }