diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-06-02 12:49:25 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-06-02 12:51:11 +0200 |
| commit | 0f74633de1706c220343d759b39915f1dd3cff1a (patch) | |
| tree | adf70be24a5fb4199abaa07feb2bf795c99d7f68 | |
| parent | 48247ff428e90335c4bae5feede5654e672a4e03 (diff) | |
| download | draksnapshot-0f74633de1706c220343d759b39915f1dd3cff1a.tar draksnapshot-0f74633de1706c220343d759b39915f1dd3cff1a.tar.gz draksnapshot-0f74633de1706c220343d759b39915f1dd3cff1a.tar.bz2 draksnapshot-0f74633de1706c220343d759b39915f1dd3cff1a.tar.xz draksnapshot-0f74633de1706c220343d759b39915f1dd3cff1a.zip | |
perl_checker cleanups
| -rwxr-xr-x | draksnapshot-config | 15 |
1 files changed, 5 insertions, 10 deletions
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, |