[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/UI.pm

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.118 by root, Sat Apr 15 23:25:00 2006 UTC vs.
Revision 1.120 by elmex, Sun Apr 16 17:43:17 2006 UTC

    return if $FOCUS == $self;
    return unless $self->{can_focus};
    my $focus = $FOCUS; $FOCUS = $self;
+   $self->emit (focus_in => $focus);
    $focus->update if $focus;
    $FOCUS->update;
 }
 sub focus_out {
    my ($self) = @_;
    return unless $FOCUS == $self;
    my $focus = $FOCUS; undef $FOCUS;
+   $self->emit (focus_out => $focus);
    $focus->update if $focus; #?
 }
 sub mouse_motion { }
 sub button_up { }
 sub _draw {
    my ($self) = @_;
    local $self->{fg} = $self->{fg};
-   my $tex = $tex[0];
-   glEnable GL_BLEND;
-   glEnable GL_TEXTURE_2D;
-   glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
    if ($GRAB == $self) {
       $self->{fg} = $self->{active_fg};
    }
-   glBindTexture GL_TEXTURE_2D, $tex->{name};
+   glEnable GL_BLEND;
+   glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
+   glEnable GL_TEXTURE_2D;
    glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
+   glColor 0, 0, 0, 1;
-   $tex->draw_quad (0, 0, $self->{w}, $self->{h});
+   $tex[0]->draw_quad (0, 0, $self->{w}, $self->{h});
    glDisable GL_TEXTURE_2D;
    glDisable GL_BLEND;
    $self->SUPER::_draw;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines