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