The Trunk: Collections-eem.911.mcz

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

The Trunk: Collections-eem.911.mcz

commits-2
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]!