with-cocoa ( quot -- ) (original) (raw)

with-cocoa ( quot -- )
Cocoa bridge » Cocoa application utilities

Vocabulary
cocoa.application

Inputs

Outputs
None

Word description
Sets up an autorelease pool, initializes the NSApplication singleton, and calls the quotation.

Definition

USING: kernel ;

IN: cocoa.application

: with-cocoa ( quot -- )
[ NSApp drop call ] with-autorelease-pool ; inline