From 89b5f5a7166e19a80b1e04c6b0bd7947316239b4 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 23 May 2009 16:32:24 +0200
Subject: dialog

---
 lib/LDFM/DialogController.pm | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 lib/LDFM/DialogController.pm

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

diff --git a/lib/LDFM/DialogController.pm b/lib/LDFM/DialogController.pm
new file mode 100644
index 0000000..7cd7807
--- /dev/null
+++ b/lib/LDFM/DialogController.pm
@@ -0,0 +1,43 @@
+package LDFM::DialogController;
+use utf8;
+use warnings;
+use strict;
+use base 'Gtk2::GladeXML::Simple';
+use Path::Class;
+
+our $VERSION = '0.01';
+
+sub new {
+    my ($class,%params)=@_;
+
+    my $glade_file=dir($params{glade_dir})->file('ldfm-dialog.glade');
+    my $self=$class->SUPER::new($glade_file);
+
+    $self->{domanda}->set_text($params{domanda});
+
+    $self->{risposta}->set_text($params{risposta}||'');
+
+    return $self;
+}
+
+sub run {
+    my ($self)=@_;
+
+    $self->{dialog}->set_default_response('ok');
+
+    my $response=$self->{dialog}->run();
+
+    if ($response eq 'ok') {
+        my $data=$self->{risposta}->get_text();
+        $self->{dialog}->destroy();
+
+        return $data;
+    }
+    else {
+        $self->{dialog}->destroy();
+
+        return;
+    }
+}
+
+1;
-- 
cgit v1.2.3