1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{ %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.
|
