Tobias Pape uploaded a new version of Environments to project Squeak 4.5:
http://source.squeak.org/squeak45/Environments-nice.47.mcz==================== Summary ====================
Name: Environments-nice.47
Author: nice
Time: 25 May 2014, 12:22:16.232 am
UUID: 83f41a4a-d652-4246-8c98-587bf994a91a
Ancestors: Environments-ul.46
Rename EnvironmentRequest to CurrentEnvironment and use it to implement Environment class>>current.
Or more exactly, replace with rather than rename
(and don't remove EnvironmentRequest yet, otherwise the update-stream which is using EnvironmentRequest via Monticello will fail)
=============== Diff against Environments-ul.46 ===============
Item was added:
+ Notification subclass: #CurrentEnvironment
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Loading'!
Item was added:
+ ----- Method: Environment class>>current (in category 'accessing') -----
+ current
+ ^ CurrentEnvironment signal ifNil: [self default]!
Item was changed:
----- Method: EnvironmentLoader>>evaluate: (in category 'as yet unclassified') -----
evaluate: chunk
^ [Compiler evaluate: chunk environment: environment]
+ on: CurrentEnvironment
- on: EnvironmentRequest
do: [:req | req resume: environment]!
Item was changed:
----- Method: EnvironmentLoader>>evaluate:logged: (in category 'as yet unclassified') -----
evaluate: chunk logged: aBoolean
^ [Compiler evaluate: chunk environment: environment logged: aBoolean]
+ on: CurrentEnvironment
- on: EnvironmentRequest
do: [:req | req resume: environment]!