[squeak-dev] The Trunk: Collections-eem.911.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Sep 14 18:03:04 UTC 2020


Eliot Miranda uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-eem.911.mcz

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

Name: Collections-eem.911
Author: eem
Time: 14 September 2020, 11:03:02.426231 am
UUID: 28806f32-6ba9-4ef5-b940-571d50d3f942
Ancestors: Collections-eem.910

Correct the redirect logc so that it is the Transcript, and not any old TranscriptStream, that gets redirected to stdout when the redirectToStdOut preference is set  Fix a regression in the redefinition of endEntry (forgot to send reset).

=============== Diff against Collections-eem.910 ===============

Item was changed:
  ----- Method: TranscriptStream>>endEntry (in category 'stream extensions') -----
  endEntry
  	"Display all the characters since the last endEntry, and reset the stream"
  	self lock critical:
+ 		[(self == Transcript and: [self class redirectToStdOut])
+ 			ifTrue:
+ 				[FileStream stdout nextPutAll: self contents; flush]
+ 			ifFalse:
+ 				[self changed: (self class forceUpdate
- 		[self changed: (self class forceUpdate
  							ifTrue: [#appendEntry]
+ 							ifFalse: [#appendEntryLater])].
+ 		 self reset]!
- 							ifFalse: [#appendEntryLater])]!

Item was removed:
- ----- Method: TranscriptStream>>nextPut: (in category 'stream extensions') -----
- nextPut: anObject 
- 	self target == self ifFalse: [self target nextPut: anObject]. "delegated to stdout"
- 	^ super nextPut: anObject.!

Item was removed:
- ----- Method: TranscriptStream>>nextPutAll: (in category 'stream extensions') -----
- nextPutAll: aCollection
- 	self target == self ifFalse: [self target nextPutAll: aCollection]. "delegated to stdout"
- 	^ super nextPutAll: aCollection.!

Item was changed:
  ----- Method: TranscriptStream>>target (in category 'stream extensions') -----
  target
+ 	^(self == Transcript and: [self class redirectToStdOut])
- 
- 	^ self class redirectToStdOut
  		ifTrue: [FileStream stdout]
  		ifFalse: [self]!



More information about the Squeak-dev mailing list