paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-23 14:36:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid to give the same core to all new files

Browse Source
This commit is contained in:
pierre 2001-09-27 22:29:12 +00:00
parent 51c47798f5
commit 0abf95320f
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/fpviews.pas
View File

@ -1095,7 +1095,9 @@ begin
end;
begin
EC:=nil;
Desktop^.FirstThat(@Check);
{ do not use the same core for all new files }
if AFileName<>'' then
Desktop^.FirstThat(@Check);
SearchCoreForFileName:=EC;
end;
@ -1685,7 +1687,9 @@ begin
begin
if Editor^.LoadFile=false then
ErrorBox(FormatStrStr(msg_errorreadingfile,AFileName),nil)
else if Editor^.GetModified then
{ warn if modified, but not if modified in another
already open window PM }
else if Editor^.GetModified and (Editor^.Core^.GetBindingCount=1) then
begin
PA[1]:=@AFileName;
longint(PA[2]):={Editor^.ChangedLine}-1;
@ -4177,7 +4181,10 @@ end;
END.
{
$Log$
Revision 1.6 2001-09-25 22:46:50 pierre
Revision 1.7 2001-09-27 22:29:12 pierre
* avoid to give the same core to all new files
Revision 1.6 2001/09/25 22:46:50 pierre
highlight i386 movw in asm code correctly
Revision 1.5 2001/08/29 23:28:20 pierre