checkin from browser
authorStefan Vogel <sv@exept.de>
Tue, 08 Jun 1999 16:11:07 +0200
changeset 1404 fd15ebe7dd3a
parent 1403 2bf484705c41
child 1405 83f01b0d83f0
checkin from browser
TerminalView.st
--- a/TerminalView.st	Mon Jun 07 18:19:08 1999 +0200
+++ b/TerminalView.st	Tue Jun 08 16:11:07 1999 +0200
@@ -1612,7 +1612,7 @@
     (nLines := s size) == 0 ifTrue:[^ self].
     (nLines == 1 and:[(s at:1) size == 0]) ifTrue:[^ self].
     s keysAndValuesDo:[:idx :line |
-        inStream nextPutAll:line.
+        line notNil ifTrue:[inStream nextPutAll:line].
         idx ~~ nLines ifTrue:[
             inStream nextPut:(Character return).
         ]
@@ -1624,5 +1624,5 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.84 1999-05-08 18:13:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.85 1999-06-08 14:11:07 stefan Exp $'
 ! !