--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/09 00:09:50	1.29
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/09 00:18:45	1.30
@@ -183,6 +183,9 @@
    my ($self) = @_;
    my $chld = $self->get
       or return (0, 0);
+
+   $chld->move (2, 2);
+
    map { $_ + 4 } $chld->size_request;
 }
 
@@ -191,12 +194,10 @@
 
    my $chld = $self->get;
 
-   $chld->move (2, 2, 0); #TODO:move to size_request
-
    my ($w, $h) = $chld->size_request;
 
-   glColor 1, 0, 0;
    glBegin GL_QUADS;
+   glColor 0, 0, 0;
    glTexCoord 0, 0; glVertex 0      , 0;
    glTexCoord 0, 1; glVertex 0      , $h + 4;
    glTexCoord 1, 1; glVertex $w + 4 , $h + 4;
@@ -369,6 +370,7 @@
 
    glEnable GL_BLEND;
    glEnable GL_TEXTURE_2D;
+   glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
    glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
    glBindTexture GL_TEXTURE_2D, $tex->{name};