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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.220 by root, Mon May 22 03:28:55 2006 UTC vs.
Revision 1.223 by elmex, Tue May 23 18:10:51 2006 UTC

    %$self = ();
 }
 sub show {
    my ($self) = @_;
    return if $self->{parent};
    $CFClient::UI::ROOT->add ($self);
+}
+sub show_centered {
+   my ($self) = @_;
+   return if $self->{parent};
+   $self->show;
+   $CFClient::UI::ROOT->on_post_alloc (
+      "centered $self" => sub {
+         $self->move (($::WIDTH - $self->{w}) * 0.5, ($::HEIGHT - $self->{h}) * 0.5);
+      },
+   );
 }
 sub hide {
    my ($self) = @_;
    Scalar::Util::weaken ($self->{parent} = $parent);
    # TODO: req_w _does_change after ->reconfigure
    $self->check_size
       unless exists $self->{req_w};
+   $self->show;
 }
 sub check_size {
    my ($self, $forced) = @_;
    $self
 }
 sub size_request {
    (32, 8)
+}
+sub update {
+   my ($self) = @_;
+   return unless $self->{visible};
+   $self->SUPER::update;
 }
 sub _draw {
    my ($self) = @_;
       $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) = @_;
+   $self->SUPER::remove (@children);
+   while (@children) {
+      my $w = pop @children;
+      push @children, $w->children;
+      delete $w->{visible};
+   }
 }
 sub on_refresh {
    my ($self, $id, $cb) = @_;

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