paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 01:36:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: save is now possible during debugging

Browse Source 
git-svn-id: trunk@1705 -
This commit is contained in:
lazarus 2002-05-24 07:18:15 +00:00
parent 6f9bcad3bc
commit 3d7a592187
2 changed files with 716 additions and 1463 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2172
components/gtk/gtkglarea/nvgl.pp
View File

File diff suppressed because it is too large Load Diff

7
ide/main.pp
View File

@ -3406,7 +3406,7 @@ begin
writeln('TMainIDE.DoSaveEditorUnit A PageIndex=',PageIndex,' SaveAs=',sfSaveAs in Flags,' SaveToTestDir=',sfSaveToTestDir in Flags);
{$IFDEF IDE_MEM_CHECK}CheckHeap(IntToStr(GetMem_Cnt));{$ENDIF}
Result:=mrCancel;
if ToolStatus<>itNone then begin
if not (ToolStatus in [itNone,itDebugger]) then begin
Result:=mrAbort;
exit;
end;
@ -3962,7 +3962,7 @@ var MainUnitSrcEdit: TSourceEditor;
i: integer;
begin
Result:=mrCancel;
if ToolStatus<>itNone then begin
if not (ToolStatus in [itNone,itDebugger]) then begin
Result:=mrAbort;
exit;
end;
@ -6372,6 +6372,9 @@ end.
{ =============================================================================
$Log$
Revision 1.299 2002/05/24 07:18:14 lazarus
MG: save is now possible during debugging
Revision 1.298 2002/05/16 15:51:48 lazarus
MG: closing editor now switches to left editor