cocoa.touchbar: another experiment for the 10.11 build machine.
NSButton.buttonWithTitle:target:action: is 10.12 and later.paths
							parent
							
								
									ade70ab813
								
							
						
					
					
						commit
						1bffdff33a
					
				| 
						 | 
				
			
			@ -12,6 +12,8 @@ IN: cocoa.touchbar
 | 
			
		|||
        [ nip ]
 | 
			
		||||
    } 2cleave ;
 | 
			
		||||
 | 
			
		||||
{ id { id SEL id id SEL } } cache-stubs
 | 
			
		||||
 | 
			
		||||
:: make-NSTouchBar-button ( self identifier label-string action-string -- button )
 | 
			
		||||
    NSCustomTouchBarItem -> alloc
 | 
			
		||||
        identifier <CFString> { id { id SEL id } } ?-> initWithIdentifier: :> item
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue