31 lines
1.2 KiB
Factor
31 lines
1.2 KiB
Factor
|
! Copyright (C) 2017 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: accessors alien.enums alien.syntax cocoa cocoa.classes
|
||
|
|
cocoa.messages 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 -> alloc
|
||
|
|
swap <CFStringArray> -> initWithArray: ;
|
||
|
|
|
||
|
|
: make-touchbar ( enum self -- touchbar )
|
||
|
|
[ NSTouchBar -> alloc -> init dup ] dip -> setDelegate: {
|
||
|
|
[ swap enum>CFStringArray -> setDefaultItemIdentifiers: ]
|
||
|
|
[ swap enum>CFStringArray -> setCustomizationAllowedItemIdentifiers: ]
|
||
|
|
[ nip ]
|
||
|
|
} 2cleave ;
|
||
|
|
|
||
|
|
:: make-NSTouchBar-button ( self identifier label-string action-string -- button )
|
||
|
|
NSCustomTouchBarItem -> alloc
|
||
|
|
identifier <CFString> -> initWithIdentifier: :> item
|
||
|
|
NSButton
|
||
|
|
label-string <CFString>
|
||
|
|
self
|
||
|
|
action-string lookup-selector -> buttonWithTitle:target:action: :> button
|
||
|
|
item button -> setView:
|
||
|
|
item ;
|