paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-20 22:21:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixes for fpc 1.1

Browse Source 
git-svn-id: trunk@2898 -
This commit is contained in:
mattias 2002-08-18 08:55:44 +00:00
parent a5e10aa253
commit 1706df3b73
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -7107,7 +7107,8 @@ begin
if ActiveSrcEdit=nil then exit; if ActiveSrcEdit=nil then exit;
Files:=SourceNoteBook.GetDiffFiles; Files:=SourceNoteBook.GetDiffFiles;
Result:=ShowDiffDialog(Files,ActiveSrcEdit.PageIndex,@SourceNotebook.GetText, Result:=ShowDiffDialog(Files,ActiveSrcEdit.PageIndex,
@SourceNotebook.GetSourceText,
OpenDiffInEditor,DiffText); OpenDiffInEditor,DiffText);
Files.Free; Files.Free;
if OpenDiffInEditor then begin if OpenDiffInEditor then begin
@ -7985,6 +7986,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.489 2003/03/15 13:26:07 mattias
fixes for fpc 1.1
Revision 1.488 2003/03/14 23:27:46 mattias Revision 1.488 2003/03/14 23:27:46 mattias
launching in terminal now keeps terminal open after execution launching in terminal now keeps terminal open after execution