| … | |
… | |
| 1480 | my $sym = $ev->{sym}; |
1480 | my $sym = $ev->{sym}; |
| 1481 | my $uni = $ev->{unicode}; |
1481 | my $uni = $ev->{unicode}; |
| 1482 | |
1482 | |
| 1483 | my $text = $self->get_text; |
1483 | my $text = $self->get_text; |
| 1484 | |
1484 | |
| 1485 | if ($sym == 8) { |
1485 | if ($uni == 8) { |
| 1486 | substr $text, --$self->{cursor}, 1, "" if $self->{cursor}; |
1486 | substr $text, --$self->{cursor}, 1, "" if $self->{cursor}; |
| 1487 | } elsif ($sym == 127) { |
1487 | } elsif ($uni == 127) { |
| 1488 | substr $text, $self->{cursor}, 1, ""; |
1488 | substr $text, $self->{cursor}, 1, ""; |
| 1489 | } elsif ($sym == CFClient::SDLK_LEFT) { |
1489 | } elsif ($sym == CFClient::SDLK_LEFT) { |
| 1490 | --$self->{cursor} if $self->{cursor}; |
1490 | --$self->{cursor} if $self->{cursor}; |
| 1491 | } elsif ($sym == CFClient::SDLK_RIGHT) { |
1491 | } elsif ($sym == CFClient::SDLK_RIGHT) { |
| 1492 | ++$self->{cursor} if $self->{cursor} < length $self->{text}; |
1492 | ++$self->{cursor} if $self->{cursor} < length $self->{text}; |
| 1493 | } elsif ($sym == CFClient::SDLK_HOME) { |
1493 | } elsif ($sym == CFClient::SDLK_HOME) { |
| 1494 | $self->{cursor} = 0; |
1494 | $self->{cursor} = 0; |
| 1495 | } elsif ($sym == CFClient::SDLK_END) { |
1495 | } elsif ($sym == CFClient::SDLK_END) { |
| 1496 | $self->{cursor} = length $text; |
1496 | $self->{cursor} = length $text; |
| 1497 | } elsif ($sym == 27) { |
1497 | } elsif ($uni == 27) { |
| 1498 | $self->emit ('escape'); |
1498 | $self->emit ('escape'); |
| 1499 | } elsif ($uni) { |
1499 | } elsif ($uni) { |
| 1500 | substr $text, $self->{cursor}++, 0, chr $uni; |
1500 | substr $text, $self->{cursor}++, 0, chr $uni; |
| 1501 | } |
1501 | } |
| 1502 | |
1502 | |
| … | |
… | |
| 2538 | my ($self, $items) = @_; |
2538 | my ($self, $items) = @_; |
| 2539 | |
2539 | |
| 2540 | $self->{scrolled}->clear; |
2540 | $self->{scrolled}->clear; |
| 2541 | return unless $items; |
2541 | return unless $items; |
| 2542 | |
2542 | |
| 2543 | my @items = sort { $a->{type} <=> $b->{type} } @$items; |
2543 | my @items = sort { |
|
|
2544 | ($a->{type} <=> $b->{type}) |
|
|
2545 | or ($a->{name} cmp $b->{name}) |
|
|
2546 | } @$items; |
| 2544 | |
2547 | |
| 2545 | $self->{real_items} = \@items; |
2548 | $self->{real_items} = \@items; |
| 2546 | |
2549 | |
| 2547 | for my $item (@items) { |
2550 | for my $item (@items) { |
| 2548 | my $desc = $item->{nrof} < 2 |
2551 | my $desc = $item->{nrof} < 2 |
| 2549 | ? $item->{name} |
2552 | ? $item->{name} |
| 2550 | : "$item->{nrof} $item->{name_pl}"; |
2553 | : "$item->{nrof} $item->{name_pl}"; |
| 2551 | |
2554 | |
| 2552 | $self->{scrolled}->add ($item->{widget} ||= new CFClient::UI::InventoryItem item => $item); |
2555 | $item = $item->{widget} ||= new CFClient::UI::InventoryItem item => $item; |
| 2553 | } |
2556 | } |
|
|
2557 | |
|
|
2558 | $self->{scrolled}->add (@items); |
| 2554 | |
2559 | |
| 2555 | # $range->{range} = [$self->{pos}, 0, $self->{max_pos}, $page]; |
2560 | # $range->{range} = [$self->{pos}, 0, $self->{max_pos}, $page]; |
| 2556 | } |
2561 | } |
| 2557 | |
2562 | |
| 2558 | sub size_request { |
2563 | sub size_request { |
