TextCollector.st
changeset 5609 62adb914a9dd
parent 5603 04f026f65189
child 5611 17b35abfb74e
child 5644 b04b627860b9
--- 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