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

codetools: improved heuristic for protected properties, bug #14027

Browse Source 
git-svn-id: trunk@20970 -
This commit is contained in:
mattias 2009-07-27 10:06:13 +00:00
parent de301ed56c
commit ff0557c43f
1 changed files with 32 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
components/codetools/identcompletiontool.pas
View File

@ -891,7 +891,7 @@ var
exit(true);
end;
end;
//DebugLn(['ProtectedNodeIsInAllowedClass hidden: ',FindContextToString(FoundContext)]);
DebugLn(['ProtectedNodeIsInAllowedClass hidden: ',FindContextToString(FoundContext)]);
Result:=false;
end;
@ -948,24 +948,36 @@ begin
// identifier is in the same unit
//DebugLn('::: COLLECT IDENT in SELF ',FoundContext.Node.DescAsString,
// ' "',StringToPascalConst(copy(FoundContext.Tool.Src,FoundContext.Node.StartPos,50)),'"'
// ,' '+dbgs(fdfIgnoreUsedUnits in Params.Flags));
// ,' fdfIgnoreUsedUnits='+dbgs(fdfIgnoreUsedUnits in Params.Flags));
end else begin
// identifier is in another unit
if (FoundContext.Node.Parent<>nil) then begin
if (FoundContext.Node.Parent.Desc=ctnClassPrivate) then begin
// skip private definitions in other units
exit;
end;
if (FoundContext.Node.Parent.Desc=ctnClassProtected) then begin
// protected defnitions are only accessible from descendants
if ProtectedNodeIsInAllowedClass then begin
//debugln('TIdentCompletionTool.CollectAllIdentifiers ALLOWED Protected in ANCESTOR '+StringToPascalConst(copy(FoundContext.Tool.Src,FoundContext.Node.StartPos,50)));
end else if (FoundContext.Node.Desc=ctnProperty) then begin
//debugln('TIdentCompletionTool.CollectAllIdentifiers MAYBE Protected made Public '+StringToPascalConst(copy(FoundContext.Tool.Src,FoundContext.Node.StartPos,50)));
end else begin
//debugln('TIdentCompletionTool.CollectAllIdentifiers FORBIDDEN Protected '+StringToPascalConst(copy(FoundContext.Tool.Src,FoundContext.Node.StartPos,50)));
case FoundContext.Node.Parent.Desc of
ctnClassPrivate:
begin
// skip private definitions in other units
if (FoundContext.Node.Desc=ctnProperty) then begin
// private property: maybe the visibility was raised => continue
//debugln('TIdentCompletionTool.CollectAllIdentifiers MAYBE Private made Public '+StringToPascalConst(copy(FoundContext.Tool.Src,FoundContext.Node.StartPos,50)));
end;
exit;
end;
ctnClassProtected:
begin
// protected definitions are only accessible from descendants
// or if visibility was raised (e.g. property)
if ProtectedNodeIsInAllowedClass then begin
// protected node in an ancestor => allowed
//debugln('TIdentCompletionTool.CollectAllIdentifiers ALLOWED Protected in ANCESTOR '+StringToPascalConst(copy(FoundContext.Tool.Src,FoundContext.Node.StartPos,50)));
end else if (FoundContext.Node.Desc=ctnProperty) then begin
// protected property: maybe the visibility was raised => continue
//debugln('TIdentCompletionTool.CollectAllIdentifiers MAYBE Protected made Public '+StringToPascalConst(copy(FoundContext.Tool.Src,FoundContext.Node.StartPos,50)));
end else begin
// otherwise: treat as private
//debugln('TIdentCompletionTool.CollectAllIdentifiers FORBIDDEN Protected '+StringToPascalConst(copy(FoundContext.Tool.Src,FoundContext.Node.StartPos,50)));
exit;
end;
end;
end;
end;
end;
@ -1008,10 +1020,16 @@ begin
if FoundContext.Node.Parent.Desc in [ctnClassPublic,ctnClassPublished]
then
SavePublicPublishedProperty;
// do not show properties without types (e.g. property Color;)
// only show the real definition, which will follow in the ancestor
exit;
end;
if (FoundContext.Node.Parent.Desc in [ctnClassPrivate,ctnClassProtected])
and (FoundContext.Tool<>Self)
and (not PropertyIsOverridenPublicPublish) then begin
// a private/protected property in another unit, that was not
// made public/publish later
// => skip
exit;
end;
end;