finder-run-files ( alien -- )

Vocabulary

ui.backend.cocoa.tools

Inputs

alien

an object

Outputs

None

Definition

USING: alien.c-types cocoa.application cocoa.messages
cocoa.runtime core-foundation.strings ui.tools.listener ;

IN: ui.backend.cocoa.tools

: finder-run-files ( alien -- )
    CF>string-array listener-run-files
    NSApp NSApplicationDelegateReplySuccess
    { void { id SEL ulong } } "replyToOpenOrPrint:" send ;