diff options
| author | Maarten Vanraes <alien@mageia.org> | 2016-01-09 16:59:28 +0100 |
|---|---|---|
| committer | Maarten Vanraes <alien@mageia.org> | 2016-01-09 16:59:28 +0100 |
| commit | 5257d946c84c1ea5d4b77cf904aa21e4a427e904 (patch) | |
| tree | 63da9cb585d77ba81ef29edeff5fe8a98cfa275f /lib/ManaTools/Shared/GUI/EventRole.pm | |
| parent | 3f9f4ab039bc7b3892a5683143ace4e183211c26 (diff) | |
| download | manatools-5257d946c84c1ea5d4b77cf904aa21e4a427e904.tar manatools-5257d946c84c1ea5d4b77cf904aa21e4a427e904.tar.gz manatools-5257d946c84c1ea5d4b77cf904aa21e4a427e904.tar.bz2 manatools-5257d946c84c1ea5d4b77cf904aa21e4a427e904.tar.xz manatools-5257d946c84c1ea5d4b77cf904aa21e4a427e904.zip | |
add parent link to EventHandlerRole move parentDialog
Diffstat (limited to 'lib/ManaTools/Shared/GUI/EventRole.pm')
| -rw-r--r-- | lib/ManaTools/Shared/GUI/EventRole.pm | 23 |
1 files changed, 1 insertions, 22 deletions
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; |