| 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 | |
