diff options
| -rw-r--r-- | lib/ManaTools/Shared/GUI/EventHandlerRole.pm | 74 |
1 files changed, 73 insertions, 1 deletions
diff --git a/lib/ManaTools/Shared/GUI/EventHandlerRole.pm b/lib/ManaTools/Shared/GUI/EventHandlerRole.pm index 532ca3b5..e01f5c89 100644 --- a/lib/ManaTools/Shared/GUI/EventHandlerRole.pm +++ b/lib/ManaTools/Shared/GUI/EventHandlerRole.pm @@ -65,6 +65,15 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. use Moose::Role; +has 'eventHandlers' => ( + is => 'ro', + isa => 'ArrayRef[ManaTools::Shared::GUI::EventHandlerRole]', + init_arg => undef, + default => sub { + return []; + } +); + has 'events' => ( is => 'ro', isa => 'HashRef[ManaTools::Shared::GUI::EventRole]', @@ -75,6 +84,60 @@ has 'events' => ( #============================================================= +=head2 addEventHandler + +=head3 INPUT + + $self: this object + $eventHandler: an EventHandlerRole to be added + +=head3 DESCRIPTION + + add an EventHandler to the events list + +=cut + +#============================================================= +sub addEventHandler { + my $self = shift; + my $eventHandler = shift; + my $eventHandlers = $self->eventHandlers(); + push @{$eventHandlers}, $eventHandler; +} + +#============================================================= + +=head2 delEventHandler + +=head3 INPUT + + $self: this object + $eventHandler: an EventHandlerRole to be removed + +=head3 DESCRIPTION + + del an eventHandler from the events list + +=cut + +#============================================================= +sub delEventHandler { + my $self = shift; + my $eventHandler = shift; + my $eventHandlers = $self->eventHandlers(); + my $i = scalar(@{$eventHandlers}); + while ($i > 0) { + $i = $i - 1; + if ($eventHandlers->[$i] == $eventHandler) { + # splice the eventHandler out of it + splice @{$eventHandlers}, $i, 1; + return ; + } + } +} + +#============================================================= + =head2 addEvent =head3 INPUT @@ -463,12 +526,21 @@ sub findItem { sub processEvents { my $self = shift; my $yevent = shift; - my $events = $self->events(); + + # first check the other eventHandlers + my $eventHandlers = $self->eventHandlers(); + for my $eventHandler (@{$eventHandlers}) { + my $processed = $eventHandler->processEvents($yevent); + return $processed if $processed >= 0; + } + # loop all the items + my $events = $self->events(); for my $event (values %{$events}) { my $processed = $event->processEvent($yevent); return $processed if $processed >= 0; } + return 1; } |