--- deliantra/Deliantra-Client/DC/MapWidget.pm	2006/04/19 23:37:49	1.4
+++ deliantra/Deliantra-Client/DC/MapWidget.pm	2006/04/19 23:43:07	1.5
@@ -39,14 +39,14 @@
 
    $self->focus_in;
 
-   if ($ev->button == 2) {
-      my ($ox, $oy) = ($ev->button_x, $ev->button_y);
+   if ($ev->{button} == 2) {
+      my ($ox, $oy) = ($ev->{x}, $ev->{y});
       my ($bw, $bh) = ($::CFG->{map_shift_x}, $::CFG->{map_shift_y});
 
       $self->{motion} = sub {
          my ($ev, $x, $y) = @_;
 
-         ($x, $y) = ($ev->motion_x, $ev->motion_y);
+         ($x, $y) = ($ev->{x}, $ev->{y});
 
          $::CFG->{map_shift_x} = $bw + $x - $ox;
          $::CFG->{map_shift_y} = $bh + $y - $oy;
@@ -201,8 +201,8 @@
 sub key_down {
    my ($self, $ev) = @_;
 
-   my $mod = $ev->key_mod;
-   my $sym = $ev->key_sym;
+   my $mod = $ev->{mod};
+   my $sym = $ev->{sym};
 
    if ($sym == CFClient::SDLK_KP5) {
       $::CONN->user_send ("stay fire");
@@ -228,8 +228,8 @@
 sub key_up {
    my ($self, $ev) = @_;
 
-   my $mod = $ev->key_mod;
-   my $sym = $ev->key_sym;
+   my $mod = $ev->{mod};
+   my $sym = $ev->{sym};
 
    if (!($mod & CFClient::KMOD_SHIFT) && delete $self->{shft}) {
       $::CONN->user_send ("fire_stop");