fixed mpan icon

1 files changed, 8 insertions, 2 deletions

diff --git a/lib/ManaTools/MainDisplay.pm b/lib/ManaTools/MainDisplay.pm
index c6e3d010..b329a8c9 100644
--- a/lib/ManaTools/MainDisplay.pm
+++ b/lib/ManaTools/MainDisplay.pm
@@ -120,6 +120,8 @@ has '+name' => (
 );
 
 has '+icon' => (
+    is      => 'rw',
+    isa     => 'Str',
     default => File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/mageia.png'),
 );
 
@@ -381,9 +383,7 @@ sub _setupGui {
 
     $DB::single = 1;
     $self->title($self->settings()->{title});
-    yui::YUI::app()->setApplicationTitle($self->title);
     $self->icon($self->settings()->{icon}) if $self->settings()->{icon};
-    yui::YUI::app()->setApplicationIcon($self->icon);
 
     my $dialog = ManaTools::Shared::GUI::Dialog->new(
         module => $self,
@@ -502,6 +502,12 @@ sub _setupGui {
             $module->rightPaneFrame()->setLabel($module->currCategory()->name());
             $factory->createSpacing($module->rightPane(), 1, 1, 1.0 );
 
+            # Note that Since mpan is a Manatools::Module and creates other modules
+            # title and application are set into BUILD (e.g. constructor) so last
+            # built one is the one shown. Forcing setting again here
+            yui::YUI::app()->setApplicationTitle($self->title);
+            yui::YUI::app()->setApplicationIcon($self->icon);
+
             return $self->widget('layout');
         },
     );