DC/UI/Inventory.pm

package CFPlus::UI::Inventory;

use strict;
use utf8;

use CFPlus::Macro;
use CFPlus::Item;

our @ISA = CFPlus::UI::Table::;

sub new {
   my $class = shift;

   my $self = $class->SUPER::new (
      col_expand => [0, 1, 0],
      items      => [],
      @_,
   );

   $self->set_sort_order (undef);

   $self
}

sub update_items {
   my ($self) = @_;

   $self->clear;

   my @item = $self->{sort}->(@{ $self->{items} });

   my @adds;
   my $row = 0;
   for my $item ($self->{sort}->(@{ $self->{items} })) {
      CFPlus::Item::update_widgets $item;

      push @adds, 0, $row, $item->{face_widget};
      push @adds, 1, $row, $item->{desc_widget};
      push @adds, 2, $row, $item->{weight_widget};

      $row++;
   }

   $self->add (@adds);
}

sub set_sort_order {
   my ($self, $order) = @_;

   $self->{sort} = $order ||= sub {
      sort {
         $a->{type} <=> $b->{type}
            or $a->{name} cmp $b->{name}
      } @_
   };

   $self->update_items;
}

sub set_items {
   my ($self, $items) = @_;

   $self->{items} = [$items ? values %$items : ()];
   $self->update_items;
}

Revision:	1.1
Committed:	Sat Dec 9 02:21:25 2006 UTC (17 years, 6 months ago) by root
Branch:	MAIN
CVS Tags:	rel-0_97, rel-0_98
Log Message:	- slightly cleaned up and "outsourced" components - completely rewrote keybind bindings - not functional yet - buggy a shell - hits perlbug
#	User	Rev	Content
1	root	1.1	package CFPlus::UI::Inventory;
2
3			use strict;
4			use utf8;
5
6			use CFPlus::Macro;
7			use CFPlus::Item;
8
9			our @ISA = CFPlus::UI::Table::;
10
11			sub new {
12			my $class = shift;
13
14			my $self = $class->SUPER::new (
15			col_expand => [0, 1, 0],
16			items => [],
17			@_,
18			);
19
20			$self->set_sort_order (undef);
21
22			$self
23			}
24
25			sub update_items {
26			my ($self) = @_;
27
28			$self->clear;
29
30			my @item = $self->{sort}->(@{ $self->{items} });
31
32			my @adds;
33			my $row = 0;
34			for my $item ($self->{sort}->(@{ $self->{items} })) {
35			CFPlus::Item::update_widgets $item;
36
37			push @adds, 0, $row, $item->{face_widget};
38			push @adds, 1, $row, $item->{desc_widget};
39			push @adds, 2, $row, $item->{weight_widget};
40
41			$row++;
42			}
43
44			$self->add (@adds);
45			}
46
47			sub set_sort_order {
48			my ($self, $order) = @_;
49
50			$self->{sort} = $order \|\|= sub {
51			sort {
52			$a->{type} <=> $b->{type}
53			or $a->{name} cmp $b->{name}
54			} @_
55			};
56
57			$self->update_items;
58			}
59
60			sub set_items {
61			my ($self, $items) = @_;
62
63			$self->{items} = [$items ? values %$items : ()];
64			$self->update_items;
65			}
66