From 38eecb3d36019569131da37fd2e5ae152f611684 Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Sat, 23 Dec 2017 19:52:48 +0000
Subject: [PATCH] LCL: GTK2: Fixed form freezes with BorderStyle
 bsSizeToolWin/bsToolWindow, if opened from modal form.

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

diff --git a/lcl/interfaces/gtk2/gtk2wsforms.pp b/lcl/interfaces/gtk2/gtk2wsforms.pp
index 6e17fbe221..f768b57758 100644
--- a/lcl/interfaces/gtk2/gtk2wsforms.pp
+++ b/lcl/interfaces/gtk2/gtk2wsforms.pp
@@ -706,7 +706,7 @@ var
       (AForm.Parent = nil) and
       (AForm.FormStyle <> fsMDIChild) and
       (ModalWindows <> nil) and (ModalWindows.Count > 0) and
-      (AForm.BorderStyle in [bsDialog, bsSingle, bsSizeable]) and
+      (AForm.BorderStyle in [bsDialog, bsSingle, bsSizeable, bsSizeToolWin, bsToolWindow]) and
       (AForm.PopupParent = nil) and (AForm.PopupMode = pmNone) then
     begin
       AWindow := {%H-}PGtkWindow(AForm.Handle);