Remove cocoa.callbacks since nothing uses it
parent
8a0525e5ce
commit
1106c03318
|
@ -1 +0,0 @@
|
|||
Kevin P. Reid
|
|
@ -1,33 +0,0 @@
|
|||
! Copyright (C) 2005, 2006 Kevin Reid.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: alien.c-types assocs kernel namespaces cocoa
|
||||
cocoa.classes cocoa.runtime cocoa.subclassing debugger ;
|
||||
IN: cocoa.callbacks
|
||||
|
||||
SYMBOL: callbacks
|
||||
|
||||
: reset-callbacks ( -- )
|
||||
H{ } clone callbacks set-global ;
|
||||
|
||||
reset-callbacks
|
||||
|
||||
CLASS: {
|
||||
{ +name+ "FactorCallback" }
|
||||
{ +superclass+ "NSObject" }
|
||||
}
|
||||
|
||||
{ "perform:" void { id SEL id }
|
||||
[ 2drop callbacks get at try ]
|
||||
}
|
||||
|
||||
{ "dealloc" void { id SEL }
|
||||
[
|
||||
drop
|
||||
dup callbacks get delete-at
|
||||
SUPER-> dealloc
|
||||
]
|
||||
} ;
|
||||
|
||||
: <FactorCallback> ( quot -- id )
|
||||
FactorCallback -> alloc -> init
|
||||
[ callbacks get set-at ] keep ;
|
|
@ -1 +0,0 @@
|
|||
macosx
|
|
@ -1 +0,0 @@
|
|||
Allows you to use Factor quotations as Cocoa actions
|
Loading…
Reference in New Issue