paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-05 19:46:15 +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

11
ide/fpviews.pas
View File

@ -1095,6 +1095,8 @@ begin
end; end;
begin begin
EC:=nil; EC:=nil;
{ do not use the same core for all new files }
if AFileName<>'' then
Desktop^.FirstThat(@Check); Desktop^.FirstThat(@Check);
SearchCoreForFileName:=EC; SearchCoreForFileName:=EC;
end; end;
@ -1685,7 +1687,9 @@ begin
begin begin
if Editor^.LoadFile=false then if Editor^.LoadFile=false then
ErrorBox(FormatStrStr(msg_errorreadingfile,AFileName),nil) 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 begin
PA[1]:=@AFileName; PA[1]:=@AFileName;
longint(PA[2]):={Editor^.ChangedLine}-1; longint(PA[2]):={Editor^.ChangedLine}-1;
@ -4177,7 +4181,10 @@ end;
END. END.
{ {
$Log$ $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 highlight i386 movw in asm code correctly
Revision 1.5 2001/08/29 23:28:20 pierre Revision 1.5 2001/08/29 23:28:20 pierre