From c1c701655d4555e9a655ab794e057645a7788bb7 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 26 Aug 2002 13:02:15 +0000
Subject: [PATCH]  * avoid a crash with fvision

---
 ide/fpide.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ide/fpide.pas b/ide/fpide.pas
index 572a9b21e6..96f6dd98d6 100644
--- a/ide/fpide.pas
+++ b/ide/fpide.pas
@@ -452,7 +452,7 @@ begin
       nil))))))))),
     nil)))))))))))));
   DisableCommands(EditorCmds+SourceCmds+CompileCmds);
-  Update;
+  // Update; Desktop is still nil at that point ...
 end;
 
 procedure TIDEApp.InitStatusLine;
@@ -1216,7 +1216,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.16  2002-08-13 08:59:12  pierre
+  Revision 1.17  2002-08-26 13:02:15  pierre
+   * avoid a crash with fvision
+
+  Revision 1.16  2002/08/13 08:59:12  pierre
    + Run menu changes depending on wether the debuggee is running or not
 
   Revision 1.15  2002/07/12 14:17:39  pierre