… | |
… | |
1276 | |
1276 | |
1277 | sub _draw { |
1277 | sub _draw { |
1278 | my ($self) = @_; |
1278 | my ($self) = @_; |
1279 | |
1279 | |
1280 | local $self->{fg} = $self->{fg}; |
1280 | local $self->{fg} = $self->{fg}; |
1281 | my $tex = $tex[0]; |
|
|
1282 | |
|
|
1283 | glEnable GL_BLEND; |
|
|
1284 | glEnable GL_TEXTURE_2D; |
|
|
1285 | glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA; |
|
|
1286 | |
1281 | |
1287 | if ($GRAB == $self) { |
1282 | if ($GRAB == $self) { |
1288 | $self->{fg} = $self->{active_fg}; |
1283 | $self->{fg} = $self->{active_fg}; |
1289 | } |
1284 | } |
1290 | |
1285 | |
1291 | glBindTexture GL_TEXTURE_2D, $tex->{name}; |
1286 | glEnable GL_BLEND; |
|
|
1287 | glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA; |
|
|
1288 | glEnable GL_TEXTURE_2D; |
1292 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE; |
1289 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE; |
|
|
1290 | glColor 0, 0, 0, 1; |
1293 | |
1291 | |
1294 | $tex->draw_quad (0, 0, $self->{w}, $self->{h}); |
1292 | $tex[0]->draw_quad (0, 0, $self->{w}, $self->{h}); |
1295 | |
1293 | |
1296 | glDisable GL_TEXTURE_2D; |
1294 | glDisable GL_TEXTURE_2D; |
1297 | glDisable GL_BLEND; |
1295 | glDisable GL_BLEND; |
1298 | |
1296 | |
1299 | $self->SUPER::_draw; |
1297 | $self->SUPER::_draw; |