ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/UI.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.460 by elmex, Sun Jan 6 16:28:49 2008 UTC vs.
Revision 1.461 by elmex, Mon Jan 28 12:05:08 2008 UTC

2291 2291
2292our @ISA = DC::UI::EntryBase::; 2292our @ISA = DC::UI::EntryBase::;
2293 2293
2294use DC::OpenGL; 2294use DC::OpenGL;
2295 2295
2296sub new {
2297 my $class = shift;
2298
2299 $class->SUPER::new (
2300 history_pointer => -1,
2301 @_
2302 )
2303}
2304
2305
2296sub invoke_key_down { 2306sub invoke_key_down {
2297 my ($self, $ev) = @_; 2307 my ($self, $ev) = @_;
2298 2308
2299 my $sym = $ev->{sym}; 2309 my $sym = $ev->{sym};
2300 2310
2324 $self->{history_pointer} = -1 if $self->{history_pointer} < 0; 2334 $self->{history_pointer} = -1 if $self->{history_pointer} < 0;
2325 2335
2326 if ($self->{history_pointer} >= 0) { 2336 if ($self->{history_pointer} >= 0) {
2327 $self->set_text ($self->{history}->[$self->{history_pointer}]); 2337 $self->set_text ($self->{history}->[$self->{history_pointer}]);
2328 } else { 2338 } else {
2339 if (defined $self->{history_saveback}) {
2329 $self->set_text ($self->{history_saveback}); 2340 $self->set_text ($self->{history_saveback});
2341 $self->{history_saveback} = undef;
2342 }
2330 } 2343 }
2331 2344
2332 } else { 2345 } else {
2333 return $self->SUPER::invoke_key_down ($ev) 2346 return $self->SUPER::invoke_key_down ($ev)
2334 } 2347 }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines