(NewWindow) handle gracefully window stacking for transientness & modal hints

1 files changed, 3 insertions, 0 deletions

diff --git a/userdrake b/userdrake
index fb7ef8a..6bf7d52 100755
--- a/userdrake
+++ b/userdrake
@@ -677,6 +677,9 @@ sub NewWindow {
     my $dialog = gtkset_border_width(_create_dialog($title, { transient_for => $us->{wnd}{real_window} }),
                                 5);
     $dialog->signal_connect(delete_event => sub { $dialog->destroy });
+    my $prev_main_window = $::main_window;
+    $::main_window = $dialog;
+    $dialog->signal_connect(destroy => sub { $::main_window = $prev_main_window });
     $dialog;
 }