[Pkg] The Trunk: Environments-cwp.25.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Apr 29 06:58:53 UTC 2013
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!
More information about the Packages
mailing list