| … | |
… | |
| 2600 | $self->check_size; |
2600 | $self->check_size; |
| 2601 | } |
2601 | } |
| 2602 | |
2602 | |
| 2603 | sub set_items { |
2603 | sub set_items { |
| 2604 | my ($self, $items) = @_; |
2604 | my ($self, $items) = @_; |
| 2605 | my @items = values %{$items}; |
|
|
| 2606 | @items = sort { $a->{type} <=> $b->{type} } @items; |
2605 | my @items = sort { $a->{type} <=> $b->{type} } @$items; |
| 2607 | |
2606 | |
| 2608 | $self->{real_items} = \@items; |
2607 | $self->{real_items} = \@items; |
| 2609 | |
2608 | |
| 2610 | for my $item (@items) { |
2609 | for my $item (@items) { |
| 2611 | my $desc = $item->{nrof} < 2 |
2610 | my $desc = $item->{nrof} < 2 |
| … | |
… | |
| 2614 | |
2613 | |
| 2615 | $self->add (my $hb = new CFClient::UI::HBox); |
2614 | $self->add (my $hb = new CFClient::UI::HBox); |
| 2616 | |
2615 | |
| 2617 | $hb->add (my $f = new CFClient::UI::Face |
2616 | $hb->add (my $f = new CFClient::UI::Face |
| 2618 | can_events => 0, |
2617 | can_events => 0, |
| 2619 | face => $item->{face}, |
2618 | face => $item->{face}, |
| 2620 | anim => $item->{anim}, |
2619 | anim => $item->{anim}, |
| 2621 | animspeed => $item->{animspeed}, |
2620 | animspeed => $item->{animspeed}, |
| 2622 | expand => 1 |
2621 | expand => 1, |
| 2623 | ); |
2622 | ); |
| 2624 | $hb->add (new CFClient::UI::Label text => $desc, expand => 1); |
2623 | $hb->add (new CFClient::UI::Label text => $desc, expand => 1); |
| 2625 | } |
2624 | } |
| 2626 | |
2625 | |
| 2627 | $self->{max_pos} = (scalar @items) - 1; |
2626 | $self->{max_pos} = (scalar @items) - 1; |
| 2628 | |
2627 | |
| 2629 | my $range = $self->{range}; |
2628 | my $range = $self->{range}; |
| 2630 | my $page = $self->{h} / 32; # waht information souce to use for face size? |
2629 | my $page = $self->{h} / 32; # what information source to use for face size? |
| 2631 | # it should be configurable i guess... |
2630 | # it should be configurable I guess... |
| 2632 | $range->{range} = [$self->{pos}, 0, $self->{max_pos}, $page]; |
2631 | $range->{range} = [$self->{pos}, 0, $self->{max_pos}, $page]; |
| 2633 | $range->update; |
2632 | $range->update; |
| 2634 | } |
2633 | } |
| 2635 | |
2634 | |
| 2636 | sub size_request { |
2635 | sub size_request { |
| … | |
… | |
| 2668 | my $chld = $self->{children}->[$i]; |
2667 | my $chld = $self->{children}->[$i]; |
| 2669 | |
2668 | |
| 2670 | if ($hrem >= $chld->{h}) { |
2669 | if ($hrem >= $chld->{h}) { |
| 2671 | $chld->configure (0, $y, $chld->{w}, $chld->{h}); |
2670 | $chld->configure (0, $y, $chld->{w}, $chld->{h}); |
| 2672 | |
2671 | |
| 2673 | $chld->show; |
|
|
| 2674 | $chld->draw; |
2672 | $chld->draw; |
| 2675 | |
2673 | |
| 2676 | $hrem -= $chld->{h}; |
2674 | $hrem -= $chld->{h}; |
| 2677 | $y += $chld->{h}; |
2675 | $y += $chld->{h}; |
| 2678 | } else { |
2676 | } else { |
