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.462 by root, Thu Mar 20 22:28:33 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 }
4568 4581
4569############################################################################# 4582#############################################################################
4570 4583
4571package DC::UI; 4584package DC::UI;
4572 4585
4573$ROOT = new DC::UI::Root; 4586$ROOT = new DC::UI::Root;
4574$TOOLTIP = new DC::UI::Tooltip z => 900; 4587$TOOLTIP = new DC::UI::Tooltip z => 900;
4575 4588
45761 45891
4577 4590

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines