The Trunk: Collections-mpe.290.mcz

Andreas Raab uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-mpe.290.mcz

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

Name: Collections-mpe.290
Author: mpe
Time: 2 February 2010, 9:01:59.056 pm
UUID: 16f08817-12b2-412e-aabd-27d02e5c693a
Ancestors: Collections-ar.289

add a helper method to count the number of open Transcripts

=============== Diff against Collections-ar.289 ===============

Item was changed:
  ----- Method: TranscriptStream>>open (in category 'initialization') -----
  open
  | openCount |
+ openCount := self countOpenTranscripts.
- openCount := 0.
- self dependents do:
- [:d | ((d isKindOf: PluggableTextView) or:
- [d isKindOf: PluggableTextMorph]) ifTrue: [openCount := openCount + 1]].
  openCount = 0
  ifTrue: [self openLabel: 'Transcript']
  ifFalse: [self openLabel: 'Transcript #' , (openCount+1) printString]!

Item was added:
+ ----- Method: TranscriptStream>>countOpenTranscripts (in category 'private') -----
+ countOpenTranscripts
+
+ | openCount |
+ openCount := 0.
+ self dependents do:
+ [:d | ((d isKindOf: PluggableTextView) or:
+ [d isKindOf: PluggableTextMorph]) ifTrue: [openCount := openCount + 1]].
+ ^ openCount!