Colin Putney uploaded a new version of Environments to project The Trunk:
http://source.squeak.org/trunk/Environments-cwp.8.mcz

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

Name: Environments-cwp.8
Author: cwp
Time: 1 January 2013, 7:00:24.118 pm
UUID: 0abedc80-5737-42fb-babd-6b2d69f1b352
Ancestors: Environments-cwp.7

Environments bootstrap - stage 3

=============== Diff against Environments-cwp.7 ===============

Item was changed:
  ----- Method: Environment>>fileIn:announcing: (in category 'operations') -----
  fileIn: aStream announcing: aString
+ 	(EnvironmentLoader for: self) 
- 	self shouldBeImplemented.
- "	(EnvironmentLoader for: self) 
  		fileIn: aStream 
  		announcing: aString
+ !
- "!

Item was added:
+ Object subclass: #EnvironmentLoader
+ 	instanceVariableNames: 'environment'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Environments-Core'!

Item was added:
+ ----- Method: EnvironmentLoader class>>for: (in category 'as yet unclassified') -----
+ for: anEnvironment
+ 	^ self basicNew initializeWithEnvironment: anEnvironment!

Item was added:
+ ----- Method: EnvironmentLoader>>evaluate:logged: (in category 'as yet unclassified') -----
+ evaluate: chunk logged: aBoolean
+ 	^ [Compiler evaluate: chunk environment: environment logged: aBoolean]
+ 		on: EnvironmentRequest
+ 		do: [:req | req resume: environment]!

Item was added:
+ ----- Method: EnvironmentLoader>>fileIn:announcing: (in category 'as yet unclassified') -----
+ fileIn: aStream announcing: aString
+ 	| val |
+ 	self logStart: aStream name.
+ 	aString displayProgressFrom: 0 to: aStream size during: 
+ 		[:bar | 
+ 		[aStream atEnd] whileFalse:
+ 			[bar value: aStream position.
+ 			aStream skipSeparators.
+ 			[val := self fileInChunkFrom: aStream]
+ 				on: InMidstOfFileinNotification
+ 				do: [:ex | ex resume: true].
+ 			aStream skipStyleChunk].
+ 		aStream close].	
+ 	self logEnd: aStream name.
+ 	^ val!

Item was added:
+ ----- Method: EnvironmentLoader>>fileInChunkFrom: (in category 'as yet unclassified') -----
+ fileInChunkFrom: aStream
+ 	| chunk |
+ 	^ (aStream peekFor: $!!)
+ 		ifTrue: [ 
+ 			| reader |
+ 			chunk := aStream nextChunk.
+ 			reader := self evaluate: chunk logged: false.
+ 			reader scanFrom: aStream environment: environment]
+ 		ifFalse: [ 
+ 			chunk := aStream nextChunk.
+ 			aStream checkForPreamble: chunk.
+ 			self evaluate: chunk logged: true ]!

Item was added:
+ ----- Method: EnvironmentLoader>>initializeWithEnvironment: (in category 'as yet unclassified') -----
+ initializeWithEnvironment: anEnvironment
+ 	self initialize.
+ 	environment := anEnvironment!

Item was added:
+ ----- Method: EnvironmentLoader>>logEnd: (in category 'as yet unclassified') -----
+ logEnd: filename
+ 	"Note:  The main purpose of this banner is to flush the changes file."
+ 	SmalltalkImage current logChange: '----End fileIn of ' , filename , ' into ', environment name, '----'	!

Item was added:
+ ----- Method: EnvironmentLoader>>logStart: (in category 'as yet unclassified') -----
+ logStart: filename
+ 	SmalltalkImage current logChange: '----Start fileIn of ' , filename , ' into ' , environment name , '----'!

Item was added:
+ Notification subclass: #EnvironmentRequest
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Environments-Core'!