--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/24 08:38:36	1.166
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/24 11:45:17	1.170
@@ -249,6 +249,9 @@
 sub _topleft {
    my ($self, $x, $y) = @_;
 
+   $self->{parent}
+      or Carp::confess "no parent widget in _topleft\n";#d#
+
    $self->{parent}->_topleft ($x + $self->{x}, $y + $self->{y});
 }
 
@@ -1468,9 +1471,35 @@
    my $sym = $ev->{sym};
 
    if ($sym == 13) {
-      $self->emit (activate => $self->get_text);
+      unshift @{$self->{history}},
+         my $txt = $self->get_text;
+      $self->{history_pointer} = -1;
+      $self->{history_saveback} = '';
+      $self->emit (activate => $txt);
       $self->update;
 
+   } elsif ($sym == CFClient::SDLK_UP) {
+      if ($self->{history_pointer} < 0) {
+         $self->{history_saveback} = $self->get_text;
+      }
+      if (@{$self->{history} || []} > 0) {
+         $self->{history_pointer}++;
+         if ($self->{history_pointer} >= @{$self->{history} || []}) {
+            $self->{history_pointer} = @{$self->{history} || []} - 1;
+         }
+         $self->set_text ($self->{history}->[$self->{history_pointer}]);
+      }
+
+   } elsif ($sym == CFClient::SDLK_DOWN) {
+      $self->{history_pointer}--;
+      $self->{history_pointer} = -1 if $self->{history_pointer} < 0;
+
+      if ($self->{history_pointer} >= 0) {
+         $self->set_text ($self->{history}->[$self->{history_pointer}]);
+      } else {
+         $self->set_text ($self->{history_saveback});
+      }
+
    } else {
       $self->SUPER::key_down ($ev);
    }