From f4e8bb9560428781dff219eff11a34df59d84f4a Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@fcb26f47-9200-0410-b104-b98ab5b095f3>
Date: Thu, 24 Nov 2005 09:53:40 +0000
Subject:  r801@narval2:  dakkar | 2005-11-19 18:38:19 +0100  tentativo di
 dialog con Glade

git-svn-id: svn://luxion/repos/GtkPerlFileManager/trunk@46 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 lib/LDFM/DialogController.pm | 40 ++++++++++++++++++++++++++++++++++++++++
 lib/LDFM/MainController.pm   |  3 ++-
 2 files changed, 42 insertions(+), 1 deletion(-)
 create mode 100644 lib/LDFM/DialogController.pm

(limited to 'lib')

diff --git a/lib/LDFM/DialogController.pm b/lib/LDFM/DialogController.pm
new file mode 100644
index 0000000..eb4936a
--- /dev/null
+++ b/lib/LDFM/DialogController.pm
@@ -0,0 +1,40 @@
+package LDFM::MainController;
+use utf8;
+use warnings;
+use strict;
+use base 'Gtk2::GladeXML::Simple';
+
+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 {
+        return;
+    }
+}
+
+1;
diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm
index 2f573cc..09639c4 100644
--- a/lib/LDFM/MainController.pm
+++ b/lib/LDFM/MainController.pm
@@ -12,7 +12,8 @@ our $VERSION = '0.01';
 sub new {
     my ($class,%params)=@_;
 
-    my $self=$class->SUPER::new($params{glade_file});
+    my $glade_file=dir($params{glade_dir})->file('ldfm-main.glade');
+    my $self=$class->SUPER::new($glade_file);
 
     # cambio le liste con qualcosa di più comodo
     $self->simplify_list('left');
-- 
cgit v1.2.3