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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.228 by root, Wed May 24 03:52:54 2006 UTC vs.
Revision 1.229 by root, Wed May 24 21:49:58 2006 UTC

    my $slider = new CFClient::UI::Slider
       vertical        => 1,
       range           => [0, 0, 1, 0.01], # HACK fix
       connect_changed => sub {
-         $self->{vp}->set_offset (0, $_[1] * ($self->{vp}{child_h} - $self->{vp}{h}));
+         $self->{vp}->set_offset (0, $_[1]);
       },
    ;
    $self = $class->SUPER::new (
       vp     => (new CFClient::UI::ViewPort expand => 1),
    $self->{vp}->add ($self->{scrolled});
    $self->add ($self->{vp});
    $self->add ($self->{slider});
    $self
+}
+sub size_allocate {
+   my ($self, $w, $h) = @_;
+   $self->SUPER::size_allocate ($w, $h);
+   my $child = $self->{vp}->child;
+   $self->{slider}->set_range ([$self->{slider}{range}[0], 0, $child->{h}, $self->{vp}{h}, 1]);
 }
 #TODO# update range on size_allocate depending on child
 # update viewport offset on scroll
 }
 sub add {
    my ($self, @children) = @_;
+   for (my @widgets = @children; my $w = pop @widgets; ) {
+      push @widgets, $w->children;
+      $w->{root} = $self;
+      $w->{visible} = 1;
+   }
    for my $child (@children) {
       $child->{toplevel} = 1;
       # integerise window positions
       $child->{x} = int $child->{x};
       $child->{y} = int $child->{y};
    }
    $self->SUPER::add (@children);
-   while (@children) {
-      my $w = pop @children;
-      push @children, $w->children;
-      $w->{visible} = 1;
-   }
 }
 sub remove {
    my ($self, @children) = @_;

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