redefine-objc-methods ( methods name -- )

Vocabulary

cocoa.subclassing

Inputs

methods	an object
name	an object

Outputs

None

Definition

USING: cocoa.messages cocoa.runtime kernel sequences ;

IN: cocoa.subclassing

: redefine-objc-methods ( methods name -- )
    dup class-exists?
    [ objc_getClass '[ [ _ ] dip (redefine-objc-method) ] each ]
    [ 2drop ] if ;