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