--- deliantra/Deliantra-Client/DC.pm	2006/04/12 20:06:36	1.28
+++ deliantra/Deliantra-Client/DC.pm	2006/04/12 20:42:52	1.29
@@ -106,6 +106,7 @@
    my $self = bless {
       internalformat => GL_RGBA,
       format         => GL_RGBA,
+      type           => GL_UNSIGNED_BYTE,
       %data,
    }, $class;
 
@@ -156,6 +157,7 @@
       data           => $data,
       internalformat => GL_ALPHA4,
       format         => GL_ALPHA,
+      type           => GL_UNSIGNED_BYTE,
    )
 }
 
@@ -190,18 +192,8 @@
       $self->{render_cb}->($self, $self->{w}, $self->{h});
 
    } else {
-      use Gtk2;#d# TODO kill
-      my $pb = new Gtk2::Gdk::PixbufLoader;
-      $pb->write ($self->{image});
-      $pb->close;
-
-      $pb = $pb->get_pixbuf;
-      $pb = $pb->add_alpha (0, 0, 0, 0);
-
-      $self->{w} = $pb->get_width;
-      $self->{h} = $pb->get_height;
-
-      $data = $pb->get_pixels;
+      ($self->{w}, $self->{h}, $data, $self->{internalformat}, $self->{format}, $self->{type})
+         = CFClient::load_image_inline $self->{image};
    }
 
    my ($tw, $th) = @$self{qw(w h)};
@@ -242,7 +234,7 @@
                    $tw, $th, # need to pad texture first
                    0,
                    $self->{format},
-                   GL_UNSIGNED_BYTE,
+                   $self->{type},
                    $data;
       glGetError and die;
    } else {