set-pasteboard-types ( seq pasteboard -- )

Vocabulary

cocoa.pasteboard

Inputs

seq	an object
pasteboard	an object

Outputs

None

Definition

USING: alien.c-types cocoa.messages cocoa.runtime
core-foundation.arrays kernel ;

IN: cocoa.pasteboard

: set-pasteboard-types ( seq pasteboard -- )
    swap <CFArray> { id { id SEL } } "autorelease" send f
    { long { id SEL id id } } "declareTypes:owner:" send drop ;