Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cwp.25.mcz
==================== Summary ====================
Name: Environments-cwp.25 Author: cwp Time: 28 April 2013, 11:56:36.28 pm UUID: 0117c0ea-d81e-4eff-a6d6-afd791496d6d Ancestors: Environments-cwp.24
Use aliases for classes imported with a different name, rather than copying the class binding.
=============== Diff against Environments-cwp.24 ===============
Item was changed: ----- Method: ClassBinding>>asBinding: (in category 'as yet unclassified') ----- asBinding: aSymbol ^ aSymbol == key ifTrue: [self] + ifFalse: [Alias key: aSymbol source: self]! - ifFalse: [self class key: aSymbol value: value]!
Item was changed: ----- Method: Environment>>forgetClass:logged: (in category 'classes and traits') ----- forgetClass: aClass logged: aBool aBool ifTrue: [SystemChangeNotifier uniqueInstance classRemoved: aClass fromCategory: aClass category]. self organization removeElement: aClass name. Smalltalk removeFromStartUpList: aClass. Smalltalk removeFromShutDownList: aClass. + + undeclared declare: aClass name from: contents. + imports forgetName: aClass name. exports forgetName: aClass name. contents removeKey: aClass name ifAbsent: []. + bindings removeKey: aClass name ifAbsent: []. + + [undeclared at: aClass name put: nil] + on: AttemptToWriteReadOnlyGlobal + do: [:n | n resume: true]. + ! - bindings removeKey: aClass name ifAbsent: [].!
Item was added: + ----- Method: Environment>>recompileAll (in category 'operations') ----- + recompileAll + bindings removeAll. + self allClassesAndTraits + do: [:classOrTrait | classOrTrait compileAll] + displayingProgress:[:classOrTrait| 'Recompiling ', classOrTrait] + + + !
Item was changed: + ----- Method: Environment>>removeKey:ifAbsent: (in category 'emulating') ----- - ----- Method: Environment>>removeKey:ifAbsent: (in category 'accessing') ----- removeKey: key ifAbsent: aBlock self flag: #review. ^ contents removeKey: key ifAbsent: aBlock!
Item was added: + ----- Method: EnvironmentInfo>>packages (in category 'as yet unclassified') ----- + packages + ^ packages!
packages@lists.squeakfoundation.org