1 ! Copyright (C) 2017 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types cocoa cocoa.classes cocoa.messages
4 cocoa.runtime combinators core-foundation.strings kernel locals
8 : make-touchbar ( seq self -- touchbar )
9 [ NSTouchBar -> alloc -> init dup ] dip -> setDelegate: {
10 [ swap <CFStringArray> { void { id SEL id } } ?-> setDefaultItemIdentifiers: ]
11 [ swap <CFStringArray> { void { id SEL id } } ?-> setCustomizationAllowedItemIdentifiers: ]
15 :: make-NSTouchBar-button ( self identifier label-string action-string -- button )
16 NSCustomTouchBarItem -> alloc
17 identifier <CFString> { id { id SEL id } } ?-> initWithIdentifier: :> item
19 label-string <CFString>
21 action-string lookup-selector { id { id SEL id id SEL } } ?-> buttonWithTitle:target:action: :> button
22 item button -> setView: