--- deliantra/Deliantra-Client/DC/UI.pm	2006/05/25 16:35:42	1.235
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/05/25 16:54:29	1.236
@@ -620,7 +620,7 @@
 
    $self->{children} = [ grep $_ != $child, @{ $self->{children} } ];
 
-   $self->check_size;
+   $self->check_size (1);
    $self->update;
 }
 
@@ -1103,20 +1103,20 @@
    )
 }
 
+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;
-}
-
-sub children {
-   grep $_, map @$_, grep $_, @{ $_[0]{children} }
+   $self->check_size (1);
 }
 
-# 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) = @_;
 
@@ -1128,6 +1128,7 @@
       $_->hide;
    }
 
+   $self->check_size (1);
    $self->update;
 }