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;