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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.43 by root, Sun Apr 9 22:12:11 2006 UTC vs.
Revision 1.47 by root, Sun Apr 9 22:24:43 2006 UTC

 use SDL::OpenGL;
 use SDL::OpenGL::Constants;
 use Crossfire::Client;
-our $FOCUS;  # the widget with current focus
 # class methods for events
-sub feed_sdl_key_down_event    { $FOCUS->key_down ($_[0])    if $FOCUS }
+sub feed_sdl_key_down_event    { $::FOCUS->key_down ($_[0])    if $::FOCUS }
-sub feed_sdl_key_up_event      { $FOCUS->key_up ($_[0])      if $FOCUS }
+sub feed_sdl_key_up_event      { $::FOCUS->key_up ($_[0])      if $::FOCUS }
 sub feed_sdl_button_down_event { }
 sub feed_sdl_button_up_event   { }
 sub new {
    my $class = shift;
    $self->{h} = $h;
 }
 sub focus_in {
    my ($widget) = @_;
-   $FOCUS = $widget;
+   $::FOCUS = $widget;
 }
 sub focus_out {
    my ($widget) = @_;
 }
    my ($self) = @_;
    glPushMatrix;
    glTranslate $self->{x}, $self->{y}, 0;
    $self->_draw;
+   if ($self == $::HOVER) {
+      glColor 1, 1, 1, 1;
+      glBegin GL_LINES;
+      glVertex 0, 0;
+      glVertex $self->{w} - 1, 0;
+      glVertex $self->{w} - 1, $self->{h} - 1;
+      glVertex 0, $self->{h} - 1;
+      glVertex 0, 0;
+      glEnd;
+   }
    glPopMatrix;
 }
 sub _draw {
    my ($self) = @_;
 }
 sub find_widget {
    my ($self, $x, $y) = @_;
+   $x -= $self->{x};
+   $y -= $self->{y};
    my $res;
-   for (@{ $self->{children} }) {
+   for (reverse @{ $self->{children} }) {
       $res = $_->find_widget ($x, $y)
          and return $res;
    }
-   ()
+   $self->SUPER::find_widget ($x + $self->{x}, $y + $self->{y})
 }
 sub _draw {
    my ($self) = @_;

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