55 lines
1.9 KiB
Factor
55 lines
1.9 KiB
Factor
USING: debugger quotations help.markup help.syntax strings alien
|
|
core-foundation core-foundation.strings core-foundation.arrays ;
|
|
IN: cocoa.application
|
|
|
|
HELP: <NSString>
|
|
{ $values { "str" string } { "alien" alien } }
|
|
{ $description "Allocates an autoreleased " { $snippet "CFString" } "." } ;
|
|
|
|
{ <NSString> <CFString> CF>string } related-words
|
|
|
|
HELP: with-autorelease-pool
|
|
{ $values { "quot" quotation } }
|
|
{ $description "Sets up a new " { $snippet "NSAutoreleasePool" } ", calls the quotation and frees the pool." } ;
|
|
|
|
HELP: NSApp
|
|
{ $values { "app" "an " { $snippet "NSApplication" } } }
|
|
{ $description "Pushes the current " { $snippet "NSApplication" } " singleton." } ;
|
|
|
|
HELP: with-cocoa
|
|
{ $values { "quot" quotation } }
|
|
{ $description "Sets up an autorelease pool, initializes the " { $snippet "NSApplication" } " singleton, and calls the quotation." } ;
|
|
|
|
HELP: cocoa-app
|
|
{ $values { "quot" quotation } }
|
|
{ $description "Initializes Cocoa, calls the quotation, and starts the Cocoa event loop." } ;
|
|
|
|
HELP: add-observer
|
|
{ $values { "observer" "an " { $snippet "NSObject" } } { "selector" string } { "name" "an " { $snippet "NSString" } } { "object" "an " { $snippet "NSObject" } } }
|
|
{ $description "Registers an observer with the " { $snippet "NSNotificationCenter" } " singleton." } ;
|
|
|
|
HELP: remove-observer
|
|
{ $values { "observer" "an " { $snippet "NSObject" } } }
|
|
{ $description "Unregisters an observer from the " { $snippet "NSNotificationCenter" } " singleton." } ;
|
|
|
|
HELP: install-delegate
|
|
{ $values { "receiver" "an " { $snippet "NSObject" } } { "delegate" "an Objective C class" } }
|
|
{ $description "Sets the receiver's delegate to a new instance of the delegate class." } ;
|
|
|
|
ARTICLE: "cocoa-application-utils" "Cocoa application utilities"
|
|
"Utilities:"
|
|
{ $subsections
|
|
NSApp
|
|
add-observer
|
|
remove-observer
|
|
install-delegate
|
|
}
|
|
"Combinators:"
|
|
{ $subsections
|
|
cocoa-app
|
|
with-autorelease-pool
|
|
with-cocoa
|
|
} ;
|
|
|
|
ABOUT: "cocoa-application-utils"
|