From 6c432030a01d6ae0e12b1027eb7e0c84b6c90f3a Mon Sep 17 00:00:00 2001 From: Maarten Vanraes Date: Sat, 13 Feb 2016 11:33:34 +0100 Subject: optional name for widgets, items, events the name will now be autogenerated depending on a basename that each EventRole needs to implement, with a numeric suffix increasing in number, it checks this in the already present eventHandler. --- lib/ManaTools/Shared/GUI/EventHandlerRole.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/ManaTools/Shared/GUI/EventHandlerRole.pm') diff --git a/lib/ManaTools/Shared/GUI/EventHandlerRole.pm b/lib/ManaTools/Shared/GUI/EventHandlerRole.pm index 852c97a1..09e18e47 100644 --- a/lib/ManaTools/Shared/GUI/EventHandlerRole.pm +++ b/lib/ManaTools/Shared/GUI/EventHandlerRole.pm @@ -326,7 +326,7 @@ sub addWidget { my $widget = shift; my $event = shift; my $backend = shift; - return ManaTools::Shared::GUI::Event->new(name => $name, eventHandler => $self, eventType => $yui::YEvent::WidgetEvent, widget => $widget, event => $event, backend => $backend); + return ManaTools::Shared::GUI::Event->new(basename => 'widget', name => $name, eventHandler => $self, eventType => $yui::YEvent::WidgetEvent, widget => $widget, event => $event, backend => $backend); } #============================================================= @@ -431,7 +431,7 @@ sub addItem { my $item = shift; my $event = shift; my $backend = shift; - return ManaTools::Shared::GUI::Event->new(name => $name, eventHandler => $self, eventType => $yui::YEvent::MenuEvent, item => $item, event => $event, backend => $backend); + return ManaTools::Shared::GUI::Event->new(basename => 'Item', name => $name, eventHandler => $self, eventType => $yui::YEvent::MenuEvent, item => $item, event => $event, backend => $backend); } #============================================================= -- cgit v1.2.1