From def6be738e34d5ff5d4679a96d25c137aac31e31 Mon Sep 17 00:00:00 2001
From: Andrew Haines <andrewd207@aol.com>
Date: Sun, 1 Feb 2015 09:37:07 -0500
Subject: Changes to allow modal windows to have owners.

---
 src/gui/fpg_menu.pas | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/gui/fpg_menu.pas')

diff --git a/src/gui/fpg_menu.pas b/src/gui/fpg_menu.pas
index ee345927..3310db48 100644
--- a/src/gui/fpg_menu.pas
+++ b/src/gui/fpg_menu.pas
@@ -1341,6 +1341,7 @@ end;
 
 constructor TfpgPopupMenu.Create(AOwner: TComponent);
 begin
+  FWindowType:=wtPopup;
   inherited Create(AOwner);
   FMargin     := 3;
   FTextMargin := 3;
-- 
cgit v1.2.3-70-g09d2