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

2 files changed, 42 insertions, 1 deletions

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');