class: TextCollector
changed: #newTranscript:
Do not open more than one Transcriber of the same name (for compatibility with old expecco StandardLibraray)
--- 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!