| 1 | package CFPlus::UI::Inventory; |
1 | package DC::UI::Inventory; |
| 2 | |
2 | |
| 3 | use strict; |
3 | use strict; |
| 4 | use utf8; |
4 | use utf8; |
| 5 | |
5 | |
| 6 | use CFPlus::Macro; |
6 | use DC::Macro; |
| 7 | use CFPlus::Item; |
7 | use DC::Item; |
| 8 | |
8 | |
| 9 | our @ISA = CFPlus::UI::Table::; |
9 | our @ISA = DC::UI::Table::; |
| 10 | |
10 | |
| 11 | sub new { |
11 | sub new { |
| 12 | my $class = shift; |
12 | my $class = shift; |
| 13 | |
13 | |
| 14 | my $self = $class->SUPER::new ( |
14 | my $self = $class->SUPER::new ( |
| … | |
… | |
| 30 | my @item = $self->{sort}->(@{ $self->{items} }); |
30 | my @item = $self->{sort}->(@{ $self->{items} }); |
| 31 | |
31 | |
| 32 | my @adds; |
32 | my @adds; |
| 33 | my $row = 0; |
33 | my $row = 0; |
| 34 | for my $item ($self->{sort}->(@{ $self->{items} })) { |
34 | for my $item ($self->{sort}->(@{ $self->{items} })) { |
| 35 | CFPlus::Item::update_widgets $item; |
35 | DC::Item::update_widgets $item; |
| 36 | |
36 | |
| 37 | push @adds, 0, $row, $item->{face_widget}; |
37 | push @adds, 0, $row, $item->{face_widget}; |
| 38 | push @adds, 1, $row, $item->{desc_widget}; |
38 | push @adds, 1, $row, $item->{desc_widget}; |
| 39 | push @adds, 2, $row, $item->{weight_widget}; |
39 | push @adds, 2, $row, $item->{weight_widget}; |
| 40 | |
40 | |
| 41 | $row++; |
41 | $row++; |
| 42 | } |
42 | } |
| 43 | |
43 | |
| 44 | $self->add (@adds); |
44 | $self->add_at (@adds); |
| 45 | } |
45 | } |
| 46 | |
46 | |
| 47 | sub set_sort_order { |
47 | sub set_sort_order { |
| 48 | my ($self, $order) = @_; |
48 | my ($self, $order) = @_; |
| 49 | |
49 | |
