mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 14:32:42 +02:00
49 lines
980 B
ObjectPascal
49 lines
980 B
ObjectPascal
unit objctest1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$modeswitch objectivec2}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
NSSomeObject = objcclass(NSObject)
|
|
procedure method_(params: Integer); message 'method:';
|
|
class procedure classmethod_(para: char); override; // "message 'classmethod:'" not required, compiler will get this from the parent class
|
|
end;
|
|
|
|
type
|
|
ObjCClassName1 = objcclass
|
|
private
|
|
end;
|
|
|
|
ObjCClassName2 = objcclass external name 'ExternalClassName' (ObjCSuperClassName, ProtocolName)
|
|
private
|
|
end;
|
|
|
|
ObjCClassName3 = objcclass external (ObjCSuperClassName)
|
|
private
|
|
end;
|
|
|
|
ObjCClassName4 = objcclass external
|
|
private
|
|
end;
|
|
|
|
ObjCClassName5 = objcclass (ObjCSuperClassName)
|
|
private
|
|
end;
|
|
|
|
NSDockTilePlugInProtocol = objcprotocol external name 'NSDockTilePlugIn'
|
|
required
|
|
procedure setDockTile(dockTile: NSDockTile); message 'setDockTile:';
|
|
optional
|
|
function dockMenu: NSMenu; message 'dockMenu';
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|