From 630f7a659458c396798efb8aa99fab941d34354f Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Sat, 23 Dec 2017 20:53:11 +0000
Subject: [PATCH] LCL: GTK2: transient form when called from modal form and
 PopupMode <> pmNone.

git-svn-id: trunk@56834 -
---
 lcl/interfaces/gtk2/gtk2wsforms.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/interfaces/gtk2/gtk2wsforms.pp b/lcl/interfaces/gtk2/gtk2wsforms.pp
index 40e704228d..36fb2f751b 100644
--- a/lcl/interfaces/gtk2/gtk2wsforms.pp
+++ b/lcl/interfaces/gtk2/gtk2wsforms.pp
@@ -713,6 +713,8 @@ var
       // lcl_nonmodal_over_modal is needed to track nonmodal form
       // created and shown when we have active modal forms
       g_object_set_data(PGObject(AWindow),'lcl_nonmodal_over_modal', AForm);
+      if (AForm.PopupMode <> pmNone) and (AForm.PopupParent <> nil) then
+        gtk_window_set_transient_for(AWindow, PGtkWindow(AForm.Handle));
       Result := True;
     end;
   end;