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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.21 by root, Sat Apr 8 18:15:59 2006 UTC vs.
Revision 1.22 by elmex, Sat Apr 8 18:18:09 2006 UTC

 sub render_chld {
    my ($self) = @_;
    my $chld = $self->get;
    my ($w, $h) = $self->size_request;
+   $w = $h = 256;
    $self->{texture} =
       Crossfire::Client::Texture->new_from_opengl (
          $w, $h, sub {
-            my ($txt, $w, $h) = @_;
+            glPushMatrix;
+            glLoadIdentity;
             $chld->_draw;
+            glPopMatrix;
          }
       );
    $self->{texture}->upload;
 }
 }
 sub _draw {
    my ($self) = @_;
+   my ($w, $h) = $self->size_request;
    my $tex = $self->{texture}
       or return;
-      warn "DRAW TEX: $tex->{width} $tex->{height}\n";
    glEnable GL_BLEND;
    glEnable GL_TEXTURE_2D;
    glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
    glBindTexture GL_TEXTURE_2D, $tex->{name};
    glColor 1, 1, 1;
    glBegin GL_QUADS;
    glTexCoord 0, 0; glVertex 0            , 0;
-   glTexCoord 0, 1; glVertex 0            , $tex->{height};
+   glTexCoord 0, 1; glVertex 0            , $h;
-   glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height};
+   glTexCoord 1, 1; glVertex $w           , $h;
-   glTexCoord 1, 0; glVertex $tex->{width}, 0;
+   glTexCoord 1, 0; glVertex $w           , 0;
    glEnd;
    glDisable GL_BLEND;
    glDisable GL_TEXTURE_2D;
 }

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