# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1353594192 -3600
# Node ID 9f306f7859b9c09782888c7a3515f57b88253e55
# Parent  ca13f24cb1f3f998b8ea06efa1a7303a25965ec0
class: TextCollector
changed: #newTranscript:
Do not open more than one Transcriber of the same name (for compatibility with old expecco StandardLibraray)

diff -r ca13f24cb1f3 -r 9f306f7859b9 TextCollector.st
--- a/TextCollector.st	Thu Nov 22 10:26:24 2012 +0100
+++ b/TextCollector.st	Thu Nov 22 15:23:12 2012 +0100
@@ -104,6 +104,15 @@
 
     |topView transcript defSz f v lines cols|
 
+    transcript := Smalltalk at:name.
+    (transcript isTextView and:[transcript isOpen and:[transcript device == Screen current]]) ifTrue:[
+        "if there is already an open Transcript on the same device, 
+         do not open an additional one.
+         expecco StandardLibrary <= 2.0.0.3 checked for Transcript>>#isStream and
+         tries to opens a new Transcript window for each new Transcribe with expecco >=2.4"
+        ^ transcript.
+    ].
+
     topView := StandardSystemView label:name "minExtent:(100 @ 100)".
 
     v := HVScrollableView for:self miniScrollerH:true miniScrollerV:false in:topView.
@@ -1004,11 +1013,11 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.114 2012-11-05 17:06:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.115 2012-11-22 14:23:12 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.114 2012-11-05 17:06:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.115 2012-11-22 14:23:12 stefan Exp $'
 ! !
 
 TextCollector initialize!