[squeak-dev] 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 Squeak-dev mailing list