* Improved modal form in X11 to use net window hints

* Implemented NET_WM_PING so newer window managers can kill our process if it stops responding
* Changed how Modal form are stored. fpgApplication now keeps a stack/list of Modal Forms
* Added fpgApplication PushModalForm and PopModalForm
* Fixed a bug in WindowAddProtocol which caused a libc doublefree error

1 files changed, 2 insertions, 1 deletions

diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpgfx.pas
index e67989b4..9975e795 100644
--- a/src/corelib/fpgfx.pas
+++ b/src/corelib/fpgfx.pas
@@ -592,7 +592,7 @@ begin
   FDisplayParams  := aparams;
   FScreenWidth    := -1;
   FScreenHeight   := -1;
-  TopModalForm   := nil;
+  FModalFormStack := TList.Create;
 
   inherited Create(aparams);
   
@@ -617,6 +617,7 @@ begin
 
   FFontResList.Free;
   FDefaultFont.Free;
+  FreeAndNil(FModalFormStack);
   inherited Destroy;
 end;