deleteTraitRedundants.st

trait := EpTEventVisitor.

trait users do: [ :behavior |
	behavior localSelectors do: [ :selector |
		(trait includesSelector: selector) ifTrue: [ 
			| localSourceCode traitSourceCode |
			localSourceCode := behavior sourceCodeAt: selector.
			traitSourceCode := trait sourceCodeAt: selector.
			localSourceCode = traitSourceCode ifTrue: [ 
				behavior removeSelector: selector ] ]
	] ].