install-delegate ( receiver delegate -- )
Cocoa bridge » Cocoa application utilities

Prev:	remove-observer ( observer -- )
Next:	cocoa-app ( quot -- )

Vocabulary
cocoa.application

Inputs

receiver	an NSObject
delegate	an Objective C class

Outputs
None

Word description
Sets the receiver's delegate to a new instance of the delegate class.

Definition

USING: alien.c-types cocoa.messages cocoa.runtime ;

IN: cocoa.application

: install-delegate ( receiver delegate -- )
    { id { id SEL } } "alloc" send { id { id SEL } } "init" send
    { void { id SEL id } } "setDelegate:" send ;