supported-ns-images-utt ( -- seq )

Vocabulary

images.loader.cocoa

Inputs

None

Outputs

seq

an object

Definition

USING: assocs cocoa.classes cocoa.enumeration cocoa.messages
cocoa.plists.private cocoa.runtime core-foundation.strings
kernel ;

IN: images.loader.cocoa

: supported-ns-images-utt ( -- seq )
    NSImage { id { id SEL } } "imageTypes" send
    [ [ CF>string ] NSFastEnumeration-map ] [
        [ UTTypeCopyDeclaration (plist-NSDictionary>) ]
        NSFastEnumeration-map
    ] bi zip ;