--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/19 20:46:44	1.136
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/19 21:38:05	1.137
@@ -23,7 +23,7 @@
 
 sub feed_sdl_button_down_event {
    my ($ev) = @_;
-   my ($x, $y) = ($ev->motion_x, $ev->motion_y);
+   my ($x, $y) = ($ev->{x}, $ev->{y});
 
    if (!$BUTTON_STATE) {
       my $widget = $ROOT->find_widget ($x, $y);
@@ -32,18 +32,18 @@
       $GRAB->update if $GRAB;
    }
 
-   $BUTTON_STATE |= 1 << ($ev->button - 1);
+   $BUTTON_STATE |= 1 << ($ev->{button} - 1);
 
    $GRAB->button_down ($ev, $GRAB->coord2local ($x, $y)) if $GRAB;
 }
 
 sub feed_sdl_button_up_event {
    my ($ev) = @_;
-   my ($x, $y) = ($ev->motion_x, $ev->motion_y);
+   my ($x, $y) = ($ev->{x}, $ev->{y});
 
    my $widget = $GRAB || $ROOT->find_widget ($x, $y);
 
-   $BUTTON_STATE &= ~(1 << ($ev->button - 1));
+   $BUTTON_STATE &= ~(1 << ($ev->{button} - 1));
 
    $GRAB->button_up ($ev, $GRAB->coord2local ($x, $y)) if $GRAB;
 
@@ -56,7 +56,7 @@
 
 sub feed_sdl_motion_event {
    my ($ev) = @_;
-   my ($x, $y) = ($ev->motion_x, $ev->motion_y);
+   my ($x, $y) = ($ev->{x}, $ev->{y});
 
    my $widget = $GRAB || $ROOT->find_widget ($x, $y);
 
@@ -1177,10 +1177,9 @@
 sub key_down {
    my ($self, $ev) = @_;
 
-   my $mod = $ev->key_mod;
-   my $sym = $ev->key_sym;
-
-   my $uni = $ev->key_unicode;
+   my $mod = $ev->{mod};
+   my $sym = $ev->{sym};
+   my $uni = $ev->{unicode};
 
    my $text = $self->get_text;
 
@@ -1286,7 +1285,7 @@
 sub key_down {
    my ($self, $ev) = @_;
 
-   my $sym = $ev->key_sym;
+   my $sym = $ev->{sym};
 
    if ($sym == 13) {
       $self->emit (activate => $self->get_text);