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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.238 by root, Thu May 25 21:48:22 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->{vp}->add ($self->{scrolled});
    $self->add ($self->{vp});
    $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) = @_;
 }
 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