diff options
author | Maarten Vanraes <alien@mageia.org> | 2016-05-09 09:09:26 +0200 |
---|---|---|
committer | Maarten Vanraes <alien@mageia.org> | 2016-05-09 10:22:32 +0200 |
commit | da1673f956297f914d1385a5a4f2a53af5f1821c (patch) | |
tree | fa3757674bfdb09d70e045c76a2751cb7f8ebdaf | |
parent | 470a6698586566c09e2321aafbf2327c6afd5f3c (diff) | |
download | manatools-da1673f956297f914d1385a5a4f2a53af5f1821c.tar manatools-da1673f956297f914d1385a5a4f2a53af5f1821c.tar.gz manatools-da1673f956297f914d1385a5a4f2a53af5f1821c.tar.bz2 manatools-da1673f956297f914d1385a5a4f2a53af5f1821c.tar.xz manatools-da1673f956297f914d1385a5a4f2a53af5f1821c.zip |
use the module's title and icon by default
-rw-r--r-- | lib/ManaTools/Shared/GUI/Dialog.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lib/ManaTools/Shared/GUI/Dialog.pm b/lib/ManaTools/Shared/GUI/Dialog.pm index 4406daa8..efb8fab7 100644 --- a/lib/ManaTools/Shared/GUI/Dialog.pm +++ b/lib/ManaTools/Shared/GUI/Dialog.pm @@ -201,13 +201,21 @@ class_has 'popupDialog' => ( has 'title' => ( is => 'ro', isa => 'Str', - required => 1, + lazy => 1, + default => sub { + my $self = shift; + return $self->module->title(); + } ); has 'icon' => ( is => 'ro', isa => 'Str', - required => 1, + lazy => 1, + default => sub { + my $self = shift; + return $self->module->icon(); + } ); class_has 'cancelButton' => ( |