make-touchbar ( seq self -- touchbar )

Vocabulary

cocoa.touchbar

Inputs

seq	an object
self	an object

Outputs

touchbar

an object

Definition

USING: alien.c-types cocoa.classes cocoa.messages cocoa.runtime
combinators core-foundation.strings kernel ;

IN: cocoa.touchbar

: make-touchbar ( seq self -- touchbar )
    [
        NSTouchBar { id { id SEL } } "alloc" send
        { id { id SEL } } "init" send dup
    ] dip { void { id SEL id } } "setDelegate:" send {
        [
            swap <CFStringArray>
            { void { id SEL id } } "setDefaultItemIdentifiers:"
            send
        ]
        [
            swap <CFStringArray>
            { void { id SEL id } }
            "setCustomizationAllowedItemIdentifiers:" send
        ]
        [ nip ]
    } 2cleave ;