diff options
Diffstat (limited to 'lib/LDFM/DialogController.pm')
-rw-r--r-- | lib/LDFM/DialogController.pm | 5 |
1 files changed, 4 insertions, 1 deletions
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; } } |