mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 19:48:31 +02:00
23 lines
344 B
ObjectPascal
23 lines
344 B
ObjectPascal
{ Written by Jonas Maebe in 2010, released into the public domain }
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch objectivec1}
|
|
|
|
unit uobjc35e;
|
|
|
|
interface
|
|
|
|
type
|
|
MyExternalClass = objcclass(NSObject)
|
|
function myTest: longint; message 'myTest';
|
|
end;
|
|
|
|
implementation
|
|
|
|
function MyExternalClass.myTest: longint;
|
|
begin
|
|
result:=1234;
|
|
end;
|
|
|
|
end.
|