Define a component not rewrite class definition and method generation if the contract not changed

[LabordePierre]

Define a component not rewrite class definition and method generation if the contract not changed

[LabordePierre]

If the contract is the same, need to check if the traits order is correct and change it if necessary.

[LabordePierre]

When this method is called:

MolComponentFactory>>checkAndRebuildUsedTraitList: aTraitList inComponentClass: aComponentClass
	"Check if a Component Class uses a list of Trait Class and do uses"
	| traitList toAddTraits toRemoveTraits |

	traitList := self collectComponentConnectionTraits: aComponentClass.
	
	"added traits"
	toAddTraits := self sortTraits: (aTraitList reject: [ :e | (traitList includes: e) or:[ e isObsolete ] ]).
	toAddTraits ifNotEmpty:[
		self rebuildComponent: aComponentClass traitsAdding: toAddTraits.
	].
	
	"removed traits"
	toRemoveTraits := self sortTraits: (traitList reject: [ :e | aTraitList includes: e ]).
	toRemoveTraits ifNotEmpty:[
		self rebuildComponent: aComponentClass traitsRemoving: toRemoveTraits.
	].

Traits are not re-ordered, need to reorder them even without added/removed traits.