(_create_dialog, create_dialog) let support the same api as new() and

threat transient option

1 files changed, 1 insertions, 0 deletions

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 4b96ced5d..0efd1a0b7 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -359,6 +359,7 @@ sub _create_dialog {
     $dialog->set_position('center-on-parent');  # center-on-parent doesn't work
     $dialog->set_size_request(-1, $o_options->{small} ? -1 : 400);
     $dialog->set_modal(1);
+    $dialog->set_transient_for($o_options->{transient}) if $o_options->{transient};
     $dialog;
 }