The Trunk: Traits-ar.269.mcz

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

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

Name: Traits-ar.269
Author: ar
Time: 30 December 2009, 8:04:48 am
UUID: 4e91fc53-21ff-cb43-afb3-3e8e8361b54c
Ancestors: Traits-ar.268

More recategorization.

=============== Diff against Traits-ar.266 ===============

Item was changed:
  TraitBehavior subclass: #TraitDescription
+ instanceVariableNames: 'users'
- instanceVariableNames: 'users traitComposition'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'Traits-Kernel'!
 
  !TraitDescription commentStamp: 'ar 12/29/2009 18:15' prior: 0!
  TraitDescription combines common behavior for both (instance) traits and (meta) class traits.!

Item was changed:
+ ----- Method: Trait>>initialize (in category 'initialize') -----
- ----- Method: Trait>>initialize (in category 'initialize-release') -----
  initialize
  super initialize.
  classTrait := ClassTrait for: self.!

Item was added:
+ ----- 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.
+ ].!

Item was removed:
- ----- Method: TraitComposition>>removeFromComposition: (in category 'compat') -----
- removeFromComposition: aTrait
- "--- ignore ---"!