[Pkg] The Trunk: Traits-ar.270.mcz

[commits at source.squeak.org]

Andreas Raab uploaded a new version of Traits to project The Trunk:
http://source.squeak.org/trunk/Traits-ar.270.mcz

==================== Summary ====================

Name: Traits-ar.270
Author: ar
Time: 31 December 2009, 2:53:52 am
UUID: adfa2f21-6cc3-3041-a5fa-efa4663bb3fe
Ancestors: Traits-ar.269

Final cleanup touches: Remove some unused or duplicate left-overs.

=============== Diff against Traits-ar.269 ===============

Item was removed:
- ----- Method: TraitDescription>>addUser: (in category 'accessing') -----
- addUser: aTrait
- 	^self addTraitUser: aTrait!

Item was removed:
- ----- Method: TraitComposition>>addUser: (in category 'accessing') -----
- addUser: aUser
- 	^self addTraitUser: aUser!

Item was removed:
- ----- Method: TraitDescription>>removeUser: (in category 'accessing') -----
- removeUser: aTrait
- 	^self removeTraitUser: aTrait!

Item was removed:
- ----- Method: TraitComposition>>removeUser: (in category 'accessing') -----
- removeUser: aUser
- 	^self removeTraitUser: aUser!

Item was removed:
- ----- Method: Array>>asTraitComposition (in category '*Traits-NanoKernel') -----
- asTraitComposition
- 	"For convenience the composition {T1. T2 ...} is the same as T1 + T2 + ..."
- 	^self isEmpty
- 		ifFalse: [
- 			self size = 1
- 				ifTrue: [self first asTraitComposition]
- 				ifFalse: [
- 					self copyWithoutFirst 
- 						inject: self first
- 						into: [:left :right | left + right]]]
- 		ifTrue: [ClassDescription newTraitComposition]!

Item was removed:
- ----- Method: Trait class>>initialize (in category 'public') -----
- initialize
- 	"Do some reformatting of categories"
- 	 {
- 		TraitBehavior->#(#'no messages') . 
- 		TraitDescription->#(#accessing #testing #operations #converting #copying #'fileIn/Out' #printing) . 
- 		Trait->#(#initialize #accessing #testing #converting #compiling #'fileIn/Out' #monticello) . 
- 		ClassTrait->#(#initialize #accessing #testing #compiling #monticello).
- 		TraitBehavior class->#(#'no messages') . 
- 		TraitDescription class->#(#'conflict methods') . 
- 		Trait class->#(#'instance creation' #public) . 
- 		ClassTrait class->#(#'instance creation').
- 		TraitAlias->#(#'initialize-release' #accessing #testing #converting #operations).
- 		TraitComposition->#(#accessing #testing #converting #operations).
- 		TraitCompositionException->#(#'no messages').
- 		TraitExclusion->#(#initialize #accessing #converting #composition).
- 		TraitTransformation->#(#initialize #accessing #testing #converting #operations).
- 	} do:[:assoc| | organizer categories |
- 		organizer := assoc key organization.
- 		categories := assoc value, 
- 			(organizer categories reject:[:cat| assoc value includes: cat]).
- 		organizer categories: categories.
- 		organizer removeEmptyCategories.
- 	].!