TerminalSession.st
changeset 3097 529fbe182ce0
parent 3096 e3e3a28294f5
child 3110 2e9ebced59e6
--- a/TerminalSession.st	Mon Aug 19 15:37:06 2013 +0200
+++ b/TerminalSession.st	Mon Aug 19 19:29:22 2013 +0200
@@ -356,7 +356,10 @@
 !TerminalSession methodsFor:'misc'!
 
 collectedOutput
-    ^ collectedOutput
+    "return any collected output, so far"
+
+    collectedOutput isNil ifTrue:[^ nil].
+    ^ collectedOutput contents
 !
 
 defineWindowSizeLines:numberOfLines columns:numberOfColumns
@@ -484,10 +487,14 @@
 !
 
 startCollectingOutput
+    "start collecting output in a collecting stream"
+
     collectedOutput := '' writeStream.
 !
 
 stopCollectingOutput
+    "start collecting output in a collecting stream"
+
     collectedOutput := nil.
 ! !
 
@@ -640,11 +647,11 @@
 !TerminalSession class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.12 2013-08-19 13:37:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.13 2013-08-19 17:29:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.12 2013-08-19 13:37:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.13 2013-08-19 17:29:22 cg Exp $'
 ! !