(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
    class_getInstanceMethod
    [ imp method_setImplementation drop ]
    [ class sel imp types add-method ] if* ;