making reaction apply events for buttons defined as type=image

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Action.pm

diff --git a/lib/Reaction/UI/ViewPort/Action.pm b/lib/Reaction/UI/ViewPort/Action.pm
index a19f2ca..84b127e 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Action.pm
+++ b/lib/Reaction/UI/ViewPort/Action.pm
@@ -62,6 +62,17 @@ sub sync_action_from_fields {
   }
 }
 
+after handle_events => sub {
+  my ($self, $events) = @_;
+  foreach my $event ($self->accept_events) {
+    unless (exists $events->{$event} ) {
+      # for <input type="image"... buttons
+      if ( exists $events->{"${event}.x"} && exists $events->{"${event}.y"} ) {
+        $self->$event($events->{$event});
+      }
+    }
+  }
+};
 
 __PACKAGE__->meta->make_immutable;