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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.235 by root, Thu May 25 16:35:42 2006 UTC vs.
Revision 1.237 by root, Thu May 25 21:36:45 2006 UTC

 sub set_parent {
    my ($self, $parent) = @_;
    Scalar::Util::weaken ($self->{parent} = $parent);
+   $self->{root}    = $parent->{root};
+   $self->{visible} = $parent->{visible};
    # TODO: req_w _does_change after ->reconfigure
    $self->check_size
       unless exists $self->{req_w};
    $self->show;
    delete $child->{parent};
    $child->hide;
    $self->{children} = [ grep $_ != $child, @{ $self->{children} } ];
-   $self->check_size;
+   $self->check_size (1);
    $self->update;
 }
 sub clear {
    my ($self) = @_;
       col_expand => [],
       @_,
    )
 }
+sub children {
+   grep $_, map @$_, grep $_, @{ $_[0]{children} }
+}
 sub add {
    my ($self, $x, $y, $child) = @_;
    $child->set_parent ($self);
    $self->{children}[$y][$x] = $child;
-   $child->check_size;
+   $self->check_size (1);
 }
-sub children {
-   grep $_, map @$_, grep $_, @{ $_[0]{children} }
-}
-# TODO: move to container class maybe? send childs a signal on removal?
+# TODO: move to container class maybe? send children a signal on removal?
 sub clear {
    my ($self) = @_;
    my @children = $self->children;
    delete $self->{children};
    for (@children) {
       delete $_->{parent};
       $_->hide;
    }
+   $self->check_size (1);
    $self->update;
 }
 sub get_wh {
    my ($self) = @_;

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