From 2cbd2456cf6da8086b747e9b533cb4e2e673bcc4 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 1 Feb 2000 10:58:41 +0000
Subject: [PATCH]  * avoid Search sometimes disabled for Editor Windows

---
 ide/text/fpviews.pas | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/ide/text/fpviews.pas b/ide/text/fpviews.pas
index a29a226593..7c6420754d 100644
--- a/ide/text/fpviews.pas
+++ b/ide/text/fpviews.pas
@@ -196,10 +196,6 @@ type
       function    GetPalette: PPalette;virtual;
       constructor Load(var S: TStream);
       procedure   Store(var S: TStream);
-
-
-
-
       destructor  Done; virtual;
     end;
 
@@ -1265,8 +1261,8 @@ var OldState: word;
 begin
   OldState:=State;
   inherited SetState(AState,Enable);
-  if ((AState xor State) and sfActive)<>0 then
-  UpdateCommands;
+  if ((AState xor OldState) and sfActive)<>0 then
+    UpdateCommands;
 end;
 
 procedure TSourceWindow.UpdateCommands;
@@ -1399,7 +1395,7 @@ begin
   if ExistsFile(GDBOutputFile) then
     begin
       if Editor^.LoadFile=false then
-        ErrorBox(#3'Error reading file.',nil);
+        ErrorBox(#3'Error reading file'#13#3+GDBOutputFile,nil);
     end
   else
   { Empty files are buggy !! }
@@ -3078,7 +3074,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.54  2000-01-10 14:59:50  pierre
+  Revision 1.55  2000-02-01 10:58:41  pierre
+   * avoid Search sometimes disabled for Editor Windows
+
+  Revision 1.54  2000/01/10 14:59:50  pierre
    * TProgramInfo was not registered
 
   Revision 1.53  2000/01/07 14:02:52  pierre