From b0ff1d8a95e962e927716be31694c5977a0c9dd3 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@fcb26f47-9200-0410-b104-b98ab5b095f3>
Date: Thu, 24 Nov 2005 09:53:41 +0000
Subject:  r802@narval2:  dakkar | 2005-11-19 18:50:31 +0100  finiti i dialog e
 tutte le funzioni

git-svn-id: svn://luxion/repos/GtkPerlFileManager/trunk@47 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 lib/LDFM/DialogController.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib/LDFM/DialogController.pm')

diff --git a/lib/LDFM/DialogController.pm b/lib/LDFM/DialogController.pm
index eb4936a..7cd7807 100644
--- a/lib/LDFM/DialogController.pm
+++ b/lib/LDFM/DialogController.pm
@@ -1,8 +1,9 @@
-package LDFM::MainController;
+package LDFM::DialogController;
 use utf8;
 use warnings;
 use strict;
 use base 'Gtk2::GladeXML::Simple';
+use Path::Class;
 
 our $VERSION = '0.01';
 
@@ -33,6 +34,8 @@ sub run {
         return $data;
     }
     else {
+        $self->{dialog}->destroy();
+
         return;
     }
 }
-- 
cgit v1.2.3