[squeak-dev] The Trunk: Environments-tonyg.80.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 29 08:23:41 UTC 2021


Tony Garnock-Jones uploaded a new version of Environments to project The Trunk:
http://source.squeak.org/trunk/Environments-tonyg.80.mcz

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

Name: Environments-tonyg.80
Author: tonyg
Time: 29 March 2021, 10:18:29.909437 am
UUID: 53a02a38-aeab-425c-9157-4f243eafdd49
Ancestors: Environments-dtl.77

Take advantage of System-tonyg.1224, which teaches SystemOrganizer about environments.

=============== Diff against Environments-dtl.77 ===============

Item was changed:
  ----- Method: Environment>>initializeWithName: (in category 'initialize-release') -----
  initializeWithName: aString
  	| smalltalk |
  	self initialize.
  	info := EnvironmentInfo name: aString.
+ 	info organization environment: self.
- .
  	smalltalk := SmalltalkImage basicNew.
  	smalltalk globals: self.
  	declarations at: #Smalltalk put: smalltalk.
  	declarations at: #Undeclared put: undeclared.!

Item was changed:
  ----- Method: Environment>>initializeWithSystemDictionary: (in category 'initialize-release') -----
  initializeWithSystemDictionary: old
  	
  	self initialize.
  	info := EnvironmentInfo 
  		name: 'Smalltalk'
  		organization: old organization
  		packages: PackageOrganizer default.
+ 	info organization environment: self.
  	old associationsDo: [:assc | declarations add: assc].
  	(old at: #Undeclared) associationsDo: [:assc | undeclared add: assc].
  	(declarations at: #Smalltalk) instVarNamed: 'globals' put: self.
  	declarations at: #Undeclared put: undeclared.!



More information about the Squeak-dev mailing list