aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMaarten Vanraes <alien@mageia.org>2016-05-09 09:09:26 +0200
committerMaarten Vanraes <alien@mageia.org>2016-05-09 10:22:32 +0200
commitda1673f956297f914d1385a5a4f2a53af5f1821c (patch)
treefa3757674bfdb09d70e045c76a2751cb7f8ebdaf
parent470a6698586566c09e2321aafbf2327c6afd5f3c (diff)
downloadmanatools-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.pm12
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' => (