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

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

    %$self = ();
 }
 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);
 }
+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) = @_;
-   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;
    $self->{parent}->remove ($self)
    $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