cocoa: change ?-> to always cache stubs in syntax word.
							parent
							
								
									1bffdff33a
								
							
						
					
					
						commit
						5e18e609b3
					
				| 
						 | 
				
			
			@ -14,7 +14,7 @@ SYMBOL: sent-messages
 | 
			
		|||
 | 
			
		||||
SYNTAX: -> scan-token dup remember-send suffix! \ send suffix! ;
 | 
			
		||||
 | 
			
		||||
SYNTAX: ?-> scan-token dup remember-send suffix! \ ?send suffix! ;
 | 
			
		||||
SYNTAX: ?-> dup last cache-stubs scan-token dup remember-send suffix! \ ?send suffix! ;
 | 
			
		||||
 | 
			
		||||
SYNTAX: SEL:
 | 
			
		||||
    scan-token
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -94,7 +94,7 @@ MACRO:: (?send) ( effect selector super? -- quot )
 | 
			
		|||
    selector dup ?lookup-method effect or super?
 | 
			
		||||
    [ make-prepare-send ] 2keep
 | 
			
		||||
    super-message-senders message-senders ? get at
 | 
			
		||||
    [ 1quotation append ] [ effect selector sender-stub 1quotation append ] if* ;
 | 
			
		||||
    1quotation append ;
 | 
			
		||||
 | 
			
		||||
: ?send ( receiver args... selector effect -- return... ) f (?send) ; inline
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -12,8 +12,6 @@ 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