: make-touchbar ( seq self -- touchbar )
[ NSTouchBar -> alloc -> init dup ] dip -> setDelegate: {
- [ swap <CFStringArray> { void { id SEL id } } ?-> setDefaultItemIdentifiers: ]
- [ swap <CFStringArray> { void { id SEL id } } ?-> setCustomizationAllowedItemIdentifiers: ]
+ [ swap <CFStringArray> -> setDefaultItemIdentifiers: ]
+ [ swap <CFStringArray> -> setCustomizationAllowedItemIdentifiers: ]
[ nip ]
} 2cleave ;
:: make-NSTouchBar-button ( self identifier label-string action-string -- button )
NSCustomTouchBarItem -> alloc
- identifier <CFString> { id { id SEL id } } ?-> initWithIdentifier: :> item
+ identifier <CFString> -> initWithIdentifier: :> item
NSButton
label-string <CFString>
self
- action-string lookup-selector { id { id SEL id id SEL } } ?-> buttonWithTitle:target:action: :> button
+ action-string lookup-selector -> buttonWithTitle:target:action: :> button
item button -> setView:
item ;