--- a/TextCollector.st Thu Mar 10 17:13:51 2016 +0100
+++ b/TextCollector.st Sun Mar 20 11:05:25 2016 +0100
@@ -102,7 +102,7 @@
"Modified: 17.2.1997 / 18:20:27 / cg"
!
-newTranscript:name
+newTranscript:nameSymbol
"create and open a new transcript, unless one already exists by that name.
The transcript is remembered in a global by that name.
This is a leftOver method from times were the Launcher & Transcript
@@ -110,7 +110,7 @@
|topView transcript defSz f v lines cols|
- transcript := Smalltalk at:name.
+ transcript := Smalltalk at:nameSymbol.
(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.
@@ -119,7 +119,7 @@
^ transcript.
].
- topView := StandardSystemView label:name "minExtent:(100 @ 100)".
+ topView := StandardSystemView label:nameSymbol "minExtent:(100 @ 100)".
v := HVScrollableView for:self miniScrollerH:true miniScrollerV:false in:topView.
v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
@@ -136,7 +136,7 @@
lines := defSz y.
topView extent:(((f widthOf:'x') * cols) @ (f height * lines)).
- transcript beTranscript:name.
+ transcript beTranscript:nameSymbol.
"
run it at a slightly higher prio, to allow for