From 126c23f49de6e8fa86e92846ff81c0cb33c27d43 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Sat, 12 Apr 2008 10:09:42 +0000
Subject: Minor bugfix in gui_forms where PopModalForm is called twice.

---
 src/gui/gui_form.pas | 2 --
 1 file changed, 2 deletions(-)

(limited to 'src')

diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas
index f5680e25..5907a83e 100644
--- a/src/gui/gui_form.pas
+++ b/src/gui/gui_form.pas
@@ -334,8 +334,6 @@ end;
 
 procedure TfpgForm.Hide;
 begin
-  if (fpgApplication.TopModalForm = self) then
-    fpgApplication.PopModalForm;
   HandleHide;
   if ModalResult = 0 then
     ModalResult := -1;
-- 
cgit v1.2.3-70-g09d2