You've already forked lazarus-ccr
e0fa0aa096
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@352 8e941d3f-bd1b-0410-a28a-d453659cc2b4
27 lines
769 B
PHP
27 lines
769 B
PHP
|
|
constructor NSApplication.sharedApplication;
|
|
begin
|
|
ClassId := objc_getClass(PChar(Str_NSApplication));
|
|
Handle := objc_msgSend(ClassId, sel_registerName(PChar(Str_sharedApplication)), []);
|
|
end;
|
|
|
|
procedure NSApplication.run;
|
|
begin
|
|
objc_msgSend(Handle, sel_registerName(PChar(Str_run)), []);
|
|
end;
|
|
|
|
function NSApplication.runModalForWindow(theWindow: NSWindow): cint;
|
|
begin
|
|
Result := cint(objc_msgSend(Handle, sel_registerName(PChar(Str_runModalForWindow)), [theWindow.Handle]));
|
|
end;
|
|
|
|
{@interface NSApplication(NSStandardAboutPanel)}
|
|
|
|
procedure NSApplication.orderFrontStandardAboutPanelWithOptions(optionsDictionary: Pointer);
|
|
begin
|
|
objc_msgSend(Handle, sel_registerName(PChar(Str_orderFrontStandardAboutPanelWithOptions)), [optionsDictionary]);
|
|
end;
|
|
|
|
{@end}
|
|
|