make-NSTouchBar-button ( self identifier label-string action-string -- button )

Vocabulary

cocoa.touchbar

Inputs

self	an object
identifier	an object
label-string	an object
action-string	an object

Outputs

button

an object

Definition

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

IN: cocoa.touchbar

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