[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/UI/MessageWindow.pm

Comparing deliantra/Deliantra-Client/DC/UI/MessageWindow.pm (file contents):
Revision 1.5 by elmex, Tue Jul 24 21:23:47 2007 UTC vs.
Revision 1.6 by elmex, Wed Jul 25 15:06:21 2007 UTC

    my $chatviews = $self->{chatviews};
    my $chaninfo  = $self->{channel_info}->{$id};
    my $nb        = $self->{nb};
-   my $cv = $chatviews->{$id} = CFPlus::UI::ChatView->new (expand => 1, say_command => $chaninfo->{reply});
+   my $cv = $chatviews->{$id} =
-   my $bb = CFPlus::UI::ButtonBin->new;
+      CFPlus::UI::ChatView->new (
+         expand        => 1,
+         say_command   => $chaninfo->{reply},
+         entry_tooltip => $chaninfo->{tooltip},
+         text_tooltip  => "Conversation with $chaninfo->{title}"
+      );
+   my $bb = CFPlus::UI::ButtonBin->new (tooltip => $chaninfo->{tooltip});
    $cv->{c_tab} = $bb;
    $bb->add (my $vb = CFPlus::UI::Box->new);
    $bb->connect (activate => sub { $self->unhighlight_channel ($id); 0 });
    $vb->add (
    $tab->set_markup ($self->{channel_info}->{$id}->{title});
 }
 sub add_channel {
    my ($self, $info) = @_;
+   require Data::Dumper;
+   print "DUMPER:" . Data::Dumper->Dump ([$info]) . "\n";
    $self->{channel_info}->{$info->{id}} = $info;
    $self->touch_channel ($info->{id});
-}
-sub clear_channels {
-   my ($self) = @_;
-   # remove channel tabs here
-   $self->{channel_info} = {};
 }
 sub message {
    my ($self, $para) = @_;
    my $id = $para->{type};

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines