running.app? ( -- ? )

Vocabulary

cocoa.application

Inputs

None

Outputs

?

an object

Definition

USING: cocoa.classes cocoa.messages cocoa.runtime
core-foundation.strings sequences ;

IN: cocoa.application

: running.app? ( -- ? )
    NSBundle { id { id SEL } } "mainBundle" send
    { id { id SEL } } "bundlePath" send
    CF>string ".app" subseq-of? ;