From 402b944d4b3f91d5dd3088311f6ee42a3bc471fc Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 22 Sep 1999 16:18:19 +0000
Subject: [PATCH]  + TIDEApp.DoCloseUserScreenWindow

---
 ide/text/fpmdebug.inc | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/ide/text/fpmdebug.inc b/ide/text/fpmdebug.inc
index af4aa0901c..5566c8b8a8 100644
--- a/ide/text/fpmdebug.inc
+++ b/ide/text/fpmdebug.inc
@@ -24,6 +24,12 @@ begin
   UserScreenWindow^.MakeFirst;
 end;
 
+procedure TIDEApp.DoCloseUserScreenWindow;
+begin
+  if Assigned(UserScreenWindow) then
+    Message(UserScreenWindow,evCommand,cmClose,nil);
+end;
+
 procedure TIDEApp.DoUserScreen;
 begin
   if UserScreen=nil then
@@ -119,7 +125,10 @@ end;
 
 {
   $Log$
-  Revision 1.8  1999-09-09 14:20:05  pierre
+  Revision 1.9  1999-09-22 16:18:19  pierre
+   + TIDEApp.DoCloseUserScreenWindow
+
+  Revision 1.8  1999/09/09 14:20:05  pierre
    + Stack Window
 
   Revision 1.7  1999/07/28 23:11:19  peter