The Trunk: Environments-cmm.39.mcz

Chris Muller uploaded a new version of Environments to project The Trunk:
http://source.squeak.org/trunk/Environments-cmm.39.mcz

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

Name: Environments-cmm.39
Author: cmm
Time: 24 December 2013, 10:03:31.308 pm
UUID: 907f54ac-0b7b-41ac-b6be-8330fb6a1b12
Ancestors: Environments-cmm.38

The community voted for Environments to keep its original Designated Initializers.

=============== Diff against Environments-cmm.38 ===============

Item was changed:
  ----- Method: AddPrefixNamePolicy class>>prefix: (in category 'as yet unclassified') -----
+ prefix: aString
+ ^ self basicNew initializeWithPrefix: aString!
- prefix: aString
- ^ self new
- setPrefix: aString ;
- yourself!

Item was added:
+ ----- Method: AddPrefixNamePolicy>>initializeWithPrefix: (in category 'as yet unclassified') -----
+ initializeWithPrefix: aString
+ self initialize.
+ prefix := aString!

Item was removed:
- ----- Method: AddPrefixNamePolicy>>setPrefix: (in category 'initialize-release') -----
- setPrefix: aString
- prefix := aString!

Item was changed:
  ----- Method: BindingPolicy class>>namespace:policy:next: (in category 'create') -----
  namespace: aDictionary policy: aNamePolicy next: anImport
  ^ self new
  initializeWithNamespace: aDictionary
  policy: aNamePolicy
+ next: anImport!
- next: anImport ;
-
- yourself!

Item was changed:
  ----- Method: BindingPolicy>>initializeWithNamespace:policy:next: (in category 'initialize-release') -----
+ initializeWithNamespace: aDictionary policy: aNamePolicy next: anImport
+ namespace := aDictionary.
- initializeWithNamespace: namespaceDictionary policy: aNamePolicy next: anImport
- namespace := namespaceDictionary.
  policy := aNamePolicy.
  next := anImport!

Item was changed:
  ----- Method: EnvironmentInfo class>>name:organization:packages: (in category 'as yet unclassified') -----
  name: aString organization: aSystemOrganizer packages: aPackageOrganizer
+ ^ self basicNew
+ initializeWithName: aString
- ^ self new
- setName: aString
  organization: aSystemOrganizer
  packages: aPackageOrganizer!

Item was added:
+ ----- Method: EnvironmentInfo>>initializeWithName:organization:packages: (in category 'as yet unclassified') -----
+ initializeWithName: aString organization: aSystemOrganizer packages: aPackageOrganizer
+ self initialize.
+ name := aString.
+ organization := aSystemOrganizer.
+ packages := aPackageOrganizer.
+ !

Item was removed:
- ----- Method: EnvironmentInfo>>setName:organization:packages: (in category 'initialize-release') -----
- setName: aString organization: aSystemOrganizer packages: aPackageOrganizer
- name := aString.
- organization := aSystemOrganizer.
- packages := aPackageOrganizer!

Item was changed:
+ ----- Method: ExplicitNamePolicy class>>aliases: (in category 'as yet unclassified') -----
+ aliases: aCollection
+ ^ self basicNew initializeWithAliases: aCollection!
- ----- Method: ExplicitNamePolicy class>>aliases: (in category 'create') -----
- aliases: aCollection
- ^ self new
- setAliases: aCollection ;
- yourself!

Item was added:
+ ----- Method: ExplicitNamePolicy>>initializeWithAliases: (in category 'as yet unclassified') -----
+ initializeWithAliases: aCollection
+ self initialize.
+ aliases := IdentityDictionary withAll: aCollection!

Item was removed:
- ----- Method: ExplicitNamePolicy>>setAliases: (in category 'initialize-release') -----
- setAliases: aCollection
- aliases := IdentityDictionary withAll: aCollection!

Item was changed:
+ ----- Method: RemovePrefixNamePolicy class>>prefix: (in category 'as yet unclassified') -----
+ prefix: aString
+ ^ self basicNew initializeWithPrefix: aString!
- ----- Method: RemovePrefixNamePolicy class>>prefix: (in category 'create') -----
- prefix: aString
- ^ self new
- setPrefix: aString ;
- yourself!

Item was added:
+ ----- Method: RemovePrefixNamePolicy>>initializeWithPrefix: (in category 'as yet unclassified') -----
+ initializeWithPrefix: aString
+ self initialize.
+ prefix := aString!

Item was removed:
- ----- Method: RemovePrefixNamePolicy>>setPrefix: (in category 'initialize-release') -----
- setPrefix: aString
- prefix := aString!

On 25 December 2013 04:03,  <[hidden email]> wrote:
Thanks, Chris!

frank