cocoa.messages: add super-sender for completeness.
parent
71558515cb
commit
fe952b2f8e
|
@ -61,10 +61,15 @@ ERROR: no-objc-method name ;
|
||||||
: lookup-method ( selector -- method )
|
: lookup-method ( selector -- method )
|
||||||
dup ?lookup-method [ ] [ no-objc-method ] ?if ;
|
dup ?lookup-method [ ] [ no-objc-method ] ?if ;
|
||||||
|
|
||||||
|
: (selector/sender) ( selector super? -- alien word )
|
||||||
|
[ [ <selector> selector ] [ lookup-method ] bi ]
|
||||||
|
[ super-message-senders message-senders ? get at ] bi* ; inline
|
||||||
|
|
||||||
: selector/sender ( selector -- alien word )
|
: selector/sender ( selector -- alien word )
|
||||||
dup lookup-method
|
f (selector/sender) ; inline
|
||||||
[ <selector> selector ]
|
|
||||||
[ message-senders get at ] bi* ;
|
: selector/super-sender ( selector -- alien word )
|
||||||
|
t (selector/sender) ; inline
|
||||||
|
|
||||||
MEMO: make-prepare-send ( selector method super? -- quot )
|
MEMO: make-prepare-send ( selector method super? -- quot )
|
||||||
[
|
[
|
||||||
|
|
Loading…
Reference in New Issue