ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/UI.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.179 by elmex, Fri Apr 28 05:17:21 2006 UTC vs.
Revision 1.180 by root, Fri Apr 28 18:06:12 2006 UTC

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
2636sub size_request { 2636sub 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 {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines