--- deliantra/Deliantra-Client/DC/UI.pm 2006/04/09 00:06:10 1.28 +++ deliantra/Deliantra-Client/DC/UI.pm 2006/04/09 00:09:50 1.29 @@ -150,7 +150,8 @@ sub _draw { my ($self) = @_; - my ($w, $h) = $self->size_request;#TODO# use widht/height of texture + my ($w, $h) = $self->size_request;#TODO# use width/height of texture + my $tex = $self->{texture} or return; @@ -371,7 +372,7 @@ glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE; glBindTexture GL_TEXTURE_2D, $tex->{name}; - glColor 1, 0, 1; + glColor 1, 1, 1, 0.8; glBegin GL_QUADS; glTexCoord 0, 0; glVertex 0 , 0;