def self::installMethodHooks( mod )
mod.module_eval {
class << self
if respond_to?( :singleton_method_added )
alias :__cc_sma :singleton_method_added
end
def singleton_method_added( id )
if aliasName = CrossCase::transform( id )
CrossCase::installClassAlias( self, id, aliasName )
end
if respond_to?( :__cc_sma )
__cc_sma( id )
else
super
end
end
if respond_to?( :method_added )
alias :__cc_ma :method_added
end
def method_added( id )
if aliasName = CrossCase::transform( id )
CrossCase::installAlias( self, id, aliasName )
end
if respond_to?( :__cc_ma )
__cc_ma( id )
else
super
end
end
end
}
end