From 5257d946c84c1ea5d4b77cf904aa21e4a427e904 Mon Sep 17 00:00:00 2001
From: Maarten Vanraes <alien@mageia.org>
Date: Sat, 9 Jan 2016 16:59:28 +0100
Subject: add parent link to EventHandlerRole move parentDialog

---
 lib/ManaTools/Shared/GUI/EventRole.pm | 23 +----------------------
 1 file changed, 1 insertion(+), 22 deletions(-)

(limited to 'lib/ManaTools/Shared/GUI/EventRole.pm')

diff --git a/lib/ManaTools/Shared/GUI/EventRole.pm b/lib/ManaTools/Shared/GUI/EventRole.pm
index 02376b81..3326610b 100644
--- a/lib/ManaTools/Shared/GUI/EventRole.pm
+++ b/lib/ManaTools/Shared/GUI/EventRole.pm
@@ -75,6 +75,7 @@ has 'eventHandler' => (
     is => 'ro',
     does => 'ManaTools::Shared::GUI::EventHandlerRole',
     required => 1,
+    handles => [ 'parentDialog' ],
 );
 
 has 'name' => (
@@ -107,27 +108,5 @@ sub DEMOLISH {
 
 #=============================================================
 
-=head2 parentDialog
-
-=head3 INPUT
-
-    $self: this object
-
-=head3 DESCRIPTION
-
-    finds the parent Dialog
-
-=cut
-
-#=============================================================
-sub parentDialog {
-    my $self = shift;
-    my $eventHandler = $self->eventHandler();
-    while (defined($eventHandler) && !$eventHandler->isa('ManaTools::Shared::GUI::Dialog') && $eventHandler->does('ManaTools::Shared::GUI::EventRole')) {
-        $eventHandler = $eventHandler->eventHandler();
-    }
-    return $eventHandler;
-}
-
 1;
 
-- 
cgit v1.2.1