--- deliantra/Deliantra-Client/DC/MapWidget.pm 2006/06/03 21:59:55 1.48 +++ deliantra/Deliantra-Client/DC/MapWidget.pm 2006/06/03 22:50:48 1.49 @@ -58,7 +58,19 @@ $self->focus_in; - if ($ev->{button} == 2) { + if ($ev->{button} == 1) { + my ($ox, $oy) = ($ev->{x}, $ev->{y}); + + my $fx = int ((($ev->{x} - $::CFG->{map_shift_x}) / (32 * $::CFG->{map_scale})) + 0.99); + my $fy = int ((($ev->{y} - $::CFG->{map_shift_y}) / (32 * $::CFG->{map_scale})) + 0.99); + $fx += $::MAP->x; + $fy += $::MAP->y; + + $::CONN->send (sprintf "lookat %d %d", $fx, $fy); + + warn "FOOX: $fx (".$::MAP->ox.")\n"; + warn "FOOY: $fy (".$::MAP->oy.")\n"; + } elsif ($ev->{button} == 2) { my ($ox, $oy) = ($ev->{x}, $ev->{y}); my ($bw, $bh) = ($::CFG->{map_shift_x}, $::CFG->{map_shift_y}); @@ -72,18 +84,6 @@ $self->update; }; - } elsif ($ev->{button} == 1) { - my ($ox, $oy) = ($ev->{x}, $ev->{y}); - - my $fx = int ((($ev->{x} - $::CFG->{map_shift_x}) / (32 * $::CFG->{map_scale})) + 0.99); - my $fy = int ((($ev->{y} - $::CFG->{map_shift_y}) / (32 * $::CFG->{map_scale})) + 0.99); - $fx += $::MAP->x; - $fy += $::MAP->y; - - $::CONN->send (sprintf "lookat %d %d", $fx, $fy); - - warn "FOOX: $fx (".$::MAP->ox.")\n"; - warn "FOOY: $fy (".$::MAP->oy.")\n"; } 1