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

Comparing deliantra/Deliantra-Client/DC/UI/ChatView.pm (file contents):
Revision 1.9 by elmex, Fri Aug 31 08:15:45 2007 UTC vs.
Revision 1.10 by root, Sat Sep 1 07:22:21 2007 UTC

 package CFPlus::UI::ChatView;
 use strict;
 use utf8;
-our @ISA = CFPlus::UI::VBox::;
+our @ISA = CFPlus::UI::Dockable::;
 sub new {
    my $class = shift;
-   my $self = $class->SUPER::new (@_);
+   my $self = $class->SUPER::new (
+      @_,
+      can_close => 1,
+      child     => (my $vbox = new CFPlus::UI::VBox),
+   );
-   $self->add ($self->{txt} = new CFPlus::UI::TextScroller (
+   $vbox->add ($self->{txt} = new CFPlus::UI::TextScroller (
       expand     => 1,
       font       => $::FONT_FIXED,
       fontsize   => $::CFG->{log_fontsize},
       indent     => -4,
       can_hover  => 1,
          $self->{text_tooltip}
          || "<b>Server Log</b>. This text viewer contains all recent messages "
            ."sent by the server.",
    ));
-   $self->add (my $hb = CFPlus::UI::HBox->new);
+   $vbox->add (my $hb = CFPlus::UI::HBox->new);
    if ($self->{say_command}) {
       $hb->add (CFPlus::UI::Label->new (markup => $self->{say_command}));
    }
    $hb->add ($self->{input} = CFPlus::UI::Entry->new (
       expand  => 1,
       tooltip =>
           $self->{entry_tooltip}
           || "<b>Command Entry</b>. If you enter something and press return/enter here, "
 sub set_max_para {
    my ($self, $max_par) = @_;
    $self->{txt}{max_par} = $max_par;
 }
-sub clear {
+sub clear_log {
    my ($self) = @_;
    $self->{txt}->clear;
 }
+1

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