--- deliantra/Deliantra-Client/DC/UI.pm 2006/05/22 03:28:55 1.220 +++ deliantra/Deliantra-Client/DC/UI.pm 2006/05/22 03:48:50 1.221 @@ -209,6 +209,12 @@ sub show { my ($self) = @_; + for (my @w = $self; @w; ) { + my $w = pop @w; + push @w, $w->children; + $w->{visible} = 1; + } + return if $self->{parent}; $CFClient::UI::ROOT->add ($self); @@ -217,6 +223,12 @@ sub hide { my ($self) = @_; + for (my @w = $self; @w; ) { + my $w = pop @w; + push @w, $w->children; + $w->{visible} = 1; + } + undef $GRAB if $GRAB == $self; undef $HOVER if $HOVER == $self; @@ -429,6 +441,8 @@ # TODO: req_w _does_change after ->reconfigure $self->check_size unless exists $self->{req_w}; + + $self->show; } sub check_size {