-> alloc -> init -> setDelegate: ;
: running.app? ( -- ? )
- #! Test if we're running a .app.
- ".app"
+ ! Test if we're running a .app.
NSBundle -> mainBundle -> bundlePath CF>string
- subseq? ;
+ ".app" subseq-of? ;
: assert.app ( message -- )
running.app? [