From 0f74633de1706c220343d759b39915f1dd3cff1a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 2 Jun 2020 12:49:25 +0200 Subject: perl_checker cleanups --- draksnapshot-config | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) (limited to 'draksnapshot-config') diff --git a/draksnapshot-config b/draksnapshot-config index 69575a7..91ac3ca 100755 --- a/draksnapshot-config +++ b/draksnapshot-config @@ -248,24 +248,19 @@ sub add { my $browse = gtknew('Button', text => N("browse")); my $file = gtknew('Entry', $o_iter ? (text => $model->get($o_iter, 1)) : ()); my $alrd_exsts = defined $o_iter; - my $filename_choice; $browse->signal_connect(clicked => sub { - my $file_dlg = Gtk3::FileChooserDialog->new(N("Path selection"),$dlg, GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER,N("Cancel") => GTK_RESPONSE_CANCEL,N("OK") => GTK_RESPONSE_OK); + my $file_dlg = Gtk3::FileChooserDialog->new(N("Path selection"), $dlg, GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER, N("Cancel") => GTK_RESPONSE_CANCEL, N("OK") => GTK_RESPONSE_OK); $file_dlg->set_modal(1); $file_dlg->set_transient_for($dlg); $file_dlg->show; $file_dlg->set_filename($file->get_text); my $answer_add=$file_dlg->run; - if ( $answer_add eq 'cancel' ) - { + if ($answer_add eq 'cancel') { $file_dlg->destroy; - } - else - { - if ( $answer_add eq 'ok' ){ - $filename_choice=$file_dlg->get_filename; + } else { + if ($answer_add eq 'ok') { $file->set_text($file_dlg->get_filename); $file_dlg->destroy; } @@ -273,7 +268,7 @@ sub add { }); - gtkpack_($dlg->get_content_area(), + gtkpack_($dlg->get_content_area, 0, gtknew('Title2', label => N("Path")), 0, gtknew('HBox', border_width => 18, children => [ 1, $file, -- cgit v1.2.1