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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.395 by root, Sat Jul 21 13:56:00 2007 UTC vs.
Revision 1.396 by root, Sat Jul 21 14:00:02 2007 UTC

       $visible ? $self->SUPER::add ($self->{vslider})
                : $self->SUPER::remove ($self->{vslider});
    }
 }
+sub start_dragging {
+   my ($self, $ev) = @_;
+   $self->grab_focus;
+   my $ox = $self->{vp}{view_x};
+   my $oy = $self->{vp}{view_y};
+   $self->{motion} = sub {
+      my ($ev, $x, $y) = @_;
+      $ox -= $ev->{xrel};
+      $oy -= $ev->{yrel};
+      $self->{vp}->set_offset ($ox, $oy);
+   };
+}
 sub invoke_mouse_wheel {
    my ($self, $ev) = @_;
    $self->{vslider}->emit (mouse_wheel => $ev)
       if $ev->{dy};
 sub invoke_button_down {
    my ($self, $ev, $x, $y) = @_;
    if ($ev->{button} == 2) {
-      $self->grab_focus;
+      $self->start_dragging ($ev);
-      my $ox = $self->{vp}{view_x} + $ev->{x};
-      my $oy = $self->{vp}{view_y} + $ev->{y};
-      $self->{motion} = sub {
-         my ($ev, $x, $y) = @_;
-         $self->{vp}->set_offset ($ox - $ev->{x}, $oy - $ev->{y});
-         $self->update;
-      };
       return 1;
    }
    0

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