diff options
| -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' => ( |