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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.171 by root, Mon Apr 24 11:54:26 2006 UTC vs.
Revision 1.172 by root, Tue Apr 25 09:52:04 2006 UTC

    }
 }
 sub size_allocate {
    # nothing to be done
+}
+sub children {
 }
 sub set_max_size {
    my ($self, $w, $h) = @_;
    ];
    $child->check_size;
 }
+sub children {
+   @{ $_[0]{children} }
+}
 sub remove {
    my ($self, $child) = @_;
    delete $child->{parent};
    $child->hide;
    $self->{children}[$y][$x] = $child;
    $child->check_size;
 }
+sub children {
+   grep $_, map @$_, grep $_, @{ $_[0]{children} }
+}
 # TODO: move to container class maybe? send childs a signal on removal?
 sub clear {
    my ($self) = @_;
-   my $children = delete $self->{children};
+   my @children = $self->children;
+   delete $self->{children};
-   for (grep $_, map @$_, grep $_, @$children) {
+   for (@children) {
       delete $_->{parent};
       $_->hide;
    }
    $self->update;
    my ($self) = @_;
    if ($self->{texture}) {
       glEnable GL_TEXTURE_2D;
       glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
+      glColor 1, 1, 1, 1;
       $self->{texture}->draw_quad (0, 0, $self->{w}, $self->{h});
       glDisable GL_TEXTURE_2D;
    }
    $self->{children}[1]->draw;

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