From 08e8f100571f904266437c801a7570f531458cd9 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Mon, 28 Dec 2015 23:17:45 +0100
Subject: MainDisplay now use Moose and Shared::GUI::Dialog

---
 scripts/mpan | 28 +++++++++++++++++++++-------
 1 file changed, 21 insertions(+), 7 deletions(-)

(limited to 'scripts')

diff --git a/scripts/mpan b/scripts/mpan
index 1933baaf..760d771d 100755
--- a/scripts/mpan
+++ b/scripts/mpan
@@ -34,6 +34,18 @@ has 'devel' => (
     documentation => $loc->N('Developers mode'),
 );
 
+has 'name' => (
+    is            => 'ro',
+    isa           => 'Str',
+    documentation => $loc->N('Application name, used for logging identifier and x application configuration directory. Default mpan'),
+);
+
+has 'title' => (
+    is            => 'ro',
+    isa           => 'Str',
+    documentation => $loc->N('Window title. Default name value'),
+);
+
 no Moose;
 __PACKAGE__->meta->make_immutable;
 
@@ -61,19 +73,21 @@ else {
     ask_for_authentication($settings->{priv_method}) if is_root_capability_required();
 }
 
-my $mainWin = new ManaTools::MainDisplay();
+my $param = {};
+
+$param->{title}     = $cmdline->title() if $cmdline->title();
+$param->{name}      = $cmdline->name() if $cmdline->name();
+$param->{configDir} = $cmdline->conf_dir() if $cmdline->conf_dir();
+
+
+my $mainWin = new ManaTools::MainDisplay($param);
 while (1) {
     my $launch = $mainWin->start();
+    $mainWin->cleanup();
 
     if ($launch) {
-        $mainWin->destroy();
         $launch->start();
     }
-    else {
-        $mainWin->destroy();
-        last;
-    }
-    $mainWin->setupGui();
 }
 
 
-- 
cgit v1.2.1