diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/LDFM/DialogController.pm | 40 | ||||
| -rw-r--r-- | lib/LDFM/MainController.pm | 3 |
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'); |