[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.397 by root, Sat Jul 21 14:01:35 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)
+   $self->{vslider}->emit (mouse_wheel => $ev);
-      if $ev->{dy};
-   $self->{hslider}->emit (mouse_wheel => $ev)
+   $self->{hslider}->emit (mouse_wheel => $ev);
-      if $ev->{dx};
    1
 }
 sub invoke_button_down {
    my ($self, $ev, $x, $y) = @_;
-   if ($ev->{button} == 2) {
+   $self->start_dragging ($ev);
-      $self->grab_focus;
-      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;
-   }
+   1
-   0
 }
 sub invoke_button_up {
    my ($self, $ev, $x, $y) = @_;

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