The Trunk: Environments-tonyg.80.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Trunk: Environments-tonyg.80.mcz

Tony Garnock-Jones uploaded a new version of Environments to project The Trunk:

==================== 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.!