--- deliantra/Deliantra-Client/DC.pm	2006/04/08 16:34:46	1.9
+++ deliantra/Deliantra-Client/DC.pm	2006/04/08 18:18:09	1.11
@@ -127,7 +127,7 @@
 sub new_from_opengl {
    my ($class, $w, $h, $cb) = @_;
 
-   $class->_new (width => $w, height => $h, render => $cb)
+   $class->_new (width => $w, height => $h, rendercb => $cb)
 }
 
 sub upload {
@@ -176,11 +176,17 @@
                    GL_UNSIGNED_BYTE,
                    $data;
    } else {
+      warn "I{DTEDRAW TEX: $self->{width} $self->{height} \n";
+      warn "ERR: ". (glGetError). "\n";
+      my ($bd, $br) = (glGet (GL_DRAW_BUFFER), glGet (GL_READ_BUFFER));
+      warn "BUF:[$bd $br]\n";
+
       glCopyTexImage2D GL_TEXTURE_2D, 0,
                    GL_RGBA8,
                    0, 0,
                    $self->{width}, $self->{height},
                    0;
+      warn "ERR: ". (glGetError). "\n";
    }
 }