mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-06 16:16:03 +02:00
40a9762ac6
conflicts in case a protocol is adopted by classes in multiple object
files part of the same binary (mantis #20875)
git-svn-id: trunk@19865 -
25 lines
310 B
ObjectPascal
25 lines
310 B
ObjectPascal
unit uw20875a;
|
|
|
|
{$MODE Delphi}
|
|
{$modeswitch ObjectiveC1}
|
|
|
|
interface
|
|
|
|
uses
|
|
CocoaAll;
|
|
|
|
type
|
|
TController1 = objcclass(NSWindowController, NSWindowDelegateProtocol)
|
|
public
|
|
function init : id; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
function TController1.init : id;
|
|
begin
|
|
Result := inherited init;
|
|
end;
|
|
|
|
end.
|