1 | package dc::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 dc::Macro; |
6 | use DC::Macro; |
7 | use dc::Item; |
7 | use DC::Item; |
8 | |
8 | |
9 | our @ISA = dc::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 | dc::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 | |