Browse Source

* no pushstatus in DoneDebugger because its called after App.done

pierre 25 years ago
parent
commit
1dbd0d4a64
1 changed files with 7 additions and 3 deletions
  1. 7 3
      ide/text/fpdebug.pas

+ 7 - 3
ide/text/fpdebug.pas

@@ -3029,7 +3029,8 @@ end;
 procedure DoneDebugger;
 begin
 {$ifdef DEBUG}
-  PushStatus('Closing debugger');
+  { PushStatus('Closing debugger');
+    No its called after App.Done !! }
 {$endif}
   if assigned(Debugger) then
    dispose(Debugger,Done);
@@ -3038,7 +3039,7 @@ begin
   If Use_gdb_file then
     Close(GDB_file);
   Use_gdb_file:=false;
-  PopStatus;
+  {PopStatus;}
 {$endif DEBUG}
   {DoneGDBWindow;}
 end;
@@ -3144,7 +3145,10 @@ end.
 
 {
   $Log$
-  Revision 1.48  2000-02-04 14:34:46  pierre
+  Revision 1.49  2000-02-04 23:18:05  pierre
+   * no pushstatus in DoneDebugger because its called after App.done
+
+  Revision 1.48  2000/02/04 14:34:46  pierre
   readme.txt
 
   Revision 1.47  2000/02/04 00:10:58  pierre