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

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.7 by root, Sat May 27 20:46:54 2006 UTC vs.
Revision 1.9 by elmex, Mon May 29 19:30:28 2006 UTC

 }
 sub user_send {
    my ($self, $command) = @_;
+   if ($self->{record}) {
+      push @{$self->{record}}, $command;
+   }
    $self->send_command ($command);
    ::status $command;
+}
+sub start_record {
+   my ($self) = @_;
+   $self->{record} = [];
+}
+sub stop_record {
+   my ($self) = @_;
+   return delete $self->{record};
 }
 sub map_scroll {
    my ($self, $dx, $dy) = @_;
    $prompt = $LAST_QUERY unless length $prompt;
    $LAST_QUERY = $prompt;
    my $dialog = new CFClient::UI::FancyFrame
       title => "Query",
-      child => my $vbox = new CFClient::UI::VBox;
+      child => my $vbox = new CFClient::UI::VBox,
+      on_visibility_change => sub {
+         my ($self, $visible) = @_;
+         $self->center if $visible;
+      },
+   ;
    $vbox->add (new CFClient::UI::Label
       max_w => $::WIDTH * 0.4,
       ellipsise => 0,
       text => $prompt);
       );
       $entry->focus_in;
    }
-   $dialog->show_centered;
+   $dialog->show;
 }
 sub drawinfo {
    my ($self, $color, $text) = @_;

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