! Copyright (C) 2017 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.enums alien.syntax cocoa
cocoa.classes cocoa.messages cocoa.runtime combinators
core-foundation.strings kernel locals namespaces sequences words ;
IN: cocoa.touchbar

! ui.backend.cocoa.views creates buttons for each of these actions
ENUM: default-touchbar refresh-all-action auto-use-action ;

: enum>CFStringArray ( seq -- alien )
    enum>keys
    NSArray send: alloc
        swap <CFStringArray> send: \initWithArray: ;

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

:: make-NSTouchBar-button ( self identifier label-string action-string -- button )
    NSCustomTouchBarItem send: alloc
        identifier <CFString> { id { id SEL id } } ?send: \initWithIdentifier: :> item
        NSButton
            label-string <CFString>
            self
            action-string lookup-selector { id { id SEL id id SEL } } ?send: \buttonWithTitle:target:action: :> button
        item button send: \setView:
        item ;