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

codetools: also allow objcprotocol to have external block

Browse Source 
git-svn-id: trunk@33660 -
This commit is contained in:
paul 2011-11-21 00:48:20 +00:00
parent cee09020e8
commit ee10755fa9
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/examples/scanexamples/objctest1.pas
View File

@ -35,6 +35,11 @@ type
private
end;
NSAlertDelegateProtocol = objcprotocol external name 'NSAlertDelegate'
optional
function alertShowHelp(alert: NSAlert): Boolean; message 'alertShowHelp:';
end;
implementation
end.

2
components/codetools/pascalparsertool.pas
View File

@ -3846,7 +3846,7 @@ begin
ReadNextAtom;
end;
end
else if UpAtomIs('EXTERNAL') and (ClassDesc in [ctnObjCClass,ctnObjCCategory]) then
else if UpAtomIs('EXTERNAL') and (ClassDesc in [ctnObjCClass,ctnObjCCategory,ctnObjCProtocol]) then
begin
CreateChildNode;
CurNode.Desc:=ctnClassExternal;