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

* avoid closing the StackWindow too early

Browse Source
This commit is contained in:
pierre 2000-02-07 23:40:38 +00:00
parent 674c5c53c2
commit 05eefcc78d
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/text/fpviews.pas
View File

@ -1771,11 +1771,15 @@ begin
W:=TryToOpenFile(nil,P^.GetModuleName,Col,Row,true); W:=TryToOpenFile(nil,P^.GetModuleName,Col,Row,true);
if assigned(W) then if assigned(W) then
begin begin
Message(Owner,evCommand,cmClose,nil); { Message(Owner,evCommand,cmClose,nil);
This calls close on StackWindow
rendering P invalid
so postpone it PM }
W^.GetExtent(R); W^.GetExtent(R);
if (P^.TClass<>0) then if (P^.TClass<>0) then
W^.Editor^.SetErrorMessage(P^.GetText(R.B.X-R.A.X)); W^.Editor^.SetErrorMessage(P^.GetText(R.B.X-R.A.X));
W^.Select; W^.Select;
Message(Owner,evCommand,cmClose,nil);
end; end;
Desktop^.UnLock; Desktop^.UnLock;
end; end;
@ -3213,7 +3217,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.59 2000-02-07 10:36:43 michael Revision 1.60 2000-02-07 23:40:38 pierre
* avoid closing the StackWindow too early
Revision 1.59 2000/02/07 10:36:43 michael
+ Something went wrong when unzipping + Something went wrong when unzipping
Revision 1.58 2000/02/06 23:42:47 pierre Revision 1.58 2000/02/06 23:42:47 pierre