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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.393 by root, Sat Jul 21 13:41:46 2007 UTC vs.
Revision 1.395 by root, Sat Jul 21 13:56:00 2007 UTC

 }
 sub clear {
    my ($self) = @_;
-   my $children = delete $self->{children};
+   my $children = $self->{children};
    $self->{children} = [];
    for (@$children) {
       delete $_->{parent};
       $_->hide;
    $self->add ($child) if $child;
    $self
 }
-#TODO# update range on size_allocate depending on child?
 sub add {
    my ($self, $widget) = @_;
    $self->{vp}->add ($self->{child} = $widget);
 }
    my ($w1, $w2) = ($child->{w}, $self->{vp}{w});
    $self->{hslider}->set_range ([$self->{hslider}{range}[0], 0, $w1, $w2, 1]);
    my $visible = $w1 > $w2;
-   if ($visible != $self->{hslider}{visible}) {
+   if ($visible != $self->{hslider_visible}) {
+      $self->{hslider_visible} = $visible;
       $visible ? $self->SUPER::add ($self->{hslider})
                : $self->SUPER::remove ($self->{hslider});
    }
    my ($h1, $h2) = ($child->{h}, $self->{vp}{h});
    $self->{vslider}->set_range ([$self->{vslider}{range}[0], 0, $h1, $h2, 1]);
    my $visible = $h1 > $h2;
-   if ($visible != $self->{vslider}{visible}) {
+   if ($visible != $self->{vslider_visible}) {
+      $self->{vslider_visible} = $visible;
       $visible ? $self->SUPER::add ($self->{vslider})
                : $self->SUPER::remove ($self->{vslider});
    }
-}
-sub update {
-   my ($self) = @_;
-   $self->update_slider;
-   $self->SUPER::update;
 }
 sub invoke_mouse_wheel {
    my ($self, $ev) = @_;

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