(redefine-objc-method) ( class method -- )

Vocabulary

cocoa.subclassing

Inputs

class	an object
method	an object

Outputs

None

Definition

USING: cocoa.runtime kernel ;

IN: cocoa.subclassing

:: (redefine-objc-method) ( class method -- )
    method init-method :> ( sel imp types ) class sel imp types
    class_addMethod 0 = [
        class sel class_getInstanceMethod
        imp method_setImplementation drop
    ] when ;