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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.445 by root, Sat Dec 8 19:17:02 2007 UTC vs.
Revision 1.449 by root, Wed Dec 26 15:07:08 2007 UTC

 # translate global coordinates to local coordinate system
 sub coord2local {
    my ($self, $x, $y) = @_;
-   Carp::confess unless $self->{parent};#d#
+   return (undef, undef) unless $self->{parent};
    $self->{parent}->coord2local ($x  - $self->{x}, $y - $self->{y})
 }
 # translate local coordinates to global coordinate system
 sub coord2global {
    my ($self, $x, $y) = @_;
-   Carp::confess unless $self->{parent};#d#
+   return (undef, undef) unless $self->{parent};
    $self->{parent}->coord2global ($x + $self->{x}, $y + $self->{y})
 }
 sub invoke_focus_in {
    );
    if ($self->{anim} && $self->{animspeed}) {
       CFPlus::weaken (my $widget = $self);
-      $widget->{animspeed} = List::Util::max 0.05, $widget->{animspeed};
+      $self->{animspeed} = List::Util::max 0.05, $self->{animspeed};
-      $widget->{anim_start} = $self->{animspeed} * int EV::now / $self->{animspeed};
+      $self->{timer} = EV::periodic_ns 0, $self->{animspeed}, undef, sub {
-      $self->{timer} = EV::timer_ns 0, 0, sub {
          return unless $::CONN;
          my $w = $widget
             or return;
    my ($self) = @_;
    return unless $self->{timer};
    if ($self->{visible}) {
-      $self->{timer}->set (
-         $self->{anim_start}
-         + $self->{animspeed}
-           * int 1.5 + (EV::now - $self->{anim_start}) / $self->{animspeed}
-      );
       $self->{timer}->start;
    } else {
       $self->{timer}->stop;
    }
 }

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