diff --git a/basis/cocoa/touchbar/touchbar.factor b/basis/cocoa/touchbar/touchbar.factor index e040840b93..a467dc47f6 100644 --- a/basis/cocoa/touchbar/touchbar.factor +++ b/basis/cocoa/touchbar/touchbar.factor @@ -7,17 +7,17 @@ IN: cocoa.touchbar : make-touchbar ( seq self -- touchbar ) [ NSTouchBar -> alloc -> init dup ] dip -> setDelegate: { - [ swap { void { id SEL id } } ?-> setDefaultItemIdentifiers: ] - [ swap { void { id SEL id } } ?-> setCustomizationAllowedItemIdentifiers: ] + [ swap -> setDefaultItemIdentifiers: ] + [ swap -> setCustomizationAllowedItemIdentifiers: ] [ nip ] } 2cleave ; :: make-NSTouchBar-button ( self identifier label-string action-string -- button ) NSCustomTouchBarItem -> alloc - identifier { id { id SEL id } } ?-> initWithIdentifier: :> item + identifier -> initWithIdentifier: :> item NSButton label-string 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 ;