mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 08:10:31 +02:00
fe90823b01
* only check whether the message identifier of an Objective-C method
matches the one from a method with the same name in a parent class
if the parameters match (todo: should be refined to "if the
encoded Objective-C selector names match")
git-svn-id: trunk@22373 -
30 lines
478 B
ObjectPascal
30 lines
478 B
ObjectPascal
{ %target=darwin }
|
|
{ %opt=norun }
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch objectivec1}
|
|
program Main;
|
|
|
|
type
|
|
NSView = objcclass(NSObject)
|
|
procedure setNeedsDisplay (flag: boolean); message 'setNeedsDisplay:';
|
|
end;
|
|
|
|
type
|
|
NSViewUtilities = objccategory (NSView)
|
|
procedure setNeedsDisplay; message 'setNeedsDisplay'; overload;
|
|
end;
|
|
|
|
procedure NSView.setNeedsDisplay (flag: boolean);
|
|
begin
|
|
end;
|
|
|
|
procedure NSViewUtilities.setNeedsDisplay;
|
|
begin
|
|
setNeedsDisplay(true);
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|