[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/UI.pm

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.237 by root, Thu May 25 21:36:45 2006 UTC vs.
Revision 1.240 by root, Fri May 26 18:28:23 2006 UTC

 use Scalar::Util ();
 use List::Util ();
 use CFClient;
+use CFClient::Texture;
 our ($FOCUS, $HOVER, $GRAB); # various widgets
 our $ROOT;
 our $TOOLTIP;
    $self->add ($self->{slider});
    $self
 }
+sub update {
+   my ($self) = @_;
+   $self->SUPER::update;
+   # todo: overwrite size_allocate of child
+   my $child = $self->{vp}->child;
+   $self->{slider}->set_range ([$self->{slider}{range}[0], 0, $child->{h}, $self->{vp}{h}, 1]);
+}
 sub size_allocate {
    my ($self, $w, $h) = @_;
    $self->SUPER::size_allocate ($w, $h);
 sub size_allocate {
    my ($self, $w, $h) = @_;
    my ($ws, $hs) = $self->get_wh;
-   my $req_w = sum @$ws;
+   my $req_w = (sum @$ws) || 1;
-   my $req_h = sum @$hs;
+   my $req_h = (sum @$hs) || 1;
    # TODO: nicer code && do row_expand
    my @col_expand = @{$self->{col_expand}};
    @col_expand = (1) x @$ws unless @col_expand;
    my $col_expand = (sum @col_expand) || 1;
 }
 sub set_range {
    my ($self, $range) = @_;
-   $self->{range} = $range;
+   ($range, $self->{range}) = ($self->{range}, $range);
-   $self->update;
+   $self->update
+      if "@$range" ne "@{$self->{range}}";
 }
 sub set_value {
    my ($self, $value) = @_;
       $self->{scrolled}->add (1, $row, $item->{desc_widget});
       $self->{scrolled}->add (2, $row, $item->{weight_widget});
       $row++;
    }
-#   $range->{range} = [$self->{pos}, 0, $self->{max_pos}, $page];
 }
 sub size_request {
    my ($self) = @_;
    ($self->{req_w}, $self->{req_h});

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines